Bonjour à tous,
Je fais suite à ce post où la réponse correspond bien à ma demande.
Je souhaite faire un fichier zip, contenant un répertoire avec plusieurs sous-répertoire et le fichier qui contient la macro.
En fait, je pensais qu'en réalisant un zip du répertoire mon fichier allait se retrouver dedans, mais que nenni, mon fichier ne se retrouve pas dans le zip.
En gros, j'ai ça :
Avec la macro ci-dessous, j'obtiens ça :
Voici la macro
J'avais pensé faire un autre classeur pour lancer la procédure de Zip mais cela m'oblige à fermer mon classeur actif et donc difficile de lancer le reste de ma procédure.
Je ne m'y prend sûrement pas bien, faut-il lancer la macro d'un autre fichier ? Mais dans ce cas-là, comment lancer le reste de ma procédure.
Merci d'avance pour vos réponses.
Yaloo
PS : si vous avez d'autres solutions sans passer par 7-Zip, je suis preneur.
Je fais suite à ce post où la réponse correspond bien à ma demande.
Je souhaite faire un fichier zip, contenant un répertoire avec plusieurs sous-répertoire et le fichier qui contient la macro.
En fait, je pensais qu'en réalisant un zip du répertoire mon fichier allait se retrouver dedans, mais que nenni, mon fichier ne se retrouve pas dans le zip.
En gros, j'ai ça :
Repertoire
----Sous-rep 1
----Sous-rep 2
----Sous-rep 2
----Zipper un répertoire.xlsm
Avec la macro ci-dessous, j'obtiens ça :
Repertoire
----Sous-rep 1
----Sous-rep 2
----Sous-rep 2
Voici la macro
VB:
Private Sub CommandButton1_Click()
RepBase = Mid(ThisWorkbook.Path, 1, InStrRev(ThisWorkbook.Path, "\") - 1) & "\"
If RepBase = "V:\" Then
ChDrive "V"
ChDir RepBase
Shell "V:\7-Zip\7z.exe a -tzip essai.zip ""V:\essai\"""
ElseIf RepBase = "C:\" Then
ChDir RepBase
Shell "C:\Program Files\7-Zip\7z.exe a -tzip essai.zip ""C:\essai\"""
End If
Anc = RepBase & "essai.zip"
Nouv = RepBase & "essai " & Format(Date, "yymmdd") & ".zip"
Name Anc As Nouv
'...Le reste de ma procédure
End Sub
J'avais pensé faire un autre classeur pour lancer la procédure de Zip mais cela m'oblige à fermer mon classeur actif et donc difficile de lancer le reste de ma procédure.
Je ne m'y prend sûrement pas bien, faut-il lancer la macro d'un autre fichier ? Mais dans ce cas-là, comment lancer le reste de ma procédure.
Merci d'avance pour vos réponses.
Yaloo
PS : si vous avez d'autres solutions sans passer par 7-Zip, je suis preneur.