Bonjour,
Dans ma macro, j'ai besoin de récupérer le nom de mon fichier pour l'attribuer au nom de mon tableau mis en forme.
Pouvez-vous m'aiguiller ?
Merci à vous.
vivi21
Dans ma macro, j'ai besoin de récupérer le nom de mon fichier pour l'attribuer au nom de mon tableau mis en forme.
VB:
Macro4 Macro
'
'
Sheets("TAB").Visible = True
Sheets("TAB").Select
Rows("1:1000000").Select
Selection.Clear 'ou Selection.delete shift:=xlUp
Sheets("Consolidation").Visible = True
Sheets("Consolidation").Select
Range("A3:I423").Select
Selection.Copy
Sheets("TAB").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TAB").Select
Range("A1:I421").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$421"), , xlYes).Name = _
"Tableau2"
Range("Tableau2[#All]").Select
ActiveSheet.ListObjects("Tableau2").TableStyle = "TableStyleLight1"
ActiveSheet.ListObjects("Tableau2").Name = "TAB_VIERGE"
Sheets("Consolidation").Visible = False
Sheets("TAB").Visible = False
Pouvez-vous m'aiguiller ?
Merci à vous.
vivi21