Bonjour le forum
J'ai cette Macro qui me permet d'importer un fichier .txt dans un classeur exel.
je cherche le moyen d'ajouter sur chaque ligne du fichier importer le NOM DU FICHIER.
Si j'importe le fichier 17-06-2020.txt je voudrais qu'il soit indiquer 17-06-2020.txt dans la colonne "J"
Sub Importer()
Application.ScreenUpdating = False
Set monWB = ActiveWorkbook
ChDrive "S:" ' Choix du lecteur
ChDir "S:\SAUVEGARDE\SUIVI BADGE SYNCRONIQUE\EXTRACTION"
w = Application.GetOpenFilename(, , , , True)
For i = 1 To UBound(w)
Workbooks.Open (w(i))
Set wb = ActiveWorkbook
For Each f In wb.Worksheets
f.Cells.Copy
monWB.Sheets.Add After:=monWB.Sheets(monWB.Sheets.Count)
monWB.Activate
On Error GoTo DéjàImporté
ActiveSheet.Name = f.Name
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Next f
Application.CutCopyMode = False
wb.Close False
Next i
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("RECAP").Select
Range("A65000").End(xlUp).Offset(1).Select
ActiveSheet.Paste
Exit Sub
DéjàImporté:
Application.DisplayAlerts = False
ActiveSheet.Delete
wb.Activate
MsgBox "Le nom de cette feuille exite déjà dans le fichier " & monWB.Name, 16
Application.ScreenUpdating = True
End Sub
Merci de votre aide