Bonjour,

J'ai un classeur Excel avec 12 feuilles . J'ai une feuille que je dois copier sur un nouveau document. Ce nouveau document doit avoir comme nom le nom de l'ancienne feuille de classeur + récupérer la valeur d'un champs contenu dans une cellule + la date du jour

Voici le code :

Code vb : 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
23
24
 Private Sub CommandButton1_Click()
 
Dim nom_feuille_classeur As String
Dim nom_document As String
Dim trigramme_apv As String
Dim nouveau_fichier As String
Dim repertoire_de_sauvegarde As String
Dim lien_nouveau_fichier As String
 
nom_feuille_classeur = ActiveSheet.Name ' recuperation nom de la feuille dans le classeur de départ
 
trigramme_apv = Range("D1").Value ' recuperation nom de AVP
 
ActiveSheet.Copy
 
repertoire_de_sauvegarde = "C:\" ' nom repertoire ou mettre le nouveau fichier
 
nouveau_fichier = nom_feuille_classeur & " " & trigramme_apv & Now & " .xlsm " ' nom du nouveau document
 
lien_nouveau_fichier = repertoire_de_sauvegarde & nouveau_fichier ' nouveau document
 
ActiveWorkbook.SaveAs lien_nouveau_fichier ' lien nouveau fichier
 
End Sub

J'ai une erreur 1004 sur la ligne " ActiveWorkbook.SaveAs lien_nouveau_fichier ' lien nouveau fichier ".

Je ne vois pas ou est le problème ?!

Merci d'aiguiller