FAIRE 1000 COPIES D'UN CLASSEUR EXCEL Résolu

Question

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,

eriiic · Answer

Bonjour,

Sub copie()
    Dim p As String, i As Long
    p = "C:	mp\"
    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

Gwen59000 · Answer

Bonjour eric,

Merci beaucoup, la macro fonctionne terriblement !

A +
Gwénaël

FAIRE 1000 COPIES D'UN CLASSEUR EXCEL

2 réponses

Discussions similaires

Newsletters