SVP : Problème Compatibilité EXCEL

Bonjour à tous Meilleurs Voeux

Voila j'ai un programme qui tourne sous Excel avec 1 Macro

J'ai réalisé 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é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ée (1)
If Worksheets("Entrée (1)").Activate = True Then
auto_open
Set feuille = ActiveWorkbook.Worksheets("Entré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

quelles sont ces erreurs ???

(Date peut etre remplacé par Now)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

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

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 é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

Dé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 ++++

Tu utilises quoi comme EXCEL toi car c'est peut etre ca je sais pas

ou alors toutes les fonctionnalités d'Excel ne sont pas installé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

il trouve pas ActiveWorkBook.... pas un drame, ajoutes le namespace complet :

Set Feuille = excel.ActiveWorkbook.Worksheets("Entrée (1)")

pour le 'Now' , essaye DateTime.Now


Renfield
Admin CodeS-SourceS - MVP Visual Basic

Le probleme de la date est réglé merci

Je voudrais par contre n'aficher que la date sans l'heure : comment formater ce resultat ? STP

Set Feuille = excel.ActiveWorkbook.Worksheets("Entré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

formater la date ? utilises la fonction Format...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

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