MESSAGE D ERREUR compilation

Version imprimable

27/10/2020, 08h56
saber 3615

1 pièce(s) jointe(s)

MESSAGE D ERREUR compilation

Bonjour

j'ai developpé une petite application sur Excel 2007 qui fonctionne à merveille, aussi quand je l'ouvre sur d'autres postes elle marche bien sauf pour un seul poste ,elle m'affiche un message derreur , voici la capture d'écran et merci
27/10/2020, 09h38
halaster08

Bonjour,

Citation:

Envoyé par saber 3615

Bonjour

j'ai developpé une petite application sur Excel 2007 qui fonctionne à merveille, aussi quand je l'ouvre sur d'autres postes elle marche bien sauf pour un seul poste ,elle m'affiche un message derreur , voici la capture d'écran et merci

:cristal:
Penses-tu vraiment qu'on puisse te répondre sans donner plus d'informations ?

Il faudra que tu nous donne à minima le code contenu dans thisworkbook auquel fait référence, ainsi que les caractéristique du poste en question

Bonjour

merci de trouver ci-dessous le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Declare Function GetVolumeInformation Lib _
"Kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long
 
Function NumSerieDD(LettreDD As String) As Long
Dim SerialNum As Long
Dim R As Long
Dim Temp1 As String
Dim Temp2 As String
LettreDD = LettreDD & ":\"
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
R = GetVolumeInformation(LettreDD, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
NumSerieDD = SerialNum
End Function
 
Sub Essai()
MsgBox NumSerieDD("C")
End Sub

Mon poste W7-32 & Excel 2007, le poste sur le quelle ça affiche le message d'erreur est W10-64 excel 2016

27/10/2020, 09h54
BENNASR

bonjour saber, la forum
merci de baliser ton code (mettre entre #)
ta demande a une relation avec une discussion que tu as ouvert y a qq jours sans suite de votre part non ??
réponse de joe.levrai ( bonjour au passage)

Citation:

https://www.developpez.net/forums/d2...rreur-64-bits/

Vous voulez dire comme ça au début et à la fin de tout le code ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Declare Function GetVolumeInformation Lib _
"Kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long
 
Function NumSerieDD(LettreDD As String) As Long
Dim SerialNum As Long
Dim R As Long
Dim Temp1 As String
Dim Temp2 As String
LettreDD = LettreDD & ":\"
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
R = GetVolumeInformation(LettreDD, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
NumSerieDD = SerialNum
End Function
 
Sub Essai()
MsgBox NumSerieDD("C")
End Sub

oui c'est bien moi qui a posé la mem question hier

27/10/2020, 10h28
saber 3615

Citation:

Envoyé par BENNASR

bonjour saber, la forum
merci de baliser ton code (mettre entre #)
ta demande a une relation avec une discussion que tu as ouvert y a qq jours sans suite de votre part non ??
réponse de joe.levrai ( bonjour au passage)

Malheureusement ça ne marche pas , peut etre que je ne vous ai pas bien compri
27/10/2020, 11h11
Patrice740

Bonjour,

Citation:

Envoyé par saber 3615

Vous voulez dire comme ça au début et à la fin de tout le code ?

Non, comme ça :
démonstration de l'utilisation du bouton code (#)