[VBA-Excel,VB6,Fichier texte]enregistrer un classeur excel..

voilà j'ai un fichier txt(ou d'une extension farfelue mais respectant une structure régulière) une macro Excel permet de faire une mise en forme de ce fichier. Je souhaite faire la même chose mais au travers de VB6.

VB6 indique à la macro ou se trouve le fichier a traiter. excel effectue bien la macro sur le fichier. jusqu'a là tout va bien.

Mais lorsque je veux effectuer sous VB6 l'enregistrer du resultat sous un fichier excel alors là ce ne fait pas du tout ce que je veux.

ce que je veux : -enregistrer le resultat de la macro dans un classeur excel
-si le classeur resultant existe deja l'écraser par le nouveau
-fermer le fichier Txt sans le modifier
-fermer excel

ce que ca me fait actuelemnt : -créer bien le fichier xls mais ne met rien dedans
-me sort la fenetre de la confirmation d'écrasement
-me sort la fenetre a propos de l'enregistrement des modifications du fichier txt

voici le code dans vb 6

Code:

---

1 2 3 4 5 6 7 8

Dim app As New Excel.Application app.Visible = True Dim wb As Workbook Set wb = app.Workbooks.Open(ComDiaMacro.FileName) app.Run cmbMacro.Text, ComDiaSource.FileName wb.SaveCopyAs tbDesti.Text wb.Close app.Quit

---

voicile code de la macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Workbooks.OpenText FileName:=chemin, Origin:=xlWindows, _ StartRow:=1, DataType:=Excel.XlTextParsingType.xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _ , Space:=False, Other:=True, OtherChar:="$", FieldInfo:=Array(Array(1, 1 _ ), Array(2, 1), Array(3, 1), Array(4, 2), Array(5, 1), Array(6, 1), Array(7, 2), Array(8, 2), _ Array(9, 2), Array(10, 2), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _ , 1), Array(16, 1), Array(17, 1), Array(18, 1)) Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="1" Range("A1:Q854").Select Selection.Copy Sheets("ep53").Select Sheets.Add Range("A1").Select ....

---

merci d'avance.

j'ai pu résoudreune partie de mon probleme avec ceci

Code:

---

1 2 3 4

Dim wbRes As Workbook Set wb = app.Workbooks.Open(ComDiaMacro.FileName) app.Run cmbMacro.Text, ComDiaSource.FileName Set wbRes = app.Workbooks("ep53")

---

je n'avais pas fait gaffe que Excel ouvrait un workbook pour .xls contenant mes macro et un autre pour le fichier qu'il traitrer. Dans le code précédant il enregistrer le .xls contenant la macro et non pas le nouveau workbook.

il me reste le probleme d'ecrasement qui reste. je pensais que ceci suffisait mais cela ne fonctionne que si le fichier a créer n'existe pas

Code:

---

wbRes.SaveAs FileName:=tbDesti.Text, FileFormat:=xlExcel5, ConflictResolution:=XlSaveConflictResolution.xlLocalSessionChanges

---

malgré le paramètre de conflictrésolution, cela ne fonctionne pas j'ai toujours un le probleme de la fenetre de confirmation.
Une idée?

je m'auto répond encore une fois:
voici une solution a mon problème que je poste pour la prosperité (:P)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

If cmbMacro.Text <> "" Then 'combo contenant les macros Dim app As New Excel.Application 'on ouvre excel et 2 workbooks app.Visible = False Dim wbMacro As Workbook 'workbook contenant la macro Dim wbRes As Workbook 'workbook contenant le resultat de la macro Set wb = app.Workbooks.Open(ComDiaMacro.FileName) 'on ouvre le classeur conteant la macro app.Run cmbMacro.Text, ComDiaSource.FileName 'on execute la macro Set wbRes = app.Workbooks(recupnom(ComDiaSource.FileName)) 'on récupère le workbook créer If Dir(ComDiaDesti.FileName, vbHidden) <> "" Then 'on verifie l'existence du fichier de destination Kill ComDiaDesti.FileName 'on detruit l'ancien End If wbRes.SaveAs FileName:=tbDesti.Text, FileFormat:=xlExcel5 'on enregistre le nouveau wb.Close 'on ferme le tout wbRes.Close (False) 'on dit qu'on enregistre pas les modifs du fichiers sources app.Quit End If

---