Changer l'adresse d'un fichier

[maval]

Bonjour,

J'ai sur mon fichier une liste de nom de film en colonne "B"et lorsque je click sur un nom j'ai un formulaire qui s'affiche avec l'image qui correspond à la cellule, pour ceci j'ai comme code ceci qui fonctionne trés bien

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 2 And Target.Count = 1 Then
    If Target <> "" Then
   
      répertoireImage = ThisWorkbook.Path
      NomImage = Target
      If Dir(répertoireImage & "\" & NomImage & ".jpg") <> "" Then
        UserFVisualiser.Image1.PictureSizeMode = fmPictureSizeModeStretch
        UserFVisualiser.Image1.Picture = LoadPicture(répertoireImage & "\" & NomImage & ".jpg")
        For i = 1 To 4
          UserFVisualiser.Controls("textbox" & i) = Target.Offset(, i - 1)
        Next i
        UserFVisualiser.Show
      End If
    End If
  End If
 End Sub

Mon problème est que je suis obligé de mettre mon fichier dans le dossiers de mes images

répertoireImage = ThisWorkbook.Path

, alors que j'aimerai avoir comme adresse "répertoire = "E:\Film\Covers\" je ne sais comment faire?

je vous remercie d'avance

 

[Pierrot93]

Re : Changer l'adresse d'un fichier

Bonjour,

bah... modifie ceci :

répertoireImage = ThisWorkbook.Path

comme cela :

répertoireImage = "E:\Film\Covers"

bonne journée
@+

 

[maval]

Re : Changer l'adresse d'un fichier

Bonjour Pierrot

Oui tu as raison je ne suis pas encore reveiller

Merci et bonne journée