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.