Sauvegarde d'un fichier

[GADENSEB]

Re Bonjour,
Pour le fichier joint je souhaiterais créer une procédure (via un bouton) pour enregistrer ce fichier :

- Dans un dossier "OLD" présent dans le mm dossier que le fichier en question
- Cette version devra (dans le dossier "OLD") se s'appeler NOTE DIAG DLA - Version X"
- Sachant que dans le dossier OLD, il peut se trouver d'autre version du fichier et donc le "X" devra s'incrémenter 1 puis 2 puis 3......

donc au final il faut :

Dossier :
- NOTE DLA DIAG enregister au plus récent
Dossier / OLD
- NOTE DLA DIAG - Version X

Est-ce clair ?

Je ne sais pas par où commencer le code !


Merci

Bonne aprem

Seb

 

[GADENSEB]

Re : Sauvegarde d'un fichier

Sub SAUVEGARDE_Cliquer()
Dim Répertoire As String, Nf As String, NomFichier As String
Dim N As Long
 
 Répertoire = ActiveWorkbook.Path & "\OLD"

'Si le dossier OLD n'éxiste pas alors je le créer
 If Dir(Répertoire, vbDirectory) = "" Then MkDir (Répertoire)

'et j'incrémente le n° de fichier pour les 2 cas
  NomFichier = ThisWorkbook.Name
  Nf = Dir(Répertoire & "\" & NomFichier & "*" & ".xlsm")
  N = 0
  Do While Nf <> ""
    N = N + 1
    Nf = Dir
  Loop
  
'Sauvegarde une copie du fichier et ne touche donc pas au fichier en cours
  ActiveWorkbook.SaveCopyAs Filename:=Répertoire & "\" & NomFichier & " - V" & N + 1 & ".xlsm"

merciiiii