FAIRE 1000 COPIES D'UN CLASSEUR EXCEL

Résolu
Gwen59000 Messages postés 51 Date d'inscription   Statut Membre Dernière intervention   -  
Gwen59000 Messages postés 51 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un classeur excel nommé "Nouveau client affretement.xls" que je voudrais copier 1000 fois dans le même répertoire et les nommer du n° 1.xls au n° 1000.xls .

Emplacement classeur d'origine : C:\Documents and Settings\gwenael.B_LESQUIN\Bureau\récapitulatif Clients\Clients\Clients Affretement\Nouveau client affretement.xls

pourrier vous m'aider avec une macro ?

Bonne soirée,
A voir également:

2 réponses

Réponse 1 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour, 

Sub copie()
    Dim p As String, i As Long
    p = "C:\tmp\"
    For i = 1 To 10
        ActiveWorkbook.SaveAs Filename:=p & i & ".xls"
        ' si tu veux un nom+nombre.xls remplace
        ' Filename:=p & i & ".xls" par Filename:=p & "nom" & i & ".xls"
    Next i
End Sub


Remplace le répertoire par le tien et teste avec 10.
Ensuite : 
For i = 11 To 1000

eric
0
Réponse 2 / 2
Gwen59000 Messages postés 51 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour eric,

Merci beaucoup, la macro fonctionne terriblement !

A +
Gwénaël
0

Discussions similaires

Différence 1000 Mbit/s et 1 Gb/s
BurjKhalifa -
kaumune -

4 réponses