S
Solcarnus
Guest
Bonjour a tous
J'ai un petit problème avec cette macro qui se comporte differement suivant qu'elle est executée en debug ou pas. Je pense que ce problème est lié à l'utilisation incorrecte de l'instruction Doevents
Voici le code que j'utilise:
********************************************************
dlgAnswer = Application.Dialogs(xlDialogSaveAs).Show
DoEvents
If Not dlgAnswer Then
'il ne se passe rien
Else
l_namea = ActiveWorkbook.Name
'saving as *.csv
Sheets(1).Activate
ActiveWorkbook.SaveAs FileFormat:=xlCSV
l_nameb = ActiveWorkbook.Name
Sheets('Form').Select
Msg = 'Two files have been generated :' & vbCrLf & ' -' & l_namea & vbCrLf & ' -' & l_nameb & vbCrLf & 'Please send them to your focal point.'
Response = MsgBox(Msg)
********************************************************
Je pense que le probleme vient de l'instruction doevents que je n'arrive pa à utiliser correctement, donc l'execution se poursuit sans attendre la réponse de l'utilisateur alors qu'en debug on execute pas à pas ce qui laisse le temps à l'utilisateur de compléter la boite de dialogue.
Pourriez vous m'indiquer comment utiliser correctement cette instruction? Pensez vous que c'est bien elle qui est à l'origine de ce problème?
Je vous remercie d'avance de prendre le temps de vous plonger dans ce problème.
A bientôt
J'ai un petit problème avec cette macro qui se comporte differement suivant qu'elle est executée en debug ou pas. Je pense que ce problème est lié à l'utilisation incorrecte de l'instruction Doevents
Voici le code que j'utilise:
********************************************************
dlgAnswer = Application.Dialogs(xlDialogSaveAs).Show
DoEvents
If Not dlgAnswer Then
'il ne se passe rien
Else
l_namea = ActiveWorkbook.Name
'saving as *.csv
Sheets(1).Activate
ActiveWorkbook.SaveAs FileFormat:=xlCSV
l_nameb = ActiveWorkbook.Name
Sheets('Form').Select
Msg = 'Two files have been generated :' & vbCrLf & ' -' & l_namea & vbCrLf & ' -' & l_nameb & vbCrLf & 'Please send them to your focal point.'
Response = MsgBox(Msg)
********************************************************
Je pense que le probleme vient de l'instruction doevents que je n'arrive pa à utiliser correctement, donc l'execution se poursuit sans attendre la réponse de l'utilisateur alors qu'en debug on execute pas à pas ce qui laisse le temps à l'utilisateur de compléter la boite de dialogue.
Pourriez vous m'indiquer comment utiliser correctement cette instruction? Pensez vous que c'est bien elle qui est à l'origine de ce problème?
Je vous remercie d'avance de prendre le temps de vous plonger dans ce problème.
A bientôt