loutredijon
XLDnaute Nouveau
Bonsoir,
Je bloque sur une macro:
Sub FichierTXT()
Application.DisplayAlerts = False
'Choisis la feuille que tu veux transformer en TXT
Worksheets("Feuil1").Copy
'Sauvegarde en TXT de la feuille choisie
With ActiveWorkbook
.SaveAs FileName:=Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt"), FileFormat:=xlTextWindows, local:=True
.Close False
End With
Application.DisplayAlerts = False
End Sub
Elle me demande d'enregistrer le nom du fichier, le transforme bien en .txt mais met des espace entre chaque caractére alors que je voudraid mettre entre chaque caractère un ;
Et est ce qu'il est possible de ne commencer la conversion en txt cas partir de la ligne 5.
Merci par avance
Bonne soirée
Je bloque sur une macro:
Sub FichierTXT()
Application.DisplayAlerts = False
'Choisis la feuille que tu veux transformer en TXT
Worksheets("Feuil1").Copy
'Sauvegarde en TXT de la feuille choisie
With ActiveWorkbook
.SaveAs FileName:=Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt"), FileFormat:=xlTextWindows, local:=True
.Close False
End With
Application.DisplayAlerts = False
End Sub
Elle me demande d'enregistrer le nom du fichier, le transforme bien en .txt mais met des espace entre chaque caractére alors que je voudraid mettre entre chaque caractère un ;
Et est ce qu'il est possible de ne commencer la conversion en txt cas partir de la ligne 5.
Merci par avance
Bonne soirée