Discussion :

[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

[halaster08]

Bonjour,

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

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

[saber 3615]

Bonjour

merci de trouver ci-dessous le code

Code :

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

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

[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)

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

[saber 3615]

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

Code :

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

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

[Patrice740]

Bonjour,

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 (#)

[saber 3615]

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