Discussion :

[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


note diag.xls

[had4789]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[GADENSEB]

Je pars là dessus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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

[GADENSEB]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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

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

[GADENSEB]

Yes !
tu avais raison !


Merci !

Bonne aprem

Seb

[clementmarcotte]

Yes !
tu avais raison !


Merci !

Bonne aprem

Seb

Donc le copier-coller est efficace.

[clementmarcotte]

Bonjour,

Bonjour,

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

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