Discussion :

[lito74]

Je souhaite afficher un boite de dialogue "Ouvrir". J'ai donc récupérer le code de Shiwn dans la Faq (Voir ici) Tout fonctionne parfaitement, sauf que si je ne sélectionne aucun fichier, donc que je clique sur le bouton "Annuler", un msgbox s'ouvre avec un seul bouton "ok" et sans aucun message... Est-il possible de supprimer l'ouverture de ce msgbox

[javelot69]

Bonjour,

Tu peux ajouter ce code au bon endroit.

Code :

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

1
2
3
If Cancel = True Then
    Exit Sub
End If

[Invité]

Bonjour

La message box est là pour visualiser le résultat d'une recherche, ce n'est pas à appliquer.

La fonction te renvoie une chaine, il faut que tu mettes cette chaine dans une variable.

Starec

[lito74]

Bonjour Starec,
Peux-tu me donner un peu plus de détail car j'ai un peu de mal à comprendre ce que tu veux dire ? Désolé.

[lito74]

Autre question :
Est-il possible de centrer cette boite de dialogue lorsque celle-ci s'ouvre ? Merci

[FreeAccess]

Bonjour,

Je vais me permettre de répondre à la place de Starec....

La fonction te renvoie une chaine, il faut que tu mettes cette chaine dans une variable.

Petit exemple, sur l'événement "Sur clic" d'un bouton de commande:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande29_Click()
'Ici, la variable NomFichier contiendra le nom du fichier sélectionné
Dim NomFichier As String
NomFichier = OuvrirUnFichier(Me.HWnd, "Parcourir", 1, "Fichier Word", "doc")
 
'Ici juste pour test, on va afficher le nom du fichier sélectionné dans 
'un MsgBox
MsgBox "Le fichier sélectionné = " & NomFichier
End Sub

Est-ce plus clair....

Est-il possible de centrer cette boite de dialogue lorsque celle-ci s'ouvre ?

Ici, je pense que tu parle de la boîte de dialogue "Ouvrir"..

Si c'est le cas, et sauf erreur de ma part, cette fenêtre se comporte comme une fenêtre standard de Windows. Elle sera donc affichée à la position de sa dernière ouverture.

Bonne continuation...

[lito74]

Bonjour FreeAccess
Merci beaucoup pour ces réponses..... Cependant, concernant le positionnement de la boite de dialogue ouvrir, effectivement elle s'affiche à la position de sa dernière ouverture, mais pas à la première ouverture (elle s'affiche dans le coin haut gauche).... Peut-on "sauvegarder" son positionnement ?