Sauvegarde d'un fichier

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


Pièce jointe 153672

Bonjour,

Pour les étapes 1 et 2 je pense que tu peux adapter ça:

Code:

---

1 2 3 4

ThisWorkbook.SaveAs sDossier & "\" & Fichier & ".xls " 'Sauvergarde du dossier

---

Pour l'incrémentation tu peux essayer un = Right"Nom de ton fichier,1" + 1. Tu récupère le numéro de ton dossier et tu ajoutes 1.

Je pars là dessus

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub SAUVEGARDE_Cliquer()   répertoire = ActiveWorkbook.Path & "\ OLD" nomFichier = "NOTE DIAG DLA" nf = Dir(répertoire & "\" & nomFichier & "*") n = 0 Do While nf <> "" n = n + 1 nf = Dir Loop ActiveWorkbook.SaveAs Filename:=répertoire & "\" & nomFichier & " - V" & n + 1     End Sub

---

Comment inclure :

Si le dossier OLD éxiste alors j'incrémente le N° de fichier ?
Si le dossier OLD n'éxiste pas alors je le créer et j'incrémente le n° de fichier ?

Je veux aussi que le fichier d'origine (sans numéro de version) reste ouvert
là dans cette macro le fichier sans numéro de version se ferme et c'est celui avec un numéro de version qui est à l'écran !

Merci

Bonne journée

Seb

Bonjour,

Citation:

---

Je veux aussi que le fichier d'origine (sans numéro de version) reste ouvert
là dans cette macro le fichier sans numéro de version se ferme et c'est celui avec un numéro de version qui est à l'écran !

---

Utilise la méthode SaveCopyAs plutôt que SaveAs

Bonjour,

Cela marche nikel avec ce code que l'on m'a donné sur un autre forum

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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 = "NOTE DIAG DLA" 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"   End Sub

---

Bonjour,

Citation:

---

Cela marche nikel avec ce code que l'on m'a donné sur un autre forum

---

:zekill: Oui donc avec la méthode SaveCopyAs que je t'ai préconisé d'utiliser en lieu et place de SaveAs :scarymov:

Yes !
tu avais raison !


Merci !

Bonne aprem

Seb

Citation:

---

Envoyé par GADENSEB

Yes !
tu avais raison !


Merci !

Bonne aprem

Seb

---

Donc le copier-coller est efficace.:(

Bonjour,

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

:zekill: Oui donc avec la méthode SaveCopyAs que je t'ai préconisé d'utiliser en lieu et place de SaveAs :scarymov:

---

En conclusion, il y a des fois où il faut regretter de perdre du temps à répondre. :( ;)