salut

je n'arrive pas à trouver d'où vient mon probleme, j'importe un fichier texte vers excel, cela marche bien qu'une fois, mais à la deuxieme fois ça plante qui peut m'aider ??

voilà mon code :

Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application

Set appExcel = CreateObject("Excel.Application")

'Ouverture d'un fichier Excel
Workbooks.OpenText FileName:=Chemin, Origin:=xlWindows, _
StartRow:=4, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Set wbExcel = appExcel.ActiveWorkbook
Set wsExcel = wbExcel.ActiveSheet

ActiveWorkbook.SaveAs FileName:="C:\Book1.xls", _
FileFormat:=17, CreateBackup:=False


wbExcel.Close 'Fermeture du classeur Excel
appExcel.Quit 'Fermeture de l'application Excel



j'ai essayé avec Set appExcel = Nothing mais sans succès !!!

merci d'avance !!

salut
Please donne plus de détail tu as quoi comme message d'erreur?
tu lances ton code à partir de VB? ou d'Excel ?

enfin bref un peu plus d'explications seront les bienvenues.

@+ J.P.

Eh oui :

> çà plante

C'est un peu vague. Ton code a l'air bien. Le problème doit venir d'ailleurs.
Peux-tu aussi dire de quelle manière tu appelles ces lignes de code ?


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

c'est un code depuis vb6

c'est une procédure lancée depuis un bouton

si je clique une fois sur le bouton la procédure se déroule normalement

si je clique une deuxieme fois j'ai le message:
"variable objet ou variable bloc whith non défini"
et en faisant ok sur le message d'erreur je suis envoyé à la ligne :

Set wsExcel = wbExcel.ActiveSheet

voilà je reste dispo pour vos questions, et merci d'avance pour votre aide précieuse @+

Esayes de tester si excel est ouvert si c'est le cas tu peux avoir un message d'erreur

' on teste si excel est ouvert Set appexcel = GetObject(, "Excel.application") If Err.Number <> 0 Then Set appExcel = CreateObject("Excel.Application") Err.Number = 0 Else End If

J.P.