Discussion :

[lilou86]

Bonjour à vous tous,

je souhaite creer une sauvegarde de la feuille fiche d'intervention temporaire de mon fichier fiche d'intervention.xls. Cette sauvegarde doit s'effectuer dans un nouveau fichier ms je voudrais que le nom de mon fichier soit du type : "Fiche d'intervention n° " & [B5] & " du " & [B11] & ".xls" avec [B5] numéro de la fiche et [B11] date de l'intervention entrés préalable dans la fiche temporaire.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub Créer_fichier_sauvegarde()
 
Workbooks("Fiche d'intervention.xls").Worksheets("Fiche d'intervention temporaire").Copy
 
Dim Fichier_sauvegarde As String
Dim Chemin As String
 
Chemin = "G:\SECURITE\Personnel\Emilie DELRIEU\Fiche d'intervention"
Fichier_sauvegarde = "Fiche d'intervention n° " & [B5] & " du " & [B11] & ".xls"
 
ActiveWorkbook.SaveAs Chemin & Fichier_sauvegarde
 
End Sub

le problème que je rencontre c'est que il me sauve le fichier en "AA" (A:Année).xls.
Si j'enlève le [B11] ca marche

Si vous voyez d'où vient le problème n'hésitez pas!

Merci d'avance pouir toute l'aide que vous pourrez m'apporter,
Bonne journée

[J.Michel]

Bonjour,

Tu peux essayer en formatant ta date:

Code :

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

Fichier_sauvegarde = "Fiche d'intervention n° " & Range("B5") & " du " & Format(Range("B11");"ddmmyy") & ".xls"

[lilou86]

Merci beaucoup ca marche tres bien
Bonne journee
@+