Discussion :

[HDU71000]

Hello,

j'ai un souci, surement con, mais je souhaiterai récupérer un nom de fichier via un formulaire.

J'ai créé une fonction publique, comme ceci :

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
Public SelectionFichier As Long
  Dim fd As Office.FileDialog
 
  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogOpen)
 
  ' Titre de la boîte de dialogue
  fd.Title = "Sélectionnez un fichier..."
 
  ' Ne pas autoriser la sélection multiple
  ' (donc 1 seul fichier est sélectionnable à la fois)
  fd.InitialFileName = CurrentProject.Path & "\sauvegardes\"
  fd.AllowMultiSelect = False
 
  ' Afficher la boîte de dialogue
  If fd.Show() Then
    MsgBox "Vous avez sélectionné le fichier : " _
      & vbCrLf & fd.SelectedItems(1), vbInformation
  End If
  Set fd = Nothing
End Sub

Cette fonction est dans un module.

Quand j'essaie de l'appeler via un bouton de form, j'ai un message

Code :

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

1
2
3
4
Public Sub Commande0_Click()
SelectionFichier
MsgBox fd.SelectedItems(1)
End Sub

Merci

[bertiny]

Bonjour
Où mets-tu la valeur de la fonction quand tu cliques sur le bouton?
Entête de la fonction mal orthographiée. Public Fuction

[HDU71000]

Public function, merci

mais effectivement, sur clic du bouton :

Code :

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

1
2
3
4
Public Sub Commande0_Click()
SelectionFichier
MsgBox fd.SelectedItems(1)
End Sub

la ligne msgbox ne me retourne rien, car la fonction n'est pas exécutée. Je crois devenir aveugle....

Merci

[HDU71000]

En fait, je me cassais le xxx pour rien,

j'ai mis le code directement sur le bouton...

Je ne sais pas trop ce qui s'est passé dans ma ptite tete....

A+

[bertiny]

Pour appeler ta fonction dans un bouton il suffit d'inscrire sur l'événement "sur clic"

Code :

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

=SelectionFichier()

[HDU71000]

Pour appeler ta fonction dans un bouton il suffit d'inscrire sur l'événement "sur clic"

Code :

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

=SelectionFichier()

Merci, mais du coup c'est OK

A+