XL 2019 "Sauvegarde de données"

[ThomasBRD]

Bonjour à tous !
Comment allez-vous?

Comme vous l'avez vu dans le titre je rencontre un problème... j'ai tout détaillé dans l'excel joint à cette discussion...

Merci par avance
Thomas

 

[fanch55]

Bonsoir,
A tester si cela correspond à l'attente :

Sub Save_Querytab()

    ' Nom de la table et de l'onglet contenant
    Target = MonthName(Month(Date))
    
    ' On copie la table générée par la requête sur le web
    [Table_0].ListObject.Range.Copy
    
    On Error Resume Next
        Sheets(Target).Activate
        If Err > 0 Then Sheets.Add.Name = Target
        
        With ActiveSheet
            ' on détruit la table cible
            .ListObjects(Target).Delete
            .[A1].Select
            ' on colle la copie
            .Paste
            Selection.ListObject.Name = "Février"
            Selection.Columns.AutoFit
           ' on détruit la requête associée à la nouvelle table ( créée par le paste )
            Q = Split(.ListObjects(Target).QueryTable.CommandText, "[")(1)
            Q = Split(Q, "]")(0)
            ActiveWorkbook.Queries(Q).Delete
        End With
    
    On Error GoTo 0
    
End Sub