Discussion :

[Youni92]

Bonjour,

Je ne savais pas vraiment où poster ma demande, puisque elle est selon moi transverse à la plupart des applications Office.

Je souhaite, grâce une macro où tout autre moyen possible, ouvrir un "dossier cible windows" (pas un fichier office) lorsque l'utilisateur clique sur une image, un bouton... pré-définit.

Pensez-vous que cela soit possible ?
Mes recherches m'ont laissées entendre que non, mais je préfère être sûr.

Merci pour votre aide.

[dybmans]

Bonjour,

c'est tout à fais réalisable.

Je te joins un exemple tu n'as plus qu'a l'adapter à ton problème il ouvre n'importe qu'elle type de fichier dans mon exemple il ouvre des fichiers office mais aussi liens internet et du pdf par acrobat reader.

Pièce jointe 75536

[Youni92]

Tout d'abord merci pour ton exemple, il pourra m'aider prochainement.

Cependant, dans le cas présent,je me suis mal exprimé car ce que je souhaite faire c'est ouvrir un "folder" et non un "file".
Par exemple:
1) L'utilisateur clique sur un bouton nommé "Poste de Travail"
2) Lancement de la macro
3) Ouverture à l'écran du dossier "Poste de Travail"

J'espère avoir été plus clair dans ce que je recherche. Merci encore pour votre aide.

Pour vous donner le but de ce que je cherche à faire:
Créer un organigramme contenant une arborescence des différents sujets classés dans un serveur, et lorsque l'on clique sur le nom du sujet recherché, cela ouvre le dossier concerné.

[fllyann]

Bonjour, désolé si ce que dybmans t'a proposé est la même chose mais je n'ouvre pas les zip.


Tu peux utiliser un "FileDialog".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ChoixProjet_Click()
    Dim File As FileDialog
    Set File = Application.FileDialog(msoFileDialogFilePicker)
    Dim DossierChoisi As String
    Dim itemDossier As Variant
 
    'Choix du dossier
    With File
        .AllowMultiSelect = False
        If .Show = -1 Then
            For Each itemDossier In .SelectedItems
                If itemDossier <> "" Then
                DossierChoisi = itemDossier
                chemin.Text = DossierChoisi
                End If
            Next itemDossier
        Else
        'l'Utilisateur n'a pas choisi de fichier
        End If
    End With
End Sub

ceci me permet d'aller chercher une fichier là où je veux et d'y afficher le nom.
Cordialement
Yann

[Youni92]

Ma version d'excel (2000 ) ne me permet pas de lancer ton code, mais je pense comprendre de tes commentaires, que tu "n'ouvre pas directement" un dossier à l'écran.

Encore une fois je vous remercie pour aide, mais je commence à me dire, qu'il n'y a pas de possibilité de réaliser ce que je veux faire grâce aux macro Office.

[fllyann]

FileDialog est disponible qu'à partir de Office 2002 je crois....

Je n'ai pas d'autres idées...
Bon courrage !