Discussion :

[Invité]

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

[letudiant68]

Bonjour, tu utilises un Now dans le nom du fichier, or Now renvoie une date au format "dd/mm/yyyy hh:mm:ss" et les ":" sont interdits dans un nom de fichier.

[Invité]

Il faut au minimum la date du jour , je remplace par date ou day ?

[letudiant68]

Date devrait marcher car il me semble qu'il ne renvoi pas l'heure avec.

[Invité]

Salut ,

Ma dernière ligne de commande ne crée pas le fichier comme voulu .

Cas 1 : je veux créer le fichier sur le M:/ , il s'ouvre avec le bon nom de fichier mais pas de trace sur le répertoire réseau M:/
Cas 2 : je veux créer le fichier sur le C:/ ou le D:/ en local sur ma machine , le fichier s'ouvre mais avec le mauvais nom "Classeur X" et nul trace du fichier en local ...

Code vba :

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("D6").Value ' recuperation nom de AVP
 
ActiveSheet.Copy
 
repertoire_de_sauvegarde = "M:\" ' nom repertoire ou mettre le nouveau fichier
 
nouveau_fichier = Year(Date) & Month(Date) & Day(Date) & " " & trigramme_apv & " APV " & nom_feuille_classeur & " adherents .xlsm " ' nom du nouveau document
 
lien_nouveau_fichier = repertoire_de_sauvegarde & nouveau_fichier ' nouveau document
 
ActiveSheet.SaveAs Filename:=lien_nouveau_fichier ' lien nouveau fichier >> problème avec le ActiveSheet.SaveAs et le Filename:= , c est l erreur 1004
 
End Sub

Merci de m'aiguiller

[Invité]

Bonsoir

Je refais le programme et ça ne marche pas , je vais poster ce que j'ai refait et vous me direz