Discussion :

[OlivierLudovic]

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

[MolikDLuffy]

Bonjour Olivier,

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

Merci

[Philippe Tulliez]

Bonjour,

- 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.

[OlivierLudovic]

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 :

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

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

[Philippe Tulliez]

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 :

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

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

[OlivierLudovic]

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