Dupliquer un fichier Excel

Version imprimable

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:

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 :koi: ?!

Merci d'aiguiller :king:

26/05/2014, 16h21
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.
26/05/2014, 16h46
Invité

Il faut au minimum la date du jour , je remplace par date ou day ?
26/05/2014, 17h46
letudiant68

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

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:

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 ;)

29/05/2014, 20h37
Invité

Bonsoir

Je refais le programme et ça ne marche pas , je vais poster ce que j'ai refait et vous me direz
30/05/2014, 16h08
parmi

Citation:

ActiveSheet.SaveAs Filename:=lien_nouveau_fichier

Essaie en changeant Activesheet par ActiveWorkbook...

Bonjour,

J'ai retesté avec le "ActiveWorkbook" . Maintenant le programme plante sur le premier "Range". Je vois pas d'ou vient le plantage.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton1_Click()
 
Dim nom_doc_1, nom_doc_2 As String
Dim chemin_doc_1, chemin_doc_2 As String
Dim nom_feuille_1, nom_feuille_2 As String
Dim concat_1, concat_2, concat_3, concat_4, concat_5 As String
Dim trigramme_apv_1, trigramme_apv_2, trigramme_3 As String
 
Range("Portefeuille") = nom_feuille_1 ' récuperation de la feuille du doc de départ
 
Sheets(nom_feuille_1).Range(D6).Value = trigramme_apv_1 ' recuperation du nom de APV pour titre document
 
nom_doc_2 = Year(Date) & Month(Date) & Day(Date) & " " & trigramme_apv_1 & " " & nom_feuille_1 & " APV.xlsx " ' concatenation du nom du nouveau fichier
 
Workbook.Cells(A1, AZ500).Copy ' copier les cellules A1 à AZ500
 
trigramme_3 = InputBox(" Saisir votre abrreviation : ") ' saisir son trigramme
 
concat_1 = "C:\Users\" & trigramme_3 & "\Desktop\" ' destination du fichier
 
MsgBox "Le document va être enregistré ici : " & concat_1 ' information du lieu ou le fichier va être envoyer
 
concat_2 = concat_1 & nom_doc_2 ' depot du fichier a cette adresse
 
ActiveWorkbook.SaveAs Filename:=concat_2  ' comment déspoer le contenu de la feuille de départ sur la feuille dans le nouveau classeur ?
 
' comment avoir le nouveau document à l'écran ?
 
End Sub

Bonjour,test ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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
 
 
 Dim Ws As Worksheet
 Dim Wb As Workbook
 
Set Ws = ActiveSheet
'nom_feuille_classeur = ActiveSheet.Name ' recuperation nom de la feuille dans le classeur de départ
Set Wb = Workbooks.Add
trigramme_apv = Range("D6").Value ' recuperation nom de AVP
 
Ws.Copy before:=Wb.Sheets(1)
 
repertoire_de_sauvegarde = "M:\" ' nom repertoire ou mettre le nouveau fichier
 
nouveau_fichier = Format(Date, "yyyymmdd") & " " & Ws.Range("D6") & " APV " & Ws.Name & " adherents .xlsm " ' nom du nouveau document
 
lien_nouveau_fichier = repertoire_de_sauvegarde & nouveau_fichier ' nouveau document
 
Wb.SaveAs Filename:=lien_nouveau_fichier ' lien nouveau fichier >> problème avec le ActiveSheet.SaveAs et le Filename:= , c est l erreur 1004
Wb.Close False
End Sub

03/06/2014, 14h18
Invité

Bonjour,

Je confirme que le programme fonctionne à merveille :)

Merci