bon bein g réussi à bidouiller kelke chose ki revient à ça donc si y en a ke ça interesse je laisse le code ici:
Dim wb As Workbook
'retient le nom du classeur sur lequel je travaille
nom_active = ActiveWorkbook.Name
'ouvre la boite de dialogue du choix du .bjt à importer et enregistre l'arborescence dans chemin
Chemin = Application.GetOpenFilename(Title:="Choix du fichier B-JAC (.BJT) à importer" )
'ouverture du fichier de type txt avec virgule comme séparateur
Workbooks.OpenText Filename:=Chemin, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1))
'enregistre les noms de tous les classeur excel ouvert
'nom=nom du dernier classeur ouvert donc celui ouvert précédement
For Each wb In Workbooks
nom = wb.Name
Next wb
'se place sur le classeur ouvert et copie les colonne de A à F
Windows(nom).Activate
Sheets(1).Select
Columns("A:F" ).Copy
'se place sur le classeur d'où la macro est lancé et colle
Windows(nom_active).Activate
Sheets("feuille_destination_collage" ).Select
Range("A1" ).Select
ActiveSheet.Paste
'permets d'éviter la question sur le presse-papier lors de la fermeture du classeur crée
Application.DisplayAlerts = False
'fermeture du classeur crée
Windows(nom).Close
Application.DisplayAlerts = True
Y oré t-il klkun ki pourrait me dire comment j'oré pu faire pour récupérer le nombre de feuille d'un classeur???
