ActiveWorkbook.FollowHyperlink ne fonctionne plus

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'utilise ActiveWorkbook.FollowHyperlink pour automatiser le transfert d'un fichier cvs depuis un site internet.
J'ai fait un fichier avec le module qui pose problème.
Code:

1 2 3 4 5 6 Private Sub CommandButton1_Click() Dim l_URL As String l_URL = "http://s599720764.onlinehome.fr/cartocistes/export_csv.php?idRegion=23" ActiveWorkbook.FollowHyperlink Address:=l_URL Windows("export_csv.php").Activate End Sub
Tout se passait bien jusqu'à ce que mon disque dur rende l'âme.
Après changement de disque, restauration W10, ré-installation des applications (notamment Office2003), il y a un problème avec ActiveWorkbook.FollowHyperlink.
Avant, l'obtenais un onglet avec le fichier csv, maintenant, le fichier csv est placé dans le répertoire "Downloads" et le focus est placé sur le browser et non plus sur mon classeur, et Excel se plante sur la ligne Windows("export_csv.php").Activate car cet onglet n'existe pas.

Petite info sur le code.
Le lien "http://s599720764.onlinehome.fr/cartocistes/export_csv.php?idRegion=23" ouvre une page sur laquelle il est possible de télécharger en cvs un fichier.
C'est pour automatiser ce transfert que j'utilise ActiveWorkbook.FollowHyperlink.

J'ai vérifié auprès d'autres personnes qui utilisent ce code et ce site, rien n'a changé et cela fonctionne.

Précision qui a peut-être rien à voir.
Je possède une version personnelle de Office2003 sur CD. Lors de l'installation j'ai eu l'erreur suivante :
Erreur 1919 ODBC Visual FoxPro Database Not found.
J'ai recherché ce logiciel, il n'a plus été mis à jour depuis plus de 10 ans, et je ne l'ai jamais installé sur mon ordi.

Merci de votre aide.

29/06/2017, 22h22
78chris

Bonjour

Concernant l'installation de 2003, le faire en mode contrôlé et non tout auto afin de n'installer que les convertisseurs nécessaires...

Pour le répertoire de téléchargement cela doit se paramétrer je pense...

2003 n'es pas considéré comme compatible Windows 10 mais fonctionne à peu près : vérifier néanmoins les conseils donnés dur le Web à ce propos...
01/07/2017, 20h34
geracole

Bonsoir chris78 et autres membres,

J'ai bien fait tout comme il faut, mais le résultat est identique.:(
Le professionnel qui m'a changé le disque et ré-installé windows 10 peut-il avoir une version différente de celle du grand public avec une dll qui réagirait différemment ?

J'ai essayé de contourner le problème en monitorant l'erreur et en ouvrant le fichier .cvs restauré. C'est bon.
Mais, lors du téléchargement la fonction à activé la fenêtre du browser, du coup après mon traitement qui se passe bien, je ne suis plus dans mon application Excel.
Quelqu'un peut-il me dire comment faire pour conserver le focus sur le classeur ?

Merci.
21/02/2019, 17h04
geracole

Relance
Bonjour,
Je relance ce sujet qui n'a pas trouvé de réponse.
J'ai bricolé une solution de contournement qui ne convient plus, alors si quelqu'un avait une idée de ce qui cloche sur mon PC ce serait super.
Résumé :
Avec le source ci-dessous je désire télécharger dans un classeur EXCEL le contenu d'un fichier .csv pointé par une Url.
Code:

1 2 3 4 5 Sub LoadAuto77() l_Url = "http://nanougat.alwaysdata.net/cartographie77/fichier-csv.php" ThisWorkbook.FollowHyperlink l_Url, , True End Sub
Sur tous les PC à qui j'ai envoyé ce code, ça marche. Sauf le mien. Windows 10 Excel 2003.
Même sur mon vieux XP c'est OK.

Sur mon PC, le fichier cartographie_77 est téléchargé dans Downloads et c'est tout, il n'est pas copié dans un classeur.
POURQUOI ?
Cela ne semble pas un pb EXCEL puisque avec le même excel 2003 ça fonctionne sur mon XP.

Autre symptôme.
Si j'ouvre IE ou Edge et que j'envoie l'url http://nanougat.alwaysdata.net/carto...ichier-csv.php
le navigateur me demande ce que je veux faire du fichier : l'ouvrir ou le sauvegarder. Si je demande ouvrir, rien ne se passe.
Chrome ne me demande rien et le télécharge dans Downloads.

On dirait un setting dans internet qui bloque la possibilité d'Ouvrir le fichier.

Quelqu'un a une idée ?
Merci.
22/02/2019, 00h19
78chris

Bonjour

Les dernières MAJ de Windows 10 ne permettent plus un fonctionnement normal de 2003...
22/02/2019, 10h00
Patrice740
Bonjour,

Citation:

Envoyé par 78chris

Les dernières MAJ de Windows 10 ne permettent plus un fonctionnement normal de 2003...
Citation:
Envoyé par geracole

Avec le source ci-dessous je désire télécharger dans un classeur EXCEL le contenu d'un fichier .csv pointé par une Url.

Code:

1 2 3 4 5 Sub LoadAuto77() l_Url = "http://nanougat.alwaysdata.net/cartographie77/fichier-csv.php" ThisWorkbook.FollowHyperlink l_Url, , True End Sub

.
Avec W10 1803 et Excel2003 chez moi ça fonctionne.
22/02/2019, 15h53
78chris

RE

C'est 1809 qui a sonné le glas...
22/02/2019, 16h13
geracole

Compris.

Je vais donc abandonner 2003.
Par quoi remplacer ? 2007, 2010 ??
J'ai besoin que mon code soit compatible avec 2007. Si j'installe 2010 sera-ce le cas ?

Merci pour vous réponses.
22/02/2019, 17h02
geracole

Mon Windows 10 est aussi en 1803.
Patrice, quand tu dis, "chez moi ça fonctionne", cela signifie bien que le classeur "fichier-csv.php" est crée, avec une feuille "fichier-csv" garnie avec des données, ou que le fichier est téléchargé dans Downloads ?

Je viens d'installer Office 2007.
Le problème est toujours là.

:?:(
22/02/2019, 17h25
Patrice740

1 pièce(s) jointe(s)

Citation:

Envoyé par geracole

Mon Windows 10 est aussi en 1803.
Patrice, quand tu dis, "chez moi ça fonctionne", cela signifie bien que le classeur "fichier-csv.php" est crée, avec une feuille "fichier-csv" garnie avec des données .

Exactement.
Pièce jointe 452507
22/02/2019, 17h37
geracole

Faut-il que j'ouvre un dossier chez Microsoft ? ai-je une chance que cela aboutisse ?
22/02/2019, 18h00
Patrice740

Citation:

Envoyé par geracole

Faut-il que j'ouvre un dossier chez Microsoft ? ai-je une chance que cela aboutisse ?

Tu peux essayer sur le Forum Microsoft Community / Office ...

Ton problème est peut-être lié à ton navigateur. Chez moi, par défaut c'est Firefox, j'utilise aussi Chrome, jamais IE (et j'ai désinstallé Edge).