Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Message si chemin inexistant

Message si chemin inexistant

4 réponses
Avatar
Karly
hello,

J'ai copi=E9 le code suivant pour ouvrir une interface qui=20
permet l'ouverture d'un fichier en ayant d=E9termin=E9 un=20
chemin:
Private Sub CommandButton2_Click()
ChDir "c:\Dossier\"
Application.Dialogs(xlDialogOpen).Show
End Sub
Comment faire pour faire apparaitre un message si le=20
chemin n'exite pas

Merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre Fauconnier
Bonjour

on error resume next
chdir "c:dossier"
if err()v then msgbox "Chemin inexistant" : End
Application.dialogs...

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Karly" a écrit dans le message de
news:096901c4a0a2$a4317fb0$
hello,

J'ai copié le code suivant pour ouvrir une interface qui
permet l'ouverture d'un fichier en ayant déterminé un
chemin:
Private Sub CommandButton2_Click()
ChDir "c:Dossier"
Application.Dialogs(xlDialogOpen).Show
End Sub
Comment faire pour faire apparaitre un message si le
chemin n'exite pas

Merci
Avatar
Jacky
Bonjour

If Dir("c:Dossier", 16) = "" Then MsgBox "non existant"

salutations
JJ

"Karly" a écrit dans le message de
news:096901c4a0a2$a4317fb0$
hello,

J'ai copié le code suivant pour ouvrir une interface qui
permet l'ouverture d'un fichier en ayant déterminé un
chemin:
Private Sub CommandButton2_Click()
ChDir "c:Dossier"
Application.Dialogs(xlDialogOpen).Show
End Sub
Comment faire pour faire apparaitre un message si le
chemin n'exite pas

Merci
Avatar
Karly
La classe cela marche parfaitement

Merci !!!!
-----Message d'origine-----
Bonjour

on error resume next
chdir "c:dossier"
if err()v then msgbox "Chemin inexistant" : End
Application.dialogs...

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Karly" a écrit
dans le message de

news:096901c4a0a2$a4317fb0$
hello,

J'ai copié le code suivant pour ouvrir une interface qui
permet l'ouverture d'un fichier en ayant déterminé un
chemin:
Private Sub CommandButton2_Click()
ChDir "c:Dossier"
Application.Dialogs(xlDialogOpen).Show
End Sub
Comment faire pour faire apparaitre un message si le
chemin n'exite pas

Merci


.



Avatar
Karly
La classe cela marche parfaitement

Merci !!!!
-----Message d'origine-----
Bonjour

on error resume next
chdir "c:dossier"
if err()v then msgbox "Chemin inexistant" : End
Application.dialogs...

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Karly" a écrit
dans le message de

news:096901c4a0a2$a4317fb0$
hello,

J'ai copié le code suivant pour ouvrir une interface qui
permet l'ouverture d'un fichier en ayant déterminé un
chemin:
Private Sub CommandButton2_Click()
ChDir "c:Dossier"
Application.Dialogs(xlDialogOpen).Show
End Sub
Comment faire pour faire apparaitre un message si le
chemin n'exite pas

Merci


.