Recherche de dossier sur le PC par macro

[matthieu2701]

Bonjour,

Je souhaiterais faire une macro qui me permet de rechercher le dossier du client que je souhaite et l'ouvrir.

En cliquant sur le bouton sur lequel est affecté la macro, j'aimerais qu'une inputbox s'ouvre. Je rentre le nom du client et le dossier s'ouvre.

Le chemin où sont stockés tous les dossiers clients est : Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours\

Le dossier client est écrit sous cette forme : NOM Prénom Numéro de référence. Le numéro de référence est différent pour chaque client.

Merci par avance pour votre aide.

Matthieu

 

[matthieu2701]

Re : Recherche de dossier sur le PC par macro

Personne pour m'aider

 

[Pierrot93]

Re : Recherche de dossier sur le PC par macro

Bonjour,

pour lancer une boite de dialogue afin d'ouvrir un fichier :

With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ThisWorkbook.Path & "\"
    .Filters.Clear
    .Filters.Add "ma descrip", "*.xls"
    .Show
    If .SelectedItems.Count > 0 Then Workbooks.Open .SelectedItems(1)
End With

espérant que cela puisse te faire avancer...

bonnejournée
@+

 

[matthieu2701]

Re : Recherche de dossier sur le PC par macro

J'ai un message d'erreur : "Erreur éxécution 438 : Propriété ou méthode non gérée par cet objet".

 

[Pierrot93]

Re : Recherche de dossier sur le PC par macro

Re,

pas de souci chez moi, sous 2003 et 2010, placé dans une procédure et dans un module standard, ne nécessite pas de bibliothèque particulière...

 

[Pierrot93]

Re : Recherche de dossier sur le PC par macro

Re,

fonctionne également chez moi sous 2007...

 

[matthieu2701]

Re : Recherche de dossier sur le PC par macro

Je n'y arrive pas avec ton code

 

[Pierrot93]

Re : Recherche de dossier sur le PC par macro

Re,

tu cherches bien à ouvrir un fichier excel ? quelle ligne boggue ?

 

[matthieu2701]

Re : Recherche de dossier sur le PC par macro

Non pas un fichier excel. Dans un répertoire de mon PCE, j'ai des dossiers clients. A l'intérieur de ce dossier client j'ai des pièces que j'ai besoin. Y a des fichiers word et pdf.

Le dossier du client est nommé sous cette forme NOM Prénom 25111111111111 (Ce numéro vari pour chaque client)

Ce que je souhaite, c'est que le dossier du client dont j'ai saisie le nom s'ouvre dans une fenêtre windows. Comme si tu faisait une recherche par l'explorateur windows.

 

[Pierrot93]

Re : Recherche de dossier sur le PC par macro

Re,

Non pas un fichier excel. Dans un répertoire de mon PCE, j'ai des dossiers clients. A l'intérieur de ce dossier client j'ai des pièces que j'ai besoin. Y a des fichiers word et pdf.

ceci explique cela alors.... faut procéder differement.... fait une recherche sur le forum, tu devrais y trouver des exemples....

 

[matthieu2701]

Re : Recherche de dossier sur le PC par macro

J'ai pas trouvé. C'est pour cela que j'ai posté ce message.

 

[Pierrot93]

Re : Recherche de dossier sur le PC par macro

Re,

une façon :

With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ThisWorkbook.Path & "\"
    .Filters.Clear
    .Filters.Add "ma descrip", "*.pdf"
    .Show
    If .SelectedItems.Count > 0 Then ThisWorkbook.FollowHyperlink .SelectedItems(1)
End With

 

[matthieu2701]

Re : Recherche de dossier sur le PC par macro

Re,

une façon :

With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ThisWorkbook.Path & "\"
    .Filters.Clear
    .Filters.Add "ma descrip", "*.pdf"
    .Show
    If .SelectedItems.Count > 0 Then ThisWorkbook.FollowHyperlink .SelectedItems(1)
End With

C'est pas non plus un pdf que je veux ouvrir. C'est le dossier contenant toutes les documents du client.

Par exemple, dans la capture d'écran tu as un dossier qui s'appelle "Fichiers" et dans le dossier "Fichier" tu as 4 documents.

Je veux que, si le dossier "Fichier" existe, qu'il s'ouvre comme il est dans la capture d'écran.

 

[Pierrot93]

Re : Recherche de dossier sur le PC par macro

Re,

bah... modifie la ou les extensions en conséquence....

    .Filters.Add "ma descrip", "*.doc;*.pdf"

 

[matthieu2701]

Re : Recherche de dossier sur le PC par macro

Re,

bah... modifie la ou les extensions en conséquence....

    .Filters.Add "ma descrip", "*.doc;*.pdf"

C'est pas les fichiers que je veux ouvrir mais le répertoire qui contient ces fichiers