Bonjour à tous,
J'exploite une base de données dans Excel 2019 par une requête SQL afin de travailler dessus.
J'ai crée une macro pour sauvegarder dans un nouvel onglet à la date du jour les données avant de réactualiser la requête.
Ce qui donne cette petite macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub Mise_à_jour_stock() 'on actualise la requête à la bonne date ActiveWorkbook.Connections("Requête*-*DP_STOCKS").Refresh 'on sauvegarde le tableau dans un nouvel onglet à la date du jour Sheets("SQL").Copy after:=Sheets("SQL") Sheets("SQL (2)").Name = Format(Date, "dd-mmm") 'on retourne au premier onglet Sheets("Synthèse").Select End Sub
Je ne trouve pas le moyen de supprimer la requête dans le nouvel onglet crée.
En effet, ce dernier reste.
Ce qui fait que quand j'actualise la requête SQL, les onglets à la date antérieur s'actualisent aussi avec les données du jour.
J'ai essayé plusieurs solutions sans que cela ne fonctionne.
Je pensais que cette solution simple pouvait marcher mais ce n'est pas le cas. Auriez-vous une idée ?
Par avance merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Mise_à_jour_stock() ActiveWorkbook.Connections("Requête*-*DP_STOCKS").Refresh Sheets("SQL").Copy after:=Sheets("SQL") Sheets("SQL (2)").Name = Format(Date, "dd-mmm") Activesheets.Querytables(1).Delete Sheets("Synthèse").Select End Sub
Cordialement
Partager