Discussion :

[aiklad]

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 :

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

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 :

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

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 :

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

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

[MarcClap]

Bonjour,

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

Code :

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

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 :

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

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

[aiklad]

Bonjour,

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

Code :

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

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 :

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.

[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 :

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

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"

[aiklad]

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 :

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

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