Plantage macro VBA

[Bernard-Louis]

Bonjour a toutes et tous.

Je fais appel a vos connaissaces VBA pour un plantage sur cette macro :
Le probleme se pose sur cette instruction :

Selection.QueryTable.Delete

Quelqu'un pourrait il me donner la cause, du fait que cette macro tourne depuis des mois sans probleme.

Sub Effacer_les_donnees()
'
' Effacer_les_donnees Macro
' Macro enregistrée le 16/10/2006
'

'
ActiveWindow.SmallScroll Down:=-3
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Selection.QueryTable.Delete
Sheets("CCC").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("DDD").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("NNN").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub

Avec mes remerciements.
Cordialement et bonne journée.

 

[gbinforme]

Re : Plantage macro VBA

bonjour

Tu as enregistré ta macro mais pour la lancer à nouveau, il faut être dans les mêmes conditions.

Pour pouvoir faire ta suppression il aurait fallu recréer...

 

[kiki29]

Re : Plantage macro VBA

Plantage : Avec quel message d'erreur ?

 

[Bernard-Louis]

Re : Plantage macro VBA

Bonjour,

Elle bloque sur cette ligne et il faut deboguer pour pouvoir continuer.
Merci

 

[kiki29]

Re : Plantage macro VBA

Une remarque sur l'optimisation manuelle de ton code :
Sheets("XYZ").UsedRange.Offset(1).ClearContents remplace avantagement 4 lignes ...

Sinon tu devrais avoir un message d'erreur du style "Erreur d'exécution 1004 ..." ?

En fait en recréant une requete web sur une page
le Delete fonctionne correctement la 1ere fois
mais ensuite cette requete ayant été détruite le message d'erreur est normal

 

[Bernard-Louis]

Re : Plantage macro VBA

Merci KIKI29,
Je vais regarder cela de plus pres cet AM
Merci et bonne journée.
Cordialement