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 Alarme chemin n'existe pas

Alarme chemin n'existe pas

4 réponses
Avatar
Karl M.
Bonjour,
J'ai le code suivant pour g=E9n=E9rer une sauvegarde si je=20
clique un bouton, le pb c'est que si le chemin n'existe=20
pas j'ai une alarme et je veux l'=E9viter, comment faire ???

Chemin_Save =3D Range("c50")
reponse3 =3D MsgBox("Voulez vous enregistrer le fichier=20
sous " & Range("c50") & " ?", vbYesNo)
If reponse3 =3D vbYes Then
Nomfichier =3D Chemin_Save & "\" & [m46] & "-" & [am4]=20
& ".xls"
ActiveSheet.SaveAs Filename:=3D(Nomfichier)
Else
LeNom3 =3D Application.Dialogs(xlDialogSaveAs).Show
If LeNom3 =3D False Then
MsgBox "op=E9ration annul=E9e", vbInformation, "Annulation"
End If
End If
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
AV
Chemin_Save = Range("c50")
On Error Resume Next
reponse3 = MsgBox("Voulez vous enregistrer le fichiersous " & Range("c50") & "
?", vbYesNo)
If reponse3 = vbYes Then
Nomfichier = Chemin_Save & "" & [m46] & "-" & [am4] & ".xls"
ActiveSheet.SaveAs Filename:=(Nomfichier)
If Err <> 0 Then Exit Sub
Else
LeNom3 = Application.Dialogs(xlDialogSaveAs).Show
If LeNom3 = False Then
MsgBox "opération annulée", vbInformation, "Annulation"
End If
End If

AV
Avatar
Jacky
Bonjour Karl

Chemin_Save = Range("c50")
If Dir(chemin_save, 16) = "" Then Exit Sub '******rajouter
'****ici tu peux créer un dossier avec MkDir, si tu le souhaites***
reponse3 = MsgBox("Voulez vous enregistrer le fichier
sous " & Range("c50") & " ?", vbYesNo)
If reponse3 = vbYes Then
Nomfichier = Chemin_Save & "" & [m46] & "-" & [am4]
& ".xls"
ActiveSheet.SaveAs Filename:=(Nomfichier)
Else
LeNom3 = Application.Dialogs(xlDialogSaveAs).Show
If LeNom3 = False Then
MsgBox "opération annulée", vbInformation, "Annulation"
End If
End If

Salutations
JJ

"Karl M." a écrit dans le message de
news:75f201c4ce0a$98a7dff0$
Bonjour,
J'ai le code suivant pour générer une sauvegarde si je
clique un bouton, le pb c'est que si le chemin n'existe
pas j'ai une alarme et je veux l'éviter, comment faire ???

Chemin_Save = Range("c50")
reponse3 = MsgBox("Voulez vous enregistrer le fichier
sous " & Range("c50") & " ?", vbYesNo)
If reponse3 = vbYes Then
Nomfichier = Chemin_Save & "" & [m46] & "-" & [am4]
& ".xls"
ActiveSheet.SaveAs Filename:=(Nomfichier)
Else
LeNom3 = Application.Dialogs(xlDialogSaveAs).Show
If LeNom3 = False Then
MsgBox "opération annulée", vbInformation, "Annulation"
End If
End If
Avatar
LE TROLL
Salut, avec: On Error Goto
---

"Karl M." a écrit dans le message de
news: 75f201c4ce0a$98a7dff0$
Bonjour,
J'ai le code suivant pour générer une sauvegarde si je
clique un bouton, le pb c'est que si le chemin n'existe
pas j'ai une alarme et je veux l'éviter, comment faire ???

Chemin_Save = Range("c50")
reponse3 = MsgBox("Voulez vous enregistrer le fichier
sous " & Range("c50") & " ?", vbYesNo)
If reponse3 = vbYes Then
Nomfichier = Chemin_Save & "" & [m46] & "-" & [am4]
& ".xls"
ActiveSheet.SaveAs Filename:=(Nomfichier)
Else
LeNom3 = Application.Dialogs(xlDialogSaveAs).Show
If LeNom3 = False Then
MsgBox "opération annulée", vbInformation, "Annulation"
End If
End If
Avatar
KARL M.
Merci c'est parfait

-----Message d'origine-----

Chemin_Save = Range("c50")
On Error Resume Next
reponse3 = MsgBox("Voulez vous enregistrer le
fichiersous " & Range("c50") & "

?", vbYesNo)
If reponse3 = vbYes Then
Nomfichier = Chemin_Save & "" & [m46] & "-" & [am4]
& ".xls"

ActiveSheet.SaveAs Filename:=(Nomfichier)
If Err <> 0 Then Exit Sub
Else
LeNom3 = Application.Dialogs(xlDialogSaveAs).Show
If LeNom3 = False Then
MsgBox "opération annulée",
vbInformation, "Annulation"

End If
End If

AV


.