[Excel 2010] Problème pour appeler un fichier internet ouvert dans excel

Bonjour,

Ce problème est peut-être très simple mais, décidément, je n'arrive pas à le résoudre.

Je vous présente la situation. Je code une macro dans un classeur excel nommé Récup_Fichier qui, entre autres, ouvre un fichier internet avec le code que voici :

Code:

---

1 2 3

Dim fichier As String fichier = "https://www.edf.fr/doaat/export/light/all-versions?1509109620.xlsx" Workbooks.Open fichier

---

Mon problème c'est que je n'arrive pas à appeler ce classeur dans ma macro. J'ai essayé avec son nom et son numéro (il y a juste mon classeur Récup_Fichier d'ouvert avant que la macro n'ouvre le fichier en question) :

Code:

---

1 2 3

Const SourceWs As String = "Sheet1" 'Nom par défaut de l'onglet du fichier téléchargé Workbooks("all-versions.xlsx").Worksheets(SourceWs).Range("E4") Workbooks(2).Worksheets(SourceWs).Range("E4")

---

Mais rien n'y fait, à chaque fois, j'ai "erreur d'exécution '9' : l'indice n'appartient pas à la sélection", sans que je comprenne pourquoi.

A noter que l'instruction :

Code:

---

1 2 3

Dim NomD As String NomD = ActiveWorkbook.Name MsgBox NomD

---

me renvoie bien "all-versions".

Si quelqu'un arrive à voir d'où vient le problème, je serais très intéressé par son explication.

Cordialement,
Aiklad

Bonjour,

Une chose m'étonne, c'est le nom du fichier

Code:

---

fichier = "https://www.edf.fr/doaat/export/light/all-versions?1509109620.xlsx"

---

Comment peut-il contenir un "?", le caractère n'est pas autorisé dans un nom de fichier.

EDIT

J'ai répondu trop vite, ce n'est pas un nom de fichier c'est un lien.

En revanche, la séquence suivante ne marche pas chez moi, j'ai une erreur "Objet requis"

Code:

---

1 2 3 4 5

Sub test() Dim fichier As String fichier = "https://www.edf.fr/doaat/export/light/all-versions?1509109620.xlsx" Workbooks.Open fichier End Sub

---

Citation:

---

Envoyé par MarcClap

Bonjour,

Une chose m'étonne, c'est le nom du fichier

Code:

---

fichier = "https://www.edf.fr/doaat/export/light/all-versions?1509109620.xlsx"

---

Comment peut-il contenir un "?", le caractère n'est pas autorisé dans un nom de fichier.

---

Bonjour MarcClap,

J'ai déjà ouvert dans excel des fichiers issus d'internet avec des "?" dans les liens, je ne me souviens pas avoir rencontré de problème jusqu'ici. En tout cas, l'ouverture du fichier en question se passe sans encombre chez moi.

Le fichier est disponible au téléchargement ici (site d'EDF). Il s'agit de "Toutes les versions de chaque indisponibilité (.xlsx)"

EDIT :

Citation:

---

Envoyé par MarcClap

J'ai répondu trop vite, ce n'est pas un nom de fichier c'est un lien.

En revanche, la séquence suivante ne marche pas chez moi, j'ai une erreur "Objet requis"

---

C'est curieux, cela fonctionne pourtant chez moi.

Ok ça marche aussi, je ne sais pas pourquoi j'ai eu ce message d'erreur la première fois

Voilà ce que j'ai codé

Code:

---

1 2 3 4 5 6 7 8

Sub test() Const SourceWs As String = "Sheet1" 'Nom par défaut de l'onglet du fichier téléchargé Dim fichier As String Dim Classeur As Workbook fichier = "https://www.edf.fr/doaat/export/light/all-versions?1509109620.xlsx" Set Classeur = Workbooks.Open(fichier) MsgBox Classeur.Worksheets(SourceWs).Range("E4") End Sub

---

Et ma boite de dialogue affiche bien le contenu de la cellule E4 : "Réservoir hydraulique"

Citation:

---

Envoyé par MarcClap

Ok ça marche aussi, je ne sais pas pourquoi j'ai eu ce message d'erreur la première fois

Voilà ce que j'ai codé

Code:

---

1 2 3 4 5 6 7 8

Sub test() Const SourceWs As String = "Sheet1" 'Nom par défaut de l'onglet du fichier téléchargé Dim fichier As String Dim Classeur As Workbook fichier = "https://www.edf.fr/doaat/export/light/all-versions?1509109620.xlsx" Set Classeur = Workbooks.Open(fichier) MsgBox Classeur.Worksheets(SourceWs).Range("E4") End Sub

---

Et ma boite de dialogue affiche bien le contenu de la cellule E4 : "Réservoir hydraulique"

---

Rebonjour,

Cela fonctionne également chez moi, je vous remercie beaucoup de m'avoir donné la solution, cela faisait plusieurs jours que je devais me contenter de "ActiveWorkbook à tout va, pas très propre, ni très stable...

Encore merci !

Je vous souhaite un excellent après-midi.

Cordialement,
Aiklad