Discussion :

[jmde]

Bonjour,

Je voudrais passer en paramètre le champ "ImagePath" et lorsque j'utilise le
code j'obtiens cette erreur :

"Impossible de trouver le champ !" & ImagePath & " auquel il est fait référence"

En passant la souris sur [" & ImagePath & "] je lis bien "ImagePath1"

Code :

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

1
2
3
4
Private Sub ImageFrame1_Click()
'--- Ouverture de la boîte de dialogue
     getFileName1 "ImageFrame1", "ImagePath1"
End Sub

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
20
21
Sub getFileName1(strImageFram As String, Optional ImagePath As String)
'--- Ouverture de la boîte de dialogue
     Dim fileName As String
     Dim result As Integer
 
      With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Add "Tous les fichiers", "*.*"
        .FilterIndex = 2
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
           fileName = Trim(.SelectedItems.Item(1))
           fileName = Right$(fileName, Len(fileName) - InStr(fileName, "PHOTOS") + 1)
 
              Me![" & ImagePath & "].Visible = True
              Me![" & ImagePath & "].SetFocus
              Me![" & ImagePath & "].Text = fileName
        End If
    End With
End Sub

Où se trouve mon erreur ?

Merci pour votre aide.

Salutations

[Jean-Philippe André]

Salut,

je pense que tu cherches à utilser le paramètre de la mauvaise façon, regarde en transformant ton

Code :

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

Me![" & ImagePath & "].Visible = True

en

Code :

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

Me.Controls(ImagePath).Visible = True

[jmde]

Bonsoir jpcheck,

Merci pour ta réponse, elle me convient parfaitement.

Salutations