Discussion :

[Bernard67]

Bonjour le forum.

Depuis un formulaire access, je sauvegarde tous les mois mes bases, ainsi que des classeurs contenant des tableaux de bord excel.
Quand le nom des classeurs ne change pas, aucun problème.

Par contre le nom de certains classeurs change tous les mois exemple: TDB DELAI OK 01 pour janvier, TDB DELAI OK 02 pour février ......

Comment modifier ce code pour prendre en compte automatiquement le changement de nom :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim fso As Object
Dim strCurrent, strDest As String
  Set fso = CreateObject("Scripting.FileSystemObject")
 
    strCurrent = "\Chemin\TDB DELAI OK.xlsm"
    strDest = "Chemin\TDB DELAI OK.xlsm" & " " & Format(Now, "yyyy mm dd hh nn ss") '& ".xlsm"
 
      fso.CopyFile strCurrent, strDest
 
  Set fso = Nothing

Merci pour l'aide.

[mumen]

Tu peux envisager de faire la sauvegarde d'un répertoire, non ?

Ou bien de balayer avec Dir("") la liste des feuilles et ne prendre que celles qui ont un nom supérieures à une date ?

PS : tu devrais apprendre ce qu'est l'indentation du code. Ce n'est pas de la cosmétique, c'est utile.

[Bernard67]

Bonjour,
Merci MathieuT pour ta reponse.
Une autre solution c'est de passer par une variable.
mais je ne sais pas faire une variable qui soit ......variable.
Alors si c'est possible .....
merci de me l'indiquer.
bonne journée.

[mumen]

Pour ton fichier TDB DELAI OK.xlsm, admettons qu'il s'appelle

Admettons qu'il s'appelle

TDB DELAI OK 01.xlsm pour janvier
TDB DELAI OK 02.xlsm pour février
etc...
tu peux faire

Code :

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

1
2
strMoisSauvegarde = Format(Date, "mm")
strDest = "Chemin\TDB DELAI OK " & strMoisSauvegarde & ".xlsm" & " " & Format(Now, "yyyy mm dd hh nn ss") '& ".xlsm"

Ou bien si tu as un formulaire avec la valeur a saisir dans un champ nommé MoisSauvegarde ça donne :

Code :

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

strMoisSauvegarde = Forms!MonFormulaire!MoisSauvegarde

[Bernard67]

Bonjour le forum,
Un grand merci MathieuT.
Tu as resolu mon probleme.
Merci encore et bonne journée.