bonjour,
j'ai créé une macro qui sauvegarde un fichier txt avec le nom trouvé dans une cellule.
donc j'ai un bouton sur chaque page mais voila je commence à avoir beaucoup de page et je voudrais pouvoir créer tout mes fichiers txt à la fermeture du fichier en une seule fois (un par page).
car à chaque ouverture il y as plein de modif à faire et il arrive d'oublier de sauver un fichier.
à l'avance merci pour votre aide.
Daniel
Sub envoitxt()
Dim fichier As String
fichier = Range("g6").Text
Application.ScreenUpdating = False
SauveZoneFichierTexte Feuil1.Range("c1:c100"), fichier & ".txt"
Application.ScreenUpdating = True
End Sub
Private Sub SauveZoneFichierTexte(rZone As Range, stName As String)
Dim f As Integer
Dim c As Range
Dim i As Integer
f = FreeFile
Open stName For Output As #f
For Each c In rZone
temp = Split(c.Text, Chr(10))
For i = 0 To UBound(temp)
' MsgBox temp(i)
Print #f, temp(i)
Next i
Next
Close f
End Sub