Discussion :

[orectum]

Bonjour,

Je souhaite automatiser des fichiers Excel en ajoutant une connexion de données à partir du WEB (Requêtes VIGILENS). Arrivée au point " .Refresh BackgroundQuery:=False" , le fichier ne répond pas

J'ai parfois une erreur automation, le client est déconnecté...

J'ai fais pas mal d'essais mais j'arrive toujours au même problème (temps d'attente au moment du refresh dans le code)

En pas à pas cela fonctionne très bien, mais pas en automatique...

Merci pour votre aide

[Menhir]

En pas à pas cela fonctionne très bien, mais pas en automatique...

Généralement, ce symptôme est caractéristique de la nécessité d'ajouter une (au moins) tempo dans le code pour attendre qu'une opération extérieure ait terminé de se réaliser.

[orectum]

J'essais ce code, avez-vous mieux ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    .Refresh BackgroundQuery:=False
    Application.Wait Now + TimeValue("0:00:02")

[Menhir]

Si c'est sur cette ligne que ça plante, c'est que le besoin de tempo est avant et non après.

[orectum]

Je viens de faire plusieurs tests en vain. Je doit mettre la tempo après sinon il ne fait rien

Ci-dessous mon code, en sachant que je teste la cellule pour continuer ma pause. La MAJ change ma valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    .Refresh BackgroundQuery:=False
Do While Range("A1") <> "SXDTAC"
  Application.Wait Now + TimeValue("0:00:05")
Loop

Il faudrait que je test la connexion au serveur plutôt que d'attendre l'erreur...

J'ai le message dans l'image

[Marc-L]

Bonjour,

juste en passant certaines pages Web ne passent pas avec un objet QueryTable ou avec le contrôle WebBrowser …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[patricktoulon]

bonjour
ceci:
est tout bonnement inneceptable a mon gout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
.Refresh BackgroundQuery:=False
 Do While Range("A1") <> "SXDTAC"
  Application.Wait Now + TimeValue("0:00:05")
 Loop

pourrait on avoir une url si ca n'est pas confidentiel

[orectum]

Bonjour,

juste en passant certaines pages Web ne passent pas avec un objet QueryTable ou avec le contrôle WebBrowser …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

Dans mon cas sa fonctionne mais pas à chaque fois