Ouvrir dossier puis fichier

[Chris57]

Bonjour à tous,

j'ai fouillé un peu partout et j'arrive pas à retrouver cette fonction :
un macro qui ouvre le boite de dialogue "Ouvrir" et qui permet ensuite d'ouvrir n'importe quel fichier s'y trouvant.

J'ai tenté
ChDir "L:\UP78\RELEVES UP78\"
Application.GetOpenFilename

mais pas moyen d'ouvrir un fichier. Si j'en sélectionne un, la boite de dialogue se ferme et pi c'est tout..

 

[pedrag31]

Re : Ouvrir dossier puis fichier

Bonjour Chris57, Bonjour le forum,

Je suis sous Excel 2003 mais je pense que la commande doit toujours être dispo sous Excel 2007... Y'a pas d'raison...🙄

Pour sélectionner un fichier:

Application.FileDialog(msoFileDialogFilePicker)

Pour sélectionner un dossier:

Application.FileDialog(msoFileDialogFolderPicker)

Un petit exemple:

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False [COLOR="Green"]'Empêche la sélection de plusieurs dossiers[/COLOR]
.Title = "Merci de bien vouloir sélectionner un dossier..."
.InitialFileName = "C:\Admin\MesDocuments\MonDossier\"
If .Show = -1 Then
MonRepertoire= .SelectedItems(1) [COLOR="Green"]'Ici, tu mets dans ta variable MonRepertoire le chemin entier (absolu) du dossier que tu as sélectionné...[/COLOR]
Else
Exit Sub
End If
End With

Voir l'aide VBA (F1) pour les exemples et les détails...

Bonne journée, 🙂

 

[Chris57]

Re : Ouvrir dossier puis fichier

Merci !! Mais avec cette méthode je n'arrive pas à ouvrir un fichier se trouvant dans le répertoire...

Aussi si possible, il faudrait que je puisse ouvrir n'importe quelle extension de fichier...

 

[Paritec]

Re : Ouvrir dossier puis fichier

Bonjour Chris le forum
voilà un exemple en retour, regardes et dis moi si c'est ce que tu veux
a+
Papou 🙂

 

[Chris57]

Re : Ouvrir dossier puis fichier

hello,
malheureusement ça plante pour l'ouverture de fichiers doc ou txt... 🙁

 

[Chris57]

Re : Ouvrir dossier puis fichier

Personne ne peut m'aider ?

 

[Softmama]

Re : Ouvrir dossier puis fichier

Bonjour à tous,

En reprenant l'exemple de Chris57 et en utilisant l'API ShellExecute, tu obtiens ce que tu souhaites avec ce simple code :

'Décalaration de l'API
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Go()
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False 'Empêche la sélection de plusieurs dossiers
    .Title = "Merci de bien vouloir sélectionner un fichier..."
    'Ouverture du fichier par l'application qui y est associée :
    If .Show = -1 Then ShellExecute 0, "open", .SelectedItems(1), "", "", 0
End With
End Sub

 

[Chris57]

Re : Ouvrir dossier puis fichier

Génial !! MERCI !!