Y
yann
Guest
bonjour,
j'ai un probleme d'execution d'une macro sur mon pc. celle-ci fonction sur d'autre ordinateur mais pas sur le mien.
j'ai complètement désinstallé office et réinstallé sans aucun succes.
j'ai verifier les réferences vba , elles sont identique sur les 2 pc.
pour info voici le code :
F = FreeFile
Open 'D:\\Mes documents\\Temp\\BDClients.ini' For Output As #F
For i = 2 To sClient.Range('A2').End(xlDown).Row
vNom = sClient.Cells(i, 1)
vAdresse1 = sClient.Cells(i, 2)
vAdresse2 = sClient.Cells(i, 3)
vCpVille = sClient.Cells(i, 4)
vContact = sClient.Cells(i, 5)
vTel = sClient.Cells(i, 6)
vFax = sClient.Cells(i, 7)
Write #F, vNom, vAdresse1, vAdresse2, vCpVille, vContact, vTel, vFax
Next i
Close #F
j'ai soit l'erreur 53 qui me dit que le fichier est introuvable ( normalement avec OUTPUT, si le fichier n'existe pas il est crée)
si je crée le fichier manuellement , j'ai l'erreur 54 qui dit que le mode d'acces du fichier est incorrect.
Quelqu'un a déja eu ce genre de problème...
j'ai un probleme d'execution d'une macro sur mon pc. celle-ci fonction sur d'autre ordinateur mais pas sur le mien.
j'ai complètement désinstallé office et réinstallé sans aucun succes.
j'ai verifier les réferences vba , elles sont identique sur les 2 pc.
pour info voici le code :
F = FreeFile
Open 'D:\\Mes documents\\Temp\\BDClients.ini' For Output As #F
For i = 2 To sClient.Range('A2').End(xlDown).Row
vNom = sClient.Cells(i, 1)
vAdresse1 = sClient.Cells(i, 2)
vAdresse2 = sClient.Cells(i, 3)
vCpVille = sClient.Cells(i, 4)
vContact = sClient.Cells(i, 5)
vTel = sClient.Cells(i, 6)
vFax = sClient.Cells(i, 7)
Write #F, vNom, vAdresse1, vAdresse2, vCpVille, vContact, vTel, vFax
Next i
Close #F
j'ai soit l'erreur 53 qui me dit que le fichier est introuvable ( normalement avec OUTPUT, si le fichier n'existe pas il est crée)
si je crée le fichier manuellement , j'ai l'erreur 54 qui dit que le mode d'acces du fichier est incorrect.
Quelqu'un a déja eu ce genre de problème...