Regueiro
XLDnaute Impliqué
Bonjour le Forum
J'ai un petit problème avec cette syntaxe :
Private Sub CommandButton1_Click()
'Fermeture du fichier et enregistrer dans C:
ChDir "C:\achat"
Reponse = Application.Dialogs(xlDialogSaveAs).Show
If Reponse = vbFalse Then MsgBox "Merci de procéder à l'enregistrement du ficher"
'Tourne jusqu'à réponse vrai
Loop Until Reponse
MsgBox " Le traitemenr du script continu avec le fichier"
End Sub
Merci de votre aide
J'ai un petit problème avec cette syntaxe :
Private Sub CommandButton1_Click()
'Fermeture du fichier et enregistrer dans C:
ChDir "C:\achat"
Reponse = Application.Dialogs(xlDialogSaveAs).Show
If Reponse = vbFalse Then MsgBox "Merci de procéder à l'enregistrement du ficher"
'Tourne jusqu'à réponse vrai
Loop Until Reponse
MsgBox " Le traitemenr du script continu avec le fichier"
End Sub
Merci de votre aide