(RESOLU) Loop Until problème

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
Re : Loop Until problème

Bonjour,

rajoute peut être un "do" :
Code:
'Fermeture du fichier et enregistrer dans C:
ChDir "C:\achat"
Do
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"

bon après midi
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
Réponses
3
Affichages
794
A
M
Réponses
1
Affichages
2 K
Jean-Marie
J
Z
Réponses
6
Affichages
1 K
Z
Retour