Accéder à un fichier Excel via un chemin recréé en texte en VBA

Bonjour,
Je débute en VBA et aurais besoin d'un petit coup de main.
J'utilise Excel 2016 depuis quelques années donc jusque là, ça va, et je voudrais via VBA accéder à des images placées dans des fichiers Excel (1 image par fichier, et tous les fichiers dans un même répertoire.
Dans mon Excel, je réécris le chemin du fichier en fonction des choix réalisés via des listes de choix, et reconstitue ce chemin dans une cellule, ceci en format texte après être passé par un concaténer. Le but est d'ouvrir ce fichier d'en extraire l'image qui bien que bien sûr différente dans chaque fichier, à un nom similaire dans chaque fichier. Mon codage fonctionne en partie, mais j'ai 2 soucis :
- Cela fonctionne effectivement si je rentre un chemin en dur dans mon code... mais impossible de sélectionner le chemin via le texte sélectionné dans la cellule "A1". Sur le papier cela me paraissait pourtant être basique...vraiment débutant...
- Je n'arrive pas à rentrer dans mon code, le mot de passe commun à tous les fichiers. Je n'y arrive que via une boite de dialogue, ce qui n'est pas le but, car il faudrait que tous les utilisateurs connaissent le mot de passe donc plus aucun intérêt de protéger ...
Si quelqu'un peut me donner des pistes, je suis preneur.
Cordialement
Olivier

Bonjour Olivier,

Serait-il possible que vous puissiez afficher votre code afin d'avoir une meilleure vue de votre situation ?

Merci ;)

Bonjour,

Citation:

---

- Cela fonctionne effectivement si je rentre un chemin en dur dans mon code... mais impossible de sélectionner le chemin via le texte sélectionné dans la cellule "A1". Sur le papier cela me paraissait pourtant être basique...vraiment débutant...
- Je n'arrive pas à rentrer dans mon code, le mot de passe commun à tous les fichiers. Je n'y arrive que via une boite de dialogue, ce qui n'est pas le but, car il faudrait que tous les utilisateurs connaissent le mot de passe donc plus aucun intérêt de protéger ...

---

Concernant la première partie de votre question.
Si vous voulez charger le contenu de la cellule A1, il faut utiliser la propriété Value de l'objet Range
Exemple : PathName = ThisWorkbook.Worksheets("Parameter").Range("A1").Value
Quant à la seconde partie, j'avoue que cela me semble obscur.
Si vous placez le mot de passe dans une variable ou dans une constante en "dur", je ne vois pas non plus l'intérêt de protéger les fichiers.

Bonjour,

Merci à tous les deux, j'avais bien trouvé la solution de ma première question qui n'était pas très pertinente, je l'avoue...
Pour ce qui est du mot de passe, les différents fichiers sont visibles par tous, et afin qu'ils ne puissent être modifiés, il y a un mot de passe à l'ouverture. C'est juste par mesure de précaution, ce n'est pas pour en empêcher l'accès. Puisque, en effet, la feuille de calculs permet l'accès à l'image via une sélection précise mais aussi à un ensemble de données propres à cette image. J'espère avoir été clair.
Donc le code fonctionne (bien que certainement très loin d'être optimisé...), mais il m'est toujours demandé le mot de passe à l'ouverture du fichier de l'image.

Pour le code utilisé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Macro1() ' ' Macro1 Macro ' Dim Nom_image As String   Nom_image = Range("B8").Value Workbooks.Open Filename:="D:\Image\" & Nom_image & ".xlsx" ActiveSheet.Unprotect Password:="mdp" 'et ici, cela ne sert à rien, il m'est toujours demandé le mot de passe. Mais le code passe sans pb pour le reste. ActiveSheet.Shapes.Range(Array("scan")).Select Application.CutCopyMode = False Selection.Copy ActiveWindow.Close Sheets("Plan").Select ActiveSheet.Shapes.Range(Array("scan")).Select Selection.Delete Range("D23").Select ActiveSheet.Paste End Sub

---

Cordialement

Bonjour,
Si vous avez protégé votre classeur, c'est à l'ouverture de celui-ci qu'il faut utiliser le mot de passe
Exemple

Code:

---

1 2 3 4 5 6 7 8 9

Sub Main() Const Workbook_Name As String = "Workbook_Name.xlsx" ' Nom du classeur à ouvrir Dim FullPath As String Dim FullName As String FullPath = ThisWorkbook.Path FullName = FullPath & "\" & Workbook_Name ' Ouverture du classeur Workbooks.Open FileName:=FullName, Password:="pass" End Sub

---

Parfait. Merci beaucoup pour votre aide.
Je vais essayer de m'y mettre sérieusement, le résultat est vraiment pas mal...