XL 2016 Donner le nom du fichier à mon tableau mis en forme

vivi21 · 13 Décembre 2022

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.

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

ThierryP · 13 Décembre 2022

Bonjour,

Quelque chose comme ceci devrait le faire :

VB:

Sub Nomme_Tableau()
Sheets("TAB").UsedRange.ClearContents
Sheets("Consolidation").Range("A3:I423").Copy
Sheets("TAB").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With Sheets("TAB")
    .ListObjects.Add(xlSrcRange, .Range("$A$1:$I$421"), , xlYes).Name = ThisWorkbook.Name 'L'extension est incluse dans le Name
    .ListObjects.Add(xlSrcRange, .Range("$A$1:$I$421"), , xlYes).Name = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)
End With
End Sub

vivi21 · 13 Décembre 2022

ThierryP à dit:

Bonjour,

Quelque chose comme ceci devrait le faire :

VB:

Sub Nomme_Tableau()
Sheets("TAB").UsedRange.ClearContents
Sheets("Consolidation").Range("A3:I423").Copy
Sheets("TAB").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With Sheets("TAB")
    .ListObjects.Add(xlSrcRange, .Range("$A$1:$I$421"), , xlYes).Name = ThisWorkbook.Name 'L'extension est incluse dans le Name
    .ListObjects.Add(xlSrcRange, .Range("$A$1:$I$421"), , xlYes).Name = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)
End With
End Sub

Merci Thierry cela fonctionne bien.

XL 2016 Donner le nom du fichier à mon tableau mis en forme

vivi21

XLDnaute Occasionnel

ThierryP

XLDnaute Occasionnel

vivi21

XLDnaute Occasionnel

Discussions similaires