Cave à vins ( avec macro) 2018-03-08

[dysorthographie]

les directives de compilation permettent de définir les librairies en fonction de la version excel.

Voici un exemple

#If Win64 Then
    Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
        (ByVal lpBuffer As String, nSize As Long) As Long
#Else
    Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
        (ByVal lpBuffer As String, nSize As Long) As Long
#End If

 

[JM27]

les directives de compilation permettent de définir les librairies en fonction de la version excel.

Voici un exemple

#If Win64 Then
    Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
        (ByVal lpBuffer As String, nSize As Long) As Long
#Else
    Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
        (ByVal lpBuffer As String, nSize As Long) As Long
#End If

Ah merci cela me reviens. je connaissais comme quoi comme si on l'arrête le VBA on a tendance à oublier

 

[eiffelb]

bonsoir remplace la ligne en rouge par
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)' en 64 bit

Bonsoir
merci pour les infos
J'ai appliqué la modification
au rechargement du fichier excel j'avais d'autres erreurs mais avec recommandation j'ai du ajouter Ptrsafe pour chaque ligne Declare
Maintenant cela fonctionne correctement.

bonne continuation