ENREGISTRER SOUS
fatalfifou
Messages postés
4
Statut
Membre
-
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??????
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??????
A voir également:
- ENREGISTRER SOUS
- Audacity enregistrer son pc - Guide
- Comment enregistrer une conversation - Guide
- Enregistrer son ecran - Guide
- Comment enregistrer un mail - Guide
- Comment enregistrer une video youtube - Guide
2 réponses
Bonsoir,
Peut-être ainsi :
Peut-être?
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?
