tu fais Alt+F11, puis sur la gauche de ton écran, tu dois voir ton fichier. Tu cliques-droit dessus, puis Insertion, puis Module. Tu colles mon code ajusté à ta sauce, puis tu fais F5 dessus, et c'est parti !!
Ca marche ?
CAP2
"Nico" a écrit dans le message de news:
Merci pour ta réponse rapide,
Je le met où ce code ? O_o
Salut,
tu fais Alt+F11, puis sur la gauche de ton écran, tu dois voir ton fichier.
Tu cliques-droit dessus, puis Insertion, puis Module. Tu colles mon code
ajusté à ta sauce, puis tu fais F5 dessus, et c'est parti !!
Ca marche ?
CAP2
"Nico" <Nico@discussions.microsoft.com> a écrit dans le message de news:
C0ACA77E-1230-47EF-B178-8258A71CE8CD@microsoft.com...
tu fais Alt+F11, puis sur la gauche de ton écran, tu dois voir ton fichier. Tu cliques-droit dessus, puis Insertion, puis Module. Tu colles mon code ajusté à ta sauce, puis tu fais F5 dessus, et c'est parti !!
Ca marche ?
CAP2
"Nico" a écrit dans le message de news:
Merci pour ta réponse rapide,
Je le met où ce code ? O_o
Nico
Merci a vous,
Ca marche nickel, mais il y a encore un petit soucis, je voudrai que les 1000XLS soit crées d'avance (feuille vierge)
Du coups, quand je clique un lien, il me dit : impossible d'ouvrir la page
Merci encore.
Merci a vous,
Ca marche nickel, mais il y a encore un petit soucis,
je voudrai que les 1000XLS soit crées d'avance (feuille vierge)
Du coups, quand je clique un lien, il me dit : impossible d'ouvrir la page
pour créer les fichiers vierges avant de lancer l'autre macro, tu fais :
Sub Creer() Dim i as integer
For i =1 to 1000
Workbooks.Add ActiveWorkbook.SaveAs Filename:= _ "C:Documents and SettingsNeuroMes documents" & i & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _ CreateBackup:úlse
Next
End Sub
Ca marche ?
Ca marche pas il est rouge le code...
CAP2
;o))
C'est juste dans les retours à la ligne de mon code. Il faut que tu supprimes le signe _ (par exemple au niveau de la ligne "ActiveWorkbook.SaveAs Filename:= _", et que tu fasses remonter le texte du dessous sur la mâme ligne, et ça va le faire !!
Ca marche ?
CAP2
"Nico" a écrit dans le message de news:
"CAP2" a écrit :
Salut,
pour créer les fichiers vierges avant de lancer l'autre macro, tu fais :
Sub Creer() Dim i as integer
For i =1 to 1000
Workbooks.Add ActiveWorkbook.SaveAs Filename:= _ "C:Documents and SettingsNeuroMes documents" & i & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _ CreateBackup:úlse
Next
End Sub
Ca marche ?
Ca marche pas il est rouge le code...
;o))
C'est juste dans les retours à la ligne de mon code. Il faut que tu
supprimes le signe _ (par exemple au niveau de la ligne
"ActiveWorkbook.SaveAs Filename:= _", et que tu fasses remonter le texte du
dessous sur la mâme ligne, et ça va le faire !!
Ca marche ?
CAP2
"Nico" <Nico@discussions.microsoft.com> a écrit dans le message de news:
4AB169C3-F1A3-4F35-949A-CED349D413F2@microsoft.com...
"CAP2" a écrit :
Salut,
pour créer les fichiers vierges avant de lancer l'autre macro, tu fais :
Sub Creer()
Dim i as integer
For i =1 to 1000
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsNeuroMes documents" & i & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _
CreateBackup:úlse
C'est juste dans les retours à la ligne de mon code. Il faut que tu supprimes le signe _ (par exemple au niveau de la ligne "ActiveWorkbook.SaveAs Filename:= _", et que tu fasses remonter le texte du dessous sur la mâme ligne, et ça va le faire !!
Ca marche ?
CAP2
"Nico" a écrit dans le message de news:
"CAP2" a écrit :
Salut,
pour créer les fichiers vierges avant de lancer l'autre macro, tu fais :
Sub Creer() Dim i as integer
For i =1 to 1000
Workbooks.Add ActiveWorkbook.SaveAs Filename:= _ "C:Documents and SettingsNeuroMes documents" & i & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _ CreateBackup:úlse