XL 2019 Fermeture intempestive de formulaire

[gbinforme]

Bonjour à tous,

Je suis confronté à un souci dont je ne comprend pas la cause.
J'ai 2 formulaires assez basiques avec textbox, labels, listbox qui vont chercher des informations
à la fois sur le classeur et sur le web pour documenter la listbox et/ou des labels.

Cela fonctionne très correctement sauf que lorsque le traitement est effectué
le formulaire se ferme sans que l'on puisse faire le traitement sur les données affichées.

Comme dans certains cas le formulaire reste affiché, je ne comprends pas
la fermeture dans la plupart des affichages.
Dans le cas des labels, j'ai résolu le souci en enregistrant les informations sur une feuille
mais je ne peut pas faire de même pour celui avec listbox.

Si quelqu'un a la moindre idée à me proposer je l'en remercie d'avance.

 

[fanch55]

Bonsoir,
avec ce code et "WinHttp.WinHttpRequest.5.1", toujours le même retour ("Bad Request") mais pas de fermeture du usf.

Bad Request est normal pour un site Https avec la méthode POST.
Je pense qu'on veut obtenir une page d'info, il faudrait faire un GET .

 

[fanch55]

Classeur à tester ( méthode Get )

 

[Gégé-45550]

Bad Request est normal pour un site Https avec la méthode POST.
Je pense qu'on veut obtenir une page d'info, il faudrait faire un GET .

=> "Échec de la redirection HTTP requise" !

 

[Gégé-45550]

Classeur à tester ( méthode Get )

=> fermeture du usf ! 🙄

 

[TooFatBoy]

=> fermeture du usf ! 🙄

Ah ! 😀 Enfin un espoir ! Je teste ça de suite le classeur de fanch55.


[edit]
Youpi ! Ca ferme enfin le UserForm "de façon intempestive" chez moi aussi ! Merci !
[/edit]

 

[fanch55]

=> fermeture du usf ! 🙄

????? pas pareil que moi ???

 

[Gégé-45550]

Classeur à tester ( méthode Get )

mais avec "Sit = "https://excel-downloads.com/whats-new/posts/624463/", bizarrement, ça marche !
et maintenant, avec "Sit = "https://excel-downloads.com/threads/lier-deux-planning-excel.20074097/", ça marche aussi.
Je n'ai toujours pas compris pourquoi ça n'a pas marché la première fois mais maintenant tout à l'air nickel. BRAVO !!!

 

[Gégé-45550]

????? pas pareil que moi ???
Regarde la pièce jointe 1162901

Si, si, maintenant tout est OK. Encore bravo !

 

[TooFatBoy]

J'aurais une question : le .Paste est censé paster quoi et surtout où ?
Est-ce le contenu du presse-papier qui est censé être pasté ?

Et autre question : à quoi sert l'assignation de tmp à la ligne juste en-dessous ?

 

[Gégé-45550]

J'aurais une question : le .Paste est censé paster quoi et surtout où ?
Est-ce le contenu du presse-papier qui est censé être pasté ?

Et autre question : à quoi sert l'assignation de tmp à la ligne juste en-dessous ?

Hello l'ami,
il me semble que la variable tmp set à stocker le contenu de la page visitée dans le press-papier (tmp = .ParentWindow.clipboardData.SetData("text", .body.innerhtml))
puis ce contenu est "pasté" dans la feuille "Mot".
Enfin, peut-être que je me trompe.

 

[TooFatBoy]

C'est aussi ce que j'ai compris, mais tmp est une variable locale et elle n'a pas l'air d'être utilisée après sa seconde assignation. D'où ma question. 😉

 

[TooFatBoy]

puis ce contenu est "pasté" dans la feuille "Mot".

OK.

Donc on doit pouvoir remplacer .Paste par Worksheets("mots").Range("A1").Paste par exemple.
Or si je fais ça, le UserForm rest vide. Donc je me demandais où le .Paste était censé paster ses données.

 

[Gégé-45550]

C'est aussi ce que j'ai compris, mais tmp est une variable locale et elle n'a pas l'air d'être utilisée après sa seconde assignation. D'où ma question. 😉

la seconde assignation vide le clipboard (tmp = doc.ParentWindow.clipboardData.ClearData("text")) => ClearData

 

[TooFatBoy]

la seconde assignation vide le clipboard (tmp = doc.ParentWindow.clipboardData.ClearData("text")) => ClearData

Ah d'accord. Merci pour cette information.
🤩 You're the best !👍


Suis trop con : j'avais pas vu le .ClearData... 🙄 🙃

 

[Gégé-45550]

OK.

Donc on doit pouvoir remplacer .Paste par Worksheets("mots").Range("A1").Paste par exemple.
Or si je fais ça, le UserForm rest vide. Donc je me pose me demandais où le .Paste était censé paster ses données.

À mon avis, c'est parce que les données à coller sont dans le clipboard (tmp) et que si tu fais ...Range("A1").Paste, tu n'adresse pas la variable tmp car c'est son contenu qu'il faut coller, me semble-t-il