Bonjour à tous,
Je tourne en rond depuis un petit moment sur un problème de "zippage" de répertoire.
J'ai un fichier avec cette macro :
Celle-ci fonctionne bien lorsque je suis sur C:\ par contre lorsque je suis sur V:\ ça ne me crée pas le zip.
Le chemin d'accès à 7zip est bon dans les 2 cas, j'ai vérifié et même réinstallé. Mes noms de fichier sont bons aussi, je ne vois vraiment pas d'où cela peut provenir.
Détails qui peuvent avoir de l'importance :
1 - lorsque je suis sur V:\ c'est un serveur sur lequel je travaille à distance avec "Connexion bureau à distance".
2 - le fichier contenant la macro se trouve dans le répertoire à zipper, mais ça fonctionne dans le cas de C:\, donc ça ne devrait pas gêner.
Je mets quand même le fichier, mais il est on ne peut plus simple.
Merci d'avance pour vos réponses
Yaloo
Je tourne en rond depuis un petit moment sur un problème de "zippage" de répertoire.
J'ai un fichier avec cette macro :
VB:
Sub essai()
RepVente = ThisWorkbook.Path & "\" 'Répertoire source
RepBase = Mid(ThisWorkbook.Path, 1, InStrRev(ThisWorkbook.Path, "\") - 1) & "\" 'Répertoire destination
If RepBase = "V:\" Then
ChDir RepBase 'Changement de répertoire
Shell "V:\7-Zip\7z.exe a -tzip Vente.zip ""V:\Vente\""" 'Zippage du répertoire source dans répertoire destination
ElseIf RepBase = "C:\" Then
ChDir RepBase
Shell "C:\Program Files\7-Zip\7z.exe a -tzip Vente.zip ""C:\Vente\""" 'Zippage du répertoire source dans répertoire destination
End If
Anc = RepBase & "Vente.zip"
Nouv = RepBase & "Vente " & Format(Date, "yymmdd") & ".zip"
Name Anc As Nouv 'Modification avec la date du jour
End Sub
Celle-ci fonctionne bien lorsque je suis sur C:\ par contre lorsque je suis sur V:\ ça ne me crée pas le zip.
Le chemin d'accès à 7zip est bon dans les 2 cas, j'ai vérifié et même réinstallé. Mes noms de fichier sont bons aussi, je ne vois vraiment pas d'où cela peut provenir.
Détails qui peuvent avoir de l'importance :
1 - lorsque je suis sur V:\ c'est un serveur sur lequel je travaille à distance avec "Connexion bureau à distance".
2 - le fichier contenant la macro se trouve dans le répertoire à zipper, mais ça fonctionne dans le cas de C:\, donc ça ne devrait pas gêner.
Je mets quand même le fichier, mais il est on ne peut plus simple.
Merci d'avance pour vos réponses
Yaloo