J'ai créé cette macro dans un fichier enregistré sur ma clé, le port usb sur l'ordinateur sur lequel j'ai fait le fichier était le (d.
Le problème est lorsque je veux utiliser cettte macro sur un autre ordinateur et que de ce fait ma clé n'est pas en port D mais H ou I sur un autre ...... la macro n'est pas trouvable !
Sub AUTO()
ChDir "D:\A"
ActiveWorkbook.SaveAs Filename:="D:\A\AUTO.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
N'étant pas devant ton ordi et n'ayant pas de fichier à me mettre sous la dent, je suis contraint d'essayer de te guider avec les éléments que tu me donnes :
me paraît un peu léger pour savoir (avec certitude) ce qui cloche, tu ne crois pas ? Peux-tu me dire, si il y a un message d'erreur ou pas déjà, et si oui, quelle ligne est surlignée en jaune en débugage ?
Sinon, tu peux tester, en remettant les 2 lignes :
VB:
sub auto()
Dim Chemin$
Chemin= mid(Thisworkbook.path,1,3)
msgbox Chemin
ChDrive mid(Chemin,1,1)
ChDir Chemin
ActiveWorkbook.SaveAs Filename:=Chemin & "\A\AUTO.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Est-ce que la boîte de dialogue affiche bien X:\ où X est la lettre de volume ??
N'étant pas devant ton ordi et n'ayant pas de fichier à me mettre sous la dent, je suis contraint d'essayer de te guider avec les éléments que tu me donnes :
me paraît un peu léger pour savoir (avec certitude) ce qui cloche, tu ne crois pas ? Peux-tu me dire, si il y a un message d'erreur ou pas déjà, et si oui, quelle ligne est surlignée en jaune en débugage ?
Sinon, tu peux tester, en remettant les 2 lignes :
VB:
sub auto()
Dim Chemin$
Chemin= mid(Thisworkbook.path,1,3)
msgbox Chemin
ChDrive mid(Chemin,1,1)
ChDir Chemin
ActiveWorkbook.SaveAs Filename:=Chemin & "\A\AUTO.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Est-ce que la boîte de dialogue affiche bien X:\ où X est la lettre de volume ??
J'ai le message suivant : "impossible de trouver la macro 'classeur2.XLS!auto'. Par contre le nom de ma macro ne comporte pas classeur2 ; classeur 2 est le nom du fichier dans lequel est la macro.
Bonjour,
pour trouver le disque concerné, peut-être comme cela :
Code:
Sub test()
Set oFSO = New Scripting.FileSystemObject 'cocher MicrosoftScriptingRuntime
For Each oDrv In oFSO.Drives
If oDrv.DriveType = Removable Then MsgBox "Disquette ou clé USB sur disque " & oDrv.DriveLetter
Next oDrv
End Sub
j'ai simplement modifié ta macro auto ainsi, et cela fonctionne chez moi... à condition d'avoir un fichier AUTO.XLS à la racine de la clé USB sur laquelle est enregistré ce fichier :
VB:
Sub OUVERTURE_AUTO()
Workbooks.Open Filename:=Mid(ThisWorkbook.Path, 1, 3) & "\AUTO.xls", UpdateLinks:=0
End Sub
Ca nous éclaire... ...sauf que cette ligne n'est pas dans le code !
Sub AUTO()
ChDir "D:\A"
ActiveWorkbook.SaveAs Filename:="D:\A\AUTO.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub