ENREGISTRER SOUS

fatalfifou Messages postés 4 Statut Membre -  
fatalfifou Messages postés 4 Statut Membre -
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

  1.
    cousinhub29 Messages postés 1112 Date d'inscription   Statut Membre Dernière intervention   383
     
    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
  2. fatalfifou Messages postés 4 Statut Membre
     
    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