Discussion :

[Doltd]

Bonjour,

J'ai pu effectuer un classeur Excel contenant des boutons me permettant d'ouvrir un explorateur Windows dont voici le code :
EDIT (J'avais oublié de copier l'affectation des variables)

Code :

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

1
2
3
4
5
6
7
Sub DirisC60()
    Dim sChemin As String, sCRelatif As String, sCheInt As String
    sCRelatif = ActiveWorkbook.Path 'Chemin relatif
    sCheInt = "Projets\Diris C60" 'Chemin intermédiaire
    sChemin = (sCRelatif & "\" & sCheInt) 'Chemin final
    Shell "explorer.exe sChemin", 1 'Ouverture de l'explorateur
End Sub

Je suis malheureusement obligé d'utiliser un chemin relatif car on doit pouvoir utiliser ce classeur Excel depuis n'importe quel ordinateur et sur n'importe qu'elle session utilisateur.

Information complémentaire :
- Mon chemin "ActiveWorkbook.Path" correspond à "C:\Users\IDUsers\Documents"

En utilisant le code cité plus haut, l'explorateur Windows s'ouvre bien mais il m'affiche le contenu du dossier "Documents" contrairement à ma demande de m'afficher le contenu du dossier "Diris C60".

J'ai vérifié grâce à un "MsgBox(sChemin)" le chemin qu'il utilise et c'est bien le chemin : "C:\Users\IDUsers\Documents\Projets\Diris C60"

J'ai donc essayé d'utiliser directement le chemin absolu pour tester le code en lui-même et il m'ouvre bien le contenu du dossier "Diris C60" dans ce cas-là.

Pourriez-vous m'indiquer une solution à mon problème ?

Merci,
Doltd

[parmi]

Tu pourrais essayer en ajoutant 2 lignes avant le Shell

Code :

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

1
2
ChDrive "C"
ChDir sChemin

[Doltd]

Merci parmi de ta rapidité et de ta proposition

Malheureusement, ça ne change rien au fait : il m'affiche toujours l'explorateur avec le contenu de "Documents".

[parmi]

À quoi te sers ce Shell ? ouvrir des documents autres qu'Excel ?
Sinon, il y Application.GetOpenFilename() qui pourrait être utile
Il y a aussi Application.FileDialog(msoFileDialogFolderPicker).

Et je pense que dans les 2 cas, les ChDrive et ChDir seront pris en compte.

[Doltd]

Shell me sert de fonction pour ouvrir un explorateur Windows.

Le but de mon programme est que quand l'utilisateur clique sur le bouton, un explorateur Windows se lance avec le contenu du dossier correspondant au bouton (chaque ligne du tableau aura son bouton associé). Ainsi l'utilisateur aura le choix (que ce soit pour ouvrir, copier ou encore modifier un ou plusieurs fichier(s)).

Si je me souviens bien Application.GetOpenFilename() permet d'ouvrir un seul fichier et ne permet pas de réaliser un copier de fichier.

Par contre quand j'utilise Application.FileDialog(msoFileDialogFolderPicker) il m'affiche l'erreur "Utilisation incorrecte de la propriété".
Je me suis renseigné sur l'aide Microsoft mais soit je n'ai pas compris son utilisation ni comment il fonctionne soit il ne correspond pas à mon problème.

Au cas où, on l'utilise bien comme ça le "Application.FileDialog(msoFileDialogFolderPicker)" :

Code :

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

1
2
3
4
5
6
7
Sub DirisC60()
    Dim sChemin As String, sCRelatif As String, sCheInt As String
    sCRelatif = ActiveWorkbook.Path 'Chemin relatif
    sCheInt = "Projets\Diris C60" 'Chemin intermédiaire
    sChemin = (sCRelatif & "\" & sCheInt) 'Chemin Final
    Excel.Application.FileDialog (msoFileDialogFolderPicker)
End Sub

PS: j'ai essayé avec et sans le "Excel." mais rien n'y fait

Mais par rapport à ChDir et ChDrive, ils me permettent seulement de confirmer mon emplacement. Je ne suis pas sur d'en avoir réellement l'utilité dans ce code, si?

[parmi]

Essaie comme ceci pour voir

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
Sub DirisC60()
    Dim sChemin As String, sCRelatif As String, sCheInt As String
    sCRelatif = ActiveWorkbook.Path 'Chemin relatif
    sCheInt = "Projets\Diris C60" 'Chemin intermédiaire
    sChemin = (sCRelatif & "\" & sCheInt) 'Chemin Final
 
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = sChemin 
        .Show
 
        If .SelectedItems.Count > 0 Then
            ChoixDossier = .SelectedItems(1)
        Else
            ChoixDossier = ""  'annulé
        End If
    End With

End Sub