S
sylvie
Guest
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))
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))
