Discussion :

[mathspountz]

Bonjour à tous,

Voila mon problème, nous utilisons un fichier Excel qui doit être rempli par certaines personnes via des macros vba. Ensuite, d'autres personnes doivent traiter le fichier via les mêmes macros vba.
Le problème, c'est que certaines personnes qui remplissent le fichier ont windows 7 64 bits et Excel 64 bits, alors que ceux qui le traitent ont windows xp SP2 et Excel 2003...

J'ai donc essayé ce code :

Code :

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

1
2
3
4
5
#If VBA7 Then
    Private Declare PtrSafe Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
#Else
    Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
#End If

Malheureusement, l'éditeur de texte me dit : "Attendu : sub ou fonction" en surlignant PtrSafe...
La seule info que j'ai trouvé est : http://stackoverflow.com/questions/2...ng-me-problems
Ce serait donc l'éditeur qui se tromperait ?

Si tel est le cas, pas de problème pour les utilisateurs qui ont Excel 64 bits car leur éditeur ne se trompera pas. Mais ceux qui ont Excel 2003, à la réception du fichier, ne pourront pas éxécuter les macros...

Que faire ?

[Invité]

Code :

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

1
2
3
4
5
#If win64 Then
    Private Declare PtrSafe Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
#Else
    Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
#End If

[Arkham46]

Bonjour,

L'erreur ne s'affiche que lorsqu'on valide la ligne contenant PtrSafe sur une ancienne version (qui ne connait donc pas PtrSafe).
La ligne reste alors affichée en rouge mais c'est normal.

Si on compile avec Débogage => Compiler, alors il n'y a pas d'erreur, la ligne en rouge n'est pas prise en compte.
Elle ne le sera que sur une version VBA7 (2007 ou supérieure).

[mathspountz]

Je n'ai pas essayé la méthode de rdurupt mais la méthode d'Arkham à l'air de fonctionner nikel.

Merci beaucoup !