ENREGISTRER SOUS

fatalfifou Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
fatalfifou Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je souhaite trouver une solution pour faire enregistrer sous tous seul je m'explique
J ai un fichier "xlsx" qui s'appelle P1 et je veux faire 1250 fichiers similaire qui s'apelerai P2 P3 P4 P5......pour ensuite faire des liens hypertexte est ce que quelqu'un à une solution??????


2 réponses

cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 
Bonsoir,

Peut-être ainsi :

Sub enreg_tout_plein()
Dim Chemin As String, NomFichier As String
Dim I As Integer
Chemin = ActiveWorkbook.Path & "\"
NomFichier = Split(Dir(ThisWorkbook.Name), ".")(0)
For I = 1 To 1250
    ActiveWorkbook.SaveAs Filename:=Chemin & NomFichier & I & ".xlsx"
Next I
End Sub


Peut-être?
0
fatalfifou Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Dsl,
c'est sympa mais je suis pas un grand spécialiste!
Je n'est pas tout compris peut tu m'expliqué d'avantage merci!!!!!!!
0