Discussion :

[brubel]

Bonjour
je suis à court de ressources ...
Je veux importer les données d'une feuille provenant d'un autre classeur. Le nom de cette feuille est donné par une cellule dans la feuille active.
Avec le code plus bas, j'obtient un message 9 : l'indice n'appartient pas à la sélection. L'erreur arrive à la dernière ligne.
Si quelqu'un a une idée ...

Code :

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

1
2
3
4
5
6
7
8
9
Dim Chemin As String, no_dossier As String, fichier As String, doss_param As String, doss_a_importer As String, WB As Workbook
ActiveSheet.Range("e6") = Worksheets("Paramètres").Range("b11") 'Dossier
doss_param = Range("E6") 'affiche le nom du client qui donnera son nom au fichier
no_dossier = "Flat-" & doss_param 'C'est le nom du fichier
Chemin = ThisWorkbook.Path
fichier = Chemin & "\" & no_dossier & ".xlsx"
Range("b8") = fichier
 
Sheets("Transition").Range("C12:c13").Value = worksheets(no_dossier).Sheets("Flat Rapp annuel ULC-s536(537)").Range("F10:f11").Value

[clementmarcotte]

Bonjour,

As-tu VRAIMENT (sans aucune faute) des feuilles "Transition" et "Flat Rapp annuel ULC-s536(537)" ?

Également, j'ai comme la vague impression que l'utilisation d'une collection Worksheets sans désigner le classeur qui est supposé la contenir, est plutôt risquée. D'autant plus que tu as déjà une collection sheets qui a le même rôle qu'une collection sheets.

Essaie plutôt avec :

Code :

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

Sheets("Transition").Range("C12:c13").Value = workbooks(no_dossier).Sheets("Flat Rapp annuel ULC-s536(537)").Range("F10:f11").Value

(En supposant que tu aies un classeur ouvert affecté à la variable no_dossier)

[brubel]

Bonsoir Clément
merci pour l'aide

J'ai effectivement les feuilles spécifiées et écrites sans fautes.
le fichier "externe" est ouvert.

J'ai essayé ta solution en copiant collant ta ligne sans résultats positifs.
Je continue de chercher...

Le but d'avoir le nom du classeur dans une variable selon une valeur d'une cellule est pour éviter d'avoir à chercher le fichier à ouvrir.

[brubel]

Finalement, il ne manquait que le ".xlsx" à la fin du no_dossier...

erreur de débutant