Discussion :

[Aethis]

Bonjour,

j'ai créé une macro sous Excel 2002 et je dois l'adapter pour un poste ayant Excel 97.

Une première tentative de compilation sur le poste destinataire m'a donné les erreurs suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("suivi").Range("F" & indI).Value = Format(Now, "mm/dd/yyyy hh:mm ")

Je pense que la méthode "Format" n'existe pas dans Excel 97. En faisant des recherches, la méthode DateSerial() est proposé pour formater la date, mais je ne sais pas comment obtenir la date du jour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mid(ActiveSheet.Range("B" & ligne).Value, 1, 3)

J'ai une erreur sur la méthode Mid(). Pourtant l'aide en ligne proposait un code pour Excel 4.0 utilisant cette méthode. Je vais réessayer avec cette méthode quand j'aurai à nouveau accès au poste Excel 97.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UCase(ThisWorkbook.Sheets("Feuil1").Cells(2, IndC).Value)

Je cherche un équivalent à la méthode UCase, ou la solution pour la faire fonctionner ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub help()
'
'bouton d'appel du fichier d'aide
'
ActiveSheet.Shapes("Object 96").Select
Selection.Verb

End Sub

J'ai un bout de code permettant d'appeler un objet. Cet objet est un fichier word (je n'ai pas utilisé la librairie word pour diverses raisons).

Si vous savez comment contourner ces problème ou les résoudres, je suis preneur.

Merci,
Aethis

[AlainTech]

Format, Mid et UCase existent bien sous Excel 97.

Ton problème vient d'une librairie manquante.
Vérifie dans les Références (sous 97) s'il y en a une marquée Manquante.
Désactive-la et remplace la par celle de la version 97 (Pour 97, la version est 8.00).

Pour ton info, Format, Mid et UCase sont des fonctions et pas des méthodes.

[Aethis]

Merci. Effectivement, j'avais activé une librairie word qui n'était pas présente sur le poste Excel 97 (je pensais que les références étaient spécifiques à chaque poste et non à chaque fichier...).

ça me résoud les problèmes de Mid, Format et UCase (qui sont donc des fonctions )

Il me reste donc le problème sur mon objet (erreur d'exécution "1004" : la méthode Verb de la classe OLEObjet à échoué). Et je ne comprend pas car si j'essaie de créer une macro avec l'outil automatique, il me génère un code 100% identique. Bref, je suis dans le flou.

[SilkyRoad]

bonjour

Tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.OLEObjects("objet 96").Verb

michel

[Aethis]

J'ai testé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.OLEObjects("objet 96").Verb

j'obtiens une erreur :

erreur d'exécution '438'.
propriété ou méthode non gérée par cet objet.

Merci de votre aide en tout cas.

Aethis

[SilkyRoad]

OOupps...

J'avais oublié le C: à retester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.OLEObjects("object 96").Verb

michel