SVP : Problème Compatibilité EXCEL

Question

Bonjour &#224; tous Meilleurs Voeux 

Voila j'ai un programme qui tourne sous Excel avec 1 Macro

J'ai r&#233;alis&#233; mon programme sous Excel 2000 (9.0.3821 SR-1)

Je voudrais le lancer depuis un autre PC : 1 qui a Excel 2003
                                                               1 qui a Excel 9.0.2812)

Cependant d&#233;s que je lance mon application, une erreur appariat sur la DATE et une autre concernant le changement de VUE 

Voila les erreurs : 

Dim mydate As Variant
mydate = Date

et

Private Sub CommandButton1_Click()
'Activation de la feuille Entr&#233;e (1)
If Worksheets("Entr&#233;e (1)").Activate = True Then
auto_open
Set feuille = ActiveWorkbook.Worksheets("Entr&#233;e (1)")
With feuille
UserForm1.Label58.Caption = (.Range("C3"))
...
Set feuille = Nothing
End With
UserForm1.Show
End If
End Sub

Je pense que c'est un probleme de CONTROLE ACTIVE X mais je ne sais pas quoi faire 

Si quelqu'un peut m'aider pour que je puisse ouvrir mon prog sur plusieurs PC avec des Versions EXCEL Differentes

Merci a vous

Renfield · Answer

quelles sont ces erreurs ???

(Date peut etre remplac&#233; par Now)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_chapata · Answer

Salut

je pense que tu dois passer 'mydate = date' dans une sub ...

pour ce qui est de Set feuille
 je ne vois pas d'erreur chez moi.

ChaPaTa

takin55 · Answer

Merci  Renfield je vais tester de suite sur XP car ca a l'air de marcher sur un vieux Excel 

Par contre chapata quand je lance l'application, je plante sur Set feuille et y'a &#233;crit :

   erreur de compilation
   Projet ou bibliotheque introuvable

alors je sais pas de quoi ca vient

si tu peux m'aider je te remercie d'avance 

Merci a vous 2

cs_chapata · Answer

D&#233;sol' Takin ... je ne vois pas ce qui peux clocher ... 


Je n'ai pas cette erreur chez moi ... le set feuille est bien reconnu ...


A ++++

takin55 · Answer

Tu utilises quoi comme EXCEL toi car c'est peut etre ca je sais pas 

ou alors toutes les fonctionnalit&#233;s d'Excel ne sont pas install&#233;es

je passe par le reseau aussi c'est pas ca ...  je pense pas car le 2 eme PC c'est un portable

toi ca marche le Set feuille ... je sais pas quoi faire

Renfield · Answer

il trouve pas ActiveWorkBook.... pas un drame, ajoutes le namespace complet : 

Set Feuille = excel.ActiveWorkbook.Worksheets("Entr&#233;e (1)")

pour le 'Now' , essaye DateTime.Now

Renfield
Admin CodeS-SourceS - MVP Visual Basic

takin55 · Answer

Le probleme de la date est r&#233;gl&#233; merci 

Je voudrais par contre n'aficher que la date sans l'heure : comment formater ce resultat ? STP

Set Feuille = excel.ActiveWorkbook.Worksheets("Entr&#233;e (1)")

Ca marche pas non plus il plante toujours sur Set Feuille

et il me surligne en jaune Private Sub CommandButton1_Click()

c'est un bouton qui se situe dans une feuille Excel et non dans un USERFORM

c'est bizar quand meme que ca plante alors que sur le PC sur lequel je travaille ca fonctionne correctement mais version Excel differente

si tu peux m'aider

Renfield · Answer

formater la date ? utilises la fonction Format...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_loulou69 · Answer

As tu pensé à déclarer  : Dim feuille
avant de faire : Set feuille=

vox90 · Answer

J'ai une peu le meme soucis...
Un programme qui fonctionne sous 200 et plus sous 2003...
voici l'erreur qu'il me donne en sourlignant "calendar":
"membre de methode ou de donn&#233;es introuvables"