Explorer arborescence et ouvrir fichier

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 26 Avril 2008

• #2

Re : Explorer arborescence et ouvrir fichier

Bonjour,

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


JB

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 26 Avril 2008

• #3

Re : Explorer arborescence et ouvrir fichier

Bonjour Degap, JB et le forum.

Essaies ce code.

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

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 26 Avril 2008

• #4

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 26 Avril 2008

• #5

Re : Explorer arborescence et ouvrir fichier

Salut Degap, Jacques, MJ13, leForum

Code:

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

pour les Fichiers Word

Code:

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

pour tous les Fichiers

Bonne Journée

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 26 Avril 2008

• #6

Re : Explorer arborescence et ouvrir fichier

Merci Dull, MJ13, BOISGONTIER,

C'est parfait.

Bon week end🙂

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 26 Avril 2008

• #7

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 26 Avril 2008

• #8

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:

Code:

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

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 26 Avril 2008

• #9

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.

 

Dernière édition: 27 Avril 2008

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 27 Avril 2008

• #10

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.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Avril 2008

• #11

Re : Explorer arborescence et ouvrir fichier

Bonjour,

Normalement avec

ThisWorkbook.FollowHyperlink fichier

Tu peux ouvrir la plupart des types de fichiers.

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 28 Avril 2008

• #12

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.

 

Vote positif 0 Vote négatif