Zipper un répertoire avec 7zip sous C: ou V:

[Yaloo]

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 :

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

 

[tototiti2008]

Re : Zipper un répertoire avec 7zip sous C: ou V:

Bonjour Yaloo,

que vaut thisworkbook.path quand tu es sur le V: ?

 

[STephane]

Re : Zipper un répertoire avec 7zip sous C: ou V:

ChDir sert à changer de répertoire actif.
ChDrive sert à changer de disque actif, et peut être nécessaire avant ChDir.

 

[Yaloo]

Re : Zipper un répertoire avec 7zip sous C: ou V:

Bonjour tototiti,

Voici la réponse
thisworkbook.path = V:\Vente

C'est pour ça que j'ai mis :

RepBase = Mid(ThisWorkbook.Path, 1, InStrRev(ThisWorkbook.Path, "\") - 1) & "\"

Cela me "remonte" d'un cran dans l'arborescence et je rajoute & "\" pour avoir "V:\"

Avec C:\ ça fonctionne bien, c'est bizarre.

A+

 

[Yaloo]

Re : Zipper un répertoire avec 7zip sous C: ou V:

Bonjour STephane,

En effet, avec ChDrive avant ChDir ça fonctionne.

Je ne me l'explique pas bien, puisque avec ChDir on change de répertoire, le disque actif n'a pas besoin d'être changé puisque je suis déjà dessus. 😕

Merci encore

Yaloo