Microsoft 365 Lien ouverture dossier selon numéro dans une cellule

[farid]

Bonjour,

Je vais essayer d’expliquer ma demande. Lorsque je clic sur le bouton magasin, j’ouvre bien le dossier selon la ligne de commande.
Ce que je souhaite, c’est de pouvoir finaliser le chemin en ouvrant un des dossiers

Dim dossier$
dossier = ThisWorkbook.Path & "\.\Pièce jointe\Magasin\2022" et ouvrir le dossier selon le numéro de la cellule A5, et si le dossier n’existe pas , avoir un message de style « pas de dossier bla bla »
Shell Environ("WINDIR") & "\explorer.exe " & dossier, vbNormalFocus

J’espère avoir été clair sur ma demande.

Par avance, merci

 

[herve62]

Bonsoir
teste ce fichier

 

[farid]

Bonsoir
teste ce fichier

Bonsoir Hervé , Désolé pour cette réponse tardive. J'ai bien essayé ton fichier qui fonctionne très bien. Je te remercie infiniment.
Bien à toi

 

[dev_co]

erreur