Import fichier xls depuis web - Méthode QueryTables

Version imprimable

Bonjour à tous,
Je vais essayer d'être le plus clair possible.

Avant, je disposais d'un répertoire sur le réseau de mon entreprise dans lequel des fichiers étaient archivées chaque semaine (format xls, xlsx).
J'ai créé une macro permettant de sélectionner chaque semaine le fichier le plus récent et permettant de l'importer dans un autre classeur afin d'effectuer différentes manipulations. J'utilisais la méthode proposé par Silkyroad

Maintenant, les répertoires réseaux n'existent plus. Tous les fichiers sont répertoriés en ligne. Il suffit de cliquer sur les titres des liens pour qu'une boite de dialogue nous propose de l'ouvrir ou l'enregistrer.

J'ai donc essayé d'importer les fichiers xls depuis le web grâce à la méthode "QueryTables". Malheureusement, le code ci-dessous ne fonctionne pas avec les fichiers xls (mais aucun problème avec les fichiers dont l'extension est txt).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Sub Test() With Sheets("Destination").QueryTables.Add(Connection:= _ "URL;http://blablabla/MonFichier.xls" _ , Destination:=Range("$A$1")) .Name = "MonFichier" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = True .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub
Le problème s'affiche sur la ligne .RefreshbackgroundQuery

Les fichiers dont j'ai besoin n'existent qu'au format xls et non au format txt, je me demandais donc si il était possible d'importer un fichier avec une telle extension. De ce que j'ai lu sur différents forums, il est aisé d'importer les fichiers csv, txt mais je n'ai pas vu d'exemple avec des fichiers xls..
Je fais donc appel à vous dans l'espoir que vous connaissiez une solution à mon problème :oops:

Merci par avance :) !

06/09/2016, 10h56
Marc-L

Bonjour, bonjour !

Tout fichier Excel est ouvrable directement même via une URL, donc via le B-A-BA : Workbooks.Open !

Voilà, voilà !

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
06/09/2016, 11h22
Alasgard

En effet.. :oops:
Merci beaucoup !
06/09/2016, 11h30
Marc-L

Attention, un fichier Excel est aussi directement importable via QueryTable.

Encore faut-il avoir les droits d'accès (réseau, Intranet) et que les réponses fournis à son assistant
lors de la génération du code via l'Enregistreur de macros fussent correctes …
06/09/2016, 11h43
Alasgard

Est ce qu'il y'a un gain de temps à passer par cette solution ?
Le but pour moi est d'ouvrir la feuille et copier les données dans un autre classeur.

Merci beaucoup pour ces renseignements :)!
06/09/2016, 11h56
Marc-L

Franchement je n'ai jamais comparé les performances
mais j'aurais une préférence pour QueryTable évitant la méthode Range.Copy sans compter l'ouverture, la fermeture …
06/09/2016, 12h06
Alasgard

D'accord, merci pour tout encore :) !
06/09/2016, 12h24
Marc-L

Il manque la référence à la feuille de calculs devant le Range de la ligne n°4 !
(Pas grave si la feuille de destination est celle active …)

Astuces pour QueryTable :

• si l'importation se fait uniquement par code sans rafraîchissement d'un précédent QueryTable déjà enregistré
dans la feuille de calculs, ajouter alors entre les lignes n°24 & 25 l'instruction .Delete car
il est inutile de conserver la connexion au niveau de la feuille, cela alourdit la taille du classeur pour rien !

• Pleins de lignes générées ne sont pas indispensables car valeur par défaut, juste en consultant l'aide VBA interne.
Exemple en tenant compte du point précédent : lignes n°5 à 7, 9 à 11, 13 et 14, 16 …

Merci, j'ai allégé un peu le code et ai précisé la feuille de destination grâce à tes conseils !
Code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 With Sheets("Destination").QueryTables.Add(Connection:= _ "URL;http://blablabla/MonFichier.xls" _ , Destination:=Sheets("Destination").Range("$A$1")) .FillAdjacentFormulas = False .RefreshStyle = xlInsertDeleteCells .AdjustColumnWidth = True .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = True .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False .Delete 'Pour ne pas conserver le lien alourdissant le classeur End With
J''ai malheureusement une erreur sur la ligne

Code:

.Refresh BackgroundQuery:=False

L'erreur est: "Run-time error '1004': Invalid Web Query"

Le lien que j'ai inséré fonctionne très bien (d'ailleurs avec Workbooks.Open je n'ai aucun souci donc c'est déjà ça :) ).
J'ai essayé de désactiver les alertes car je pensais que c'était peut être due à l'influence de la boite de dialogue mais ça n'a rien changé.

06/09/2016, 14h47
Marc-L

Si avec le fichier enregistré sur le disque dur en local le code passe (avec le chemin à jour),
alors cela pourrait être une restriction d'accès …