ENREGISTRER SOUS

fatalfifou -  
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

  • Votes
  • Date
  • Date décroissante
  1. cousinhub29
    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?
    1. fatalfifou Auteur
      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!!!!!!!