Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Macro pour supprimer l'actualisation des données

Macro pour supprimer l'actualisation des données

2 réponses
Avatar
marchepied
Bonjours,
J'ai une base excel avec actualisation des données.
Je recherche une macro qui me supprimerai cette actualisation.
j'ai trouvé sur le forum la macro suivante:
Sub xxx()
With Worksheets(1).QueryTables(1)
If .Refreshing Then .CancelRefresh
End With
Mais, pour ma base, je ne sais pas la position de l'onglet
concerné.(1, 2,3 ...)
Car j'ai une base initial avec actualisation, ma macro copie la
feuille avec un nouvel onglet avec le jours en cours comme nom
d'onglet. Et c'est sur cette copy de base, que je voudrai supprimer
l'actualisation des données.
Merci pour votre aide,
Marchepied,
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Olivier
si j'ai bien compris, il faut simplement que tu remplaces le (1) de
Worksheets par le nom de l'onglet concerné en format String
Worksheets("19012004").querytables(1)

Olivier


"marchepied" a écrit dans le message de news:

Bonjours,
J'ai une base excel avec actualisation des données.
Je recherche une macro qui me supprimerai cette actualisation.
j'ai trouvé sur le forum la macro suivante:
Sub xxx()
With Worksheets(1).QueryTables(1)
If .Refreshing Then .CancelRefresh
End With
Mais, pour ma base, je ne sais pas la position de l'onglet
concerné.(1, 2,3 ...)
Car j'ai une base initial avec actualisation, ma macro copie la
feuille avec un nouvel onglet avec le jours en cours comme nom
d'onglet. Et c'est sur cette copy de base, que je voudrai supprimer
l'actualisation des données.
Merci pour votre aide,
Marchepied,


Avatar
Marchepied
Bonjour,
Merci Olivier pour la réponse, mais maheureusement, ça ne
marche pas. J'ai mis ci-dessous ma macro complète. Je
l'exécute (il n'y a pas d'erreur) après je regarde la
feuille ,et elle est toujours en "actualisation de
données" !
La feuille s'appelant "19" , j'ai même essayé avec:
With Worksheets("19").QueryTables(1)
et toujours le même rèsultat.
Si ça peux aider, quand je l'exécute ligne par ligne, la
ligne en exécution est jaune. Mais quand j'arrive à
"If .Refreshing Then .CancelRefresh" le
"If .Refreshing Then" est jaune, mais le ".CancelRefresh"
reste blanc.
Si vous avez une idée, Merci,
Marchepied,

Sub copy_onglet_jours()
Sheets("base").Copy After:=Sheets(Sheets.Count)
onglet = Left(Range("a2"), 2)
ActiveSheet.Name = onglet
With Worksheets(onglet).QueryTables(1)
If .Refreshing Then .CancelRefresh
End With
ActiveSheet.Shapes("bouton 1").Delete
ActiveSheet.Shapes("bouton 2").Delete
Sheets("base").Select
End Sub

-----Message d'origine-----
si j'ai bien compris, il faut simplement que tu remplaces
le (1) de

Worksheets par le nom de l'onglet concerné en format
String

Worksheets("19012004").querytables(1)

Olivier


"marchepied" a écrit dans le
message de news:


Bonjours,
J'ai une base excel avec actualisation des données.
Je recherche une macro qui me supprimerai cette
actualisation.


j'ai trouvé sur le forum la macro suivante:
Sub xxx()
With Worksheets(1).QueryTables(1)
If .Refreshing Then .CancelRefresh
End With
Mais, pour ma base, je ne sais pas la position de
l'onglet


concerné.(1, 2,3 ...)
Car j'ai une base initial avec actualisation, ma macro
copie la


feuille avec un nouvel onglet avec le jours en cours
comme nom


d'onglet. Et c'est sur cette copy de base, que je
voudrai supprimer


l'actualisation des données.
Merci pour votre aide,
Marchepied,



.