Discussion :

[Gabout]

Bonsoir,

Je cherche à afficher une boite de dialogue pour demander la localisation d'un fichier.

Dans la FAQ, j'ai bien la solution de shwin intitulée "Afficher la boîte de dialogue ouvrir afin de récupérer le nom et le chemin du fichier sélectionné".

La commande proposée par shwin est la suivante :

Code :

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

MsgBox OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Word", "doc")

Le problème est que je provoque l'affichage depuis un module, ce qui entraîne une erreur de handle.

Avez-vous une piste ?

[Mahefasoa]

Bonsoir,
Pour la solution que je te propose, il te faut donc activer la référence Microsoft Office 11.0 Object Library (Microsoft Office 2003).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Fichier As FileDialog, Sélectionné As Variant, Liste As String
Set Fichier = Application.FileDialog(msoFileDialogFilePicker)
With Fichier
   .Title = "Parcourir"
   .Filters.Add "Fichiers Word", "*.doc", 1
   .AllowMultiSelect = True 'False pour refuser la sélection multiple
   .Show
   For Each Sélectionné In .SelectedItems
      Liste = Liste & vbCrLf & Sélectionné
   Next
End With
MsgBox "Fichier(s) sélectionné(s) (chemin complet): " & Liste

Bon courage et @+

[LedZeppII]

Bonsoir,

tu peux remplacer

Code :

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

Me.Hwnd

par

Code :

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

Application.hWndAccessApp()

ou par 0

A+

[Gabout]

Merci Mahefasoa,

Mais je suis sur Access 2000... une autre idée ?

[Gabout]

1000 merci de ton aide LedZeppII. C'est juste ce qu'il me fait !

[lito74]

Je souhaite moi aussi 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

[LedZeppII]

Bonsoir,

Le MsgBox est juste là à titre d'exemple.
Dans la pratique on récupère le résultat de la fonction OuvrirUnFichier dans une variable string.

Code :

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

1
2
3
4
5
6
7
8
Dim strCheminEtNomFichier As String
strCheminEtNomFichier = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Word", "doc")
 
If strCheminEtNomFichier="" Then
   ' Opération annulée par l'utilisateur
Else
   ' On poursuit le traitement
End If