Explorer arborescence et ouvrir fichier

[degap05]

Bonjour,

J'ai cherché et trouvé sur le forum, une macro qui explore l'arborescence des dossiers d'un répertoire. J'aimerais avec votre aide pouvoir l'adapter à ma situation de travail.
Il faudrait pouvoir indiquer un chemin par défaut dans la macro: disque, répertoire, dossier, sous-dossier. Ensuite pouvoir sélectionner un fichier Word ou Excel et l'ouvrir.

J'ai indiqué un exemple de chemin, en commentaire, dans la macro.

Merci pour votre aide.

 

[BOISGONTIER]

Re : Explorer arborescence et ouvrir fichier

Bonjour,

ChDrive "E:"
ChDir "E:\MAGASIN\SECRETARIAT\TOTO\MDSH"
fichier = Application.GetOpenFilename("Excel fichiers (*.xls), *.xls")


JB

 

[MJ13]

Re : Explorer arborescence et ouvrir fichier

Bonjour Degap, JB et le forum.

Essaies ce code.

Sub Ouverture()
    'comment indiquer un chemin par défaut "E\MAGASIN\SECRETARIAT\TOTO\MDSH"
     ChDir "E:\MAGASIN\SECRETARIAT\TOTO\MDSH"
    fichier = Application.GetOpenFilename()
    If fichier <> False Then
        'Workbooks.Open (fichier)
    MsgBox "Vous allez ouvrir le fichier " & fichier, vbOKOnly, "DEMO OUVERTURE"
    Else: MsgBox "Vous n'avez pas sélectionner de fichier ", vbOKOnly, "DEMO OUVERTURE": End
'    Stop
    End If
    ThisWorkbook.FollowHyperlink fichier
End Sub

 

[degap05]

Re : Explorer arborescence et ouvrir fichier

Bonjour BOISGONTIER et MJ13,

Fonctionnement parfait.

Comment compléter la partie de code:

fichier = Application.GetOpenFilename("Excel fichiers (*.xls), *.xls")

pour ouverture également de fichiers Word, ou bien simplement lister tous les fichiers présents, avec n'importe quelle extension ?

Merci

 

[Dull]

Re : Explorer arborescence et ouvrir fichier

Salut Degap, Jacques, MJ13, leForum

fichier = Application.GetOpenFilename("Word fichiers (*.doc), *.doc")

pour les Fichiers Word

fichier = Application.GetOpenFilename("Tous fichiers (*.*), *.*")

pour tous les Fichiers

Bonne Journée

 

[degap05]

Re : Explorer arborescence et ouvrir fichier

Merci Dull, MJ13, BOISGONTIER,

C'est parfait.

Bon week end🙂

 

[BOISGONTIER]

Re : Explorer arborescence et ouvrir fichier

Excel et Word en même temps;

ChDrive "e:"
ChDir "e:/y"
fichier = Application.GetOpenFilename("Excel/word fichiers , *.xls;*.doc")

JB

 

[MJ13]

Re : Explorer arborescence et ouvrir fichier

Re bonjour à tous,

Attention si avec
ThisWorkbook.FollowHyperlink fichier

Si tu ne peux pas ouvrir un type de fichier, on passe en général par le Shell.

Ex:
Si vous ouvrez vos MP3 avec un autre logiciel que WMP et si vous désirez ouvrir ces fichiers avec Wind Media Player, voici le code à adapter en fonction du logiciel et de son chemin:

RN = "C:\Program Files\Windows Media Player\wmplayer.exe " & "" & Chr(34) & Fichier & Chr(34) & ""
Shell (RN)

 

[degap05]

Re : Explorer arborescence et ouvrir fichier

Merci, c'est parfait pour les fichiers Excel, mais il manque une commande pour ouvrir les fichiers Word:

En effet pour l'instant, j'ai une erreur: nom de fichier invalide et la ligne:
Workbooks.Open (fichier) en jaune.

 

[degap05]

Re : Explorer arborescence et ouvrir fichier

Bonsoir à tous,

Si je comprends bien MJ13, lorsque je veux ouvrir un fichier Word, que je viens de sélectionner, je dois indiquer le chemin de word.exe ?

En effet pour l'instant, j'ai une erreur: nom de fichier invalide et la ligne:
Workbooks.Open (fichier) en jaune.

Quelle serait la modification à apporter au code:

Option Explicit
Sub Explorer()
Dim fichier
ChDrive "I:"
ChDir "I:\Mes documents\Courrier"
fichier = Application.GetOpenFilename("Tous fichiers (*.*), *.*")
'fichier = Application.GetOpenFilename("Word fichiers (*.doc), *.doc")
'fichier = Application.GetOpenFilename("Excel fichiers (*.xls), *.xls")
If fichier <> False Then
Workbooks.Open (fichier)
MsgBox "Vous venez d'ouvrir le fichier " & fichier, vbOKOnly, "Explorateur de fichiers"
Else: MsgBox "Vous n'avez pas sélectionné de fichier ", vbOKOnly, "Explorateur de fichiers"
End If
End Sub

Merci.

 

[MJ13]

Re : Explorer arborescence et ouvrir fichier

Bonjour,

Normalement avec

ThisWorkbook.FollowHyperlink fichier

Tu peux ouvrir la plupart des types de fichiers.

 

[degap05]

Re : Explorer arborescence et ouvrir fichier

Bonjour, MJ13,

Je te confirme ce matin dans mon environnement de travail, que cela fonctionne parfaitement (fichiers Excel et Word).

Merci encore.