Création chemin save la 1ére fois

Bonjour à tous,

Voici mon petit problème.

J'ai un fichier que je peux à loisir modifier selon mes besoins. Mais lorsque je le confie à une autre personne , je ne veux pas qu'elle "farfouille" dans le code VBA.

Mais selon ses besoins, elle a la nécessite la première fois d'indiquer le chemin du répertoire de sa double sauvegarde sur son PC qui n'est pas le même que le mien.

J'aurais besoin d'une modification de ma macro pour lui permettre la première fois de créer le répertoire en question, mais seulement la première fois afin d'éviter à chaque fois l'opération.

Où seulement changer la date par une date de son choix (cela peut-être aussi une solution).

Est-ce possible ? où alors je me complique la vie !.

Voici le code que j'utilise pour moi.

  Sub SauvegardeDouble()

Dim MonChemin As String
Dim MonCheminDistant As String
Dim LeNom As String
Dim LaDate As String

MonChemin = ThisWorkbook.Path & "\"       ' pour les chemins, ne pas oublier le "\"
MonCheminDistant = "D:\MON DOSSIER\PROJET\GESTION\GESTION ABS 2019\Save\"
LeNom = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)    ' <<< il faut supprimer l'extension du nom afin qu'il ne se répète pas
LaDate = Format(Now, "DD-MM-YY") & ".xlsm" ' format de la date désiré

   ActiveWorkbook.Save

   On Error Resume Next

   Application.DisplayAlerts = False  ' désactive les messages d'alerte
   ActiveWorkbook.SaveAs MonCheminDistant & LeNom & " Save le " & LaDate, FileFormat:=52
   ActiveWorkbook.SaveAs MonChemin & LeNom, FileFormat:=52
   Application.DisplayAlerts = True    ' extrêmement important de les réactiver

Select Case MsgBox("Sauvegarde en double réussie.", , "Double sauvegarde.")

End Select

End Sub
   

Merci pour vos idées.

Daryl.

Bonsoir BALANCIE,

Une idée : mettre le chemin dans une cellule d'une feuille de l'EXCEL et modifier la macro pour récupérer le contenu de cette cellule.

Bonsoir GVIALLES

Pas mal effectivement, j'y avais pensé.

C'est une piste, mais elle oblige la personne à utiliser uniquement ce chemin imposé et non le sien.

Bonne soirée.

Daryl.B

Pourquoi "chemin imposé" puisque si c'est dans une cellule, l'utilisateur a la possibilité d'y indiquer le chemin désiré? Non?

Re bonsoir,

Oh exact. La preuve que je n'ai pas réfléchie.

Je garde l'option, elle est facile à mettre enplace.

Merci.

Daryl .B