Supprimer un message d'erreur

[sylvie]

Bonjour tout le monde,

J'ai écrit le petit code suivant me permettant d'ouvrir un fichier .rpt (fichier texte) et à chaque fois, excel m'envoie un message d'erreur "Impossible de reconnaître leformat du fichier". Si je clique sur OK, tout s'effectue correctement.

Est-ce que qqn pourrait me donner la commande VBA qui permettrait :
- soit de supprimer ce message
- soit d'y répondre automatiquement (par ok)...


Voici mon code :

Set progExcel = CreateObject("Excel.Application")
progExcel.Visible = False

'Ouvrir le fichier RPT
progExcel.Workbooks.OpenText _
Filename:=fichierAouvrir, _
Origin:=xlMSDOS, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False, _
FieldInfo:=Array(Array(1, 2), Array(2, 1), Array(3, 1))

 

[A_binouze_drinker_among_others]

peut-être application.displayalerts=false fera l'affaire mais pas sûr

 

[sylvie]

merci, ça marche !