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