Macro pour ouvrir un dossier a partir d'un dossier

[Claudius91]

bonjour,

J'ai une macro qui ne fonctionne pas et je ne sais pas quoi faire

'Macro9()

'Macro9macro
'

Sub OuvrirDossier()
    Dim cheminDossier As String
    ' Spécifiez le chemin du dossier que vous souhaitez ouvrir
    cheminDossier = "D:\Claude\BUDGET\BUDGET 2025-2026\Factures 2025-2026"

    
    ' Ouvre l'explorateur de fichiers sur le dossier spécifié
    RunWinAction "OPEN", , "EXPLORER", "/select, """ & "D:\Claude\BUDGET\BUDGET 2025-2026\Factures 2025-2026"
    
End Sub

J'ai cette erreur là

 

 

 

 

 

 

 

 

[Longaripa]

Bonjour 

Une idée : 

 

Citation

'Macro9macro
'

Sub OuvrirDossier()
    Dim MonDossier As String
    ' Spécifiez le chemin du dossier que vous souhaitez ouvrir
  MonDossier = "D:\Claude\BUDGET\BUDGET 2025-2026\Factures 2025-2026"

    
    ' Ouvre l'explorateur de fichiers sur le dossier spécifié

   Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
    
End Sub

source de l'idée  

[Claudius91]

Bonjour,

C'est bon, j'ai trouvé, merci à l'IA de Quant.

Solution ci-dessous

'Macro9()

'Macro9macro
Sub OuvrirDossierDepuisAutreDossier()
    Dim cheminDossier As String
    ' Spécifiez le chemin du dossier à ouvrir
    cheminDossier = "D:\Claude\BUDGET \BUDGET 2025-2026\Factures 2025-2026"
    
    ' Ouvre l'explorateur Windows sur le dossier spécifié
    Shell "explorer.exe """ & cheminDossier & """", vbNormalFocus
    
End Sub