Discussion :

[Atoplix]

Bonjour,

Je vais tenter d'expliquer mon problème le plus simplement possible. Si vous ne comprenez pas, n'hésitez pas à poser des questions. Merci

Je m'excuse par avance, si ce problème a déjà été résolu auparavant. J'ai beau chercher sur le net, je n'ai pas trouvé la solution à mon problème...

Mon problème :

J'utilise un userform qui lors de son ouverture cache un workbook (classeur) via ce code :

Code :

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

1
2
WorkBookName = ActiveWorkbook.Name
Windows(WorkBookName).Visible = False

Un moment donné, j'ai besoin d'accéder à un nom définissant une cellule d'une feuille de calcul de mon workbook :

Code :

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

1
2
Dim LieuxStock() As String
LieuxStock = Split(Range("LISTE_LIEUX_STOCKAGE"), "/:*:/")

Le problème, c'est qu'à ce moment là, le workbook en question est caché.

J'obtiens du coup, l'erreur "La méthode Range de l'objet Global a échoué".

Une solution possible (mais pas du tout optimisé pour mon cas) serait de rendre visible temporairement le workbook, de le selectionner et de le recacher une fois terminé.

Une autre solution serait de spécifier dans quel workbook on cherche le nom défini :

Code :

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

1
2
Dim LieuxStock() As String
LieuxStock = Split(Windows(WorkBookName).Range("LISTE_LIEUX_STOCKAGE"), "/:*:/")

Mais cela ne marche pas et je ne sais pas si cela est possible !

Est-ce que vous voyiez là où je veux en venir ?

Merci !

[Atoplix]

N'ayant toujours pas de réponse, je vais poser ma question autrement :


Comment peut on lire des "noms définis" dans un "workbook A" (classeur) depuis un "workbook B" ?

Imaginons, je suis actuellement dans le "workbook B" et j'ai besoin de récupérer un "nom défini" dans le le "workbook A" ayant pour nom "LISTE_LIEUX_STOCKAGE".

Si je fais ce code dans le "workbook A", ça marche !

Code :

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

Range("LISTE_LIEUX_STOCKAGE")

Si je le fais dans le "workbook B", ça plante !

J'obtiens l'erreur d'éxécution '1004' "La méthode 'Range' de l'objet '_Global' a échoué".

C'est normal car il cherche le nom défini dans le workbook actif (donc le "workbook B") et je n'arrive justement pas à lui préciser que c'est dans le "workbook A" qu'il faut le trouver.

Need Help !

[Marc-L]

Bonjour,

en indiquant juste le classeur et la feuille avant la plage : Workbooks("A").Range("NomFeuille!LISTE_LIEUX_STOCKAGE") …




_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Atoplix]

Marc-L
Non ça ne marche pas, si je fais :

Code :

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

Workbooks("nom_de_mon_workbook" & ".xls").Range("LISTE_LIEUX_STOCKAGE")

J'obtiens l'erreur :

Erreur d'exécution '438' Propriété ou méthode non gérée par cet objet


Rdurupt

Merci par contre (en oubliant mon code dans mon premier post) si mon nom "LISTE_LIEUX_STOCKAGE" défini une plage de cellule où chaque cellule a pour valeur un lieu de stockage, comment je fais ?

[Marc-L]

Il manque la feuille de calculs, voir le code de Robert et mon précédent message !

[Atoplix]

Marc-L

J'ai toujours le même soucis avec la même erreur.

Je crois que c'est le ".Range(...)" juste après le Workbook("A") qui pose problème.

[Invité]

Bonjour,
en imaginant que "LISTE_LIEUX_STOCKAGE" est une cellule pas une plage de cellules!

Code :

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

1
2
3
4
5
6
7
8
Private Sub test()
Dim Wb As Workbook, R As Range
Set Wb = ActiveWorkbook
Windows(Wb.Name).Visible = False
Set R = Wb.Sheets("Data").Range("LISTE_LIEUX_STOCKAGE")
LieuxStock = Split(R, "/:*:/")
Windows(Wb.Name).Visible = True
End Sub