Bonjour,
J'ai un souci sur l'ecriture d'un petit code VB me permettant de faire un transfert de quelques données de Excel vers un fichier TXT.
voici le code:
Sub Générer_PAT()
'
' Générer_PAT Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+M
' ' Declaration variables
Dim FileName, t As Integer
'Selection de la zone à copier
ActiveSheet.Range("K2" ).CurrentRegion.Select
Selection.Copy
' Demande fichier de sauvegarde
FileName = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt" )
' Ouverture fichier
Open FileName For Output As #1
t = Sendkeys "^v"
' Ecriture de la ligne dans le fichier si non vide
Print #1, t
' Fermeture fichier
Close #1
End Sub
Merci par avance aux gens qui pourront m'aider.