incohérence debuggeur/macro

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.

Voici le code que j'utilise:
********************************************************
dlgAnswer = Application.Dialogs(xlDialogSaveAs).Show

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)
End if
******************************************************

Lorsque j'utilise le debug, la macro s'execute normalement.
Lorsque je lance la macro à partir d'excel, l'enregistrement en CSV n'a pas lieu et la pop-up 'Two files have been....focal point' ne s'affiche pas.
Je ne vois pas d'ou peut venir le problème (Excel, mon code, une entité inconnue,....).
Neanmoins j'ai effectué un test en remplacant le traitement contenue dans le If par :

If Not dlgAnswer Then
Worksheets('Sheet1').Cells(5, 3).Value = 'pas sauvé'
Else
Worksheets('Sheet1').Cells(5, 3).Value = 'sauvé'
End if

Cette fois ci cela a marché correctement en lancant la macro via le debuggeur et via Excel.

Je vous remercie d'avance de prendre le temps de vous plonger dans ce problème.
A bientôt.
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
300 761
Messages
1 987 017
Membres
209 680
dernier inscrit
frobleyy