Bonjour à tous,
Dans ma macro j'importe des données externes via requête, je nomme mon tableau en "BD_compta",
Ensuite je transforme en plage et j'ai mes données à traiter.
La première fois que je lance la macro pas de problème, sauf que lorsque je la relance j'ai le message :
"Ce nom existe déjà, utilisez un nom unique"
Lors du commencement de ma macro je test si nom existe, s'il existe alors supprimé.
Je précise que je modifie mon code car je dois adapter à excel 2013, en effet sur excel 2016 tout fonctionne!!
Quand j'ouvre gestionnaire de nom : "BD_compta" n'y est pas... j'en perd mon latin!!
Merci d'avance pour vos retours.
Dans ma macro j'importe des données externes via requête, je nomme mon tableau en "BD_compta",
Code:
With Sheets("BD").ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DSN=dBASE Files;DefaultDir=" & chemin & ";DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _
, Destination:=Range("$A$1")).QueryTable
.CommandText = requetea
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = _
"BD_compta" '"Tableau_Lancer_la_requête_à_partir_de_dBASE_Files"
.Refresh BackgroundQuery:=False
End With
Ensuite je transforme en plage et j'ai mes données à traiter.
La première fois que je lance la macro pas de problème, sauf que lorsque je la relance j'ai le message :
"Ce nom existe déjà, utilisez un nom unique"
Lors du commencement de ma macro je test si nom existe, s'il existe alors supprimé.
Code:
If FeuilleExiste(ThisWorkbook, "BD") Then
Call sup_feuilles
Call ajouter_feuilles
ActiveWorkbook.Names("BD_compta").Delete
Je précise que je modifie mon code car je dois adapter à excel 2013, en effet sur excel 2016 tout fonctionne!!
Quand j'ouvre gestionnaire de nom : "BD_compta" n'y est pas... j'en perd mon latin!!
Merci d'avance pour vos retours.