formule dans Excel avec VB6Résolu

Question

bonjour
&#224; l'aide d'un bouton je vais cherch&#233; un fichier texte sur mon DD et je le valide pour le transform&#233; en fichier excel.
Comment faire pour :
1)une fois que le fichier texte est transform&#233; en Excel se lance automatiquement &#224; la fin de la transformation.
2) et comment lui mettre se code (si dessous) dans le Workbook_Open pour le faire execut&#233; au lancement du fichier Excel.

Feuil1.Range("a2:E50").Sort Key1:=Feuil1.Columns(3) 'tri des colonnes
Feuil1.Range("H2:H50").FormulaR1C1 = "=""<""&30/24/60/60"
Feuil1.Range("F3:F50").Formula = "=(C3=C2)*(B3-B2)"
Feuil1.Range("I2").Select 'nbrs de d&#233;fauts
    ActiveCell.FormulaR1C1 = _
        "=COUNTIF(RC[-3]:R[48]C[-3],RC[-1])-COUNTIF(RC[-3]:R[48]C[-3],0)" '=NB.SI(F2:F50;H2)-NB.SI(F2:F50;0)
Feuil1.Range("F3:F50").NumberFormat = "[s]"
Columns("F:K").ColumnWidth = 0 'colonnes cach&#233;es
Dim MAVALEUR As String
MAVALEUR = Range("I2").Value
MsgBox " D&#233;fauts < 30s est de " & vbCrLf & MAVALEUR, vbExclamation, "Nbrs de d&#233;fauts inf&#233;rieur &#224; 30s"
Range("A1").Select
merci
@plus
petchy

jrivet · Accepted Answer

Salut,

Correction tu n'as meme pas besoin de Excel.Application pour lancer Excel: 

Un simple

Dim WB as Excel.WorkBook
Set WB = Excel.WorkBooks.OPen("C:\TEst.Xls") Suffit pour ouvrir ton classeur

Ensuite pour acceder aux feuille

WB.Sheets("Feuil1") 

Etc..

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jrivet · Answer

Salut,

Si tu ajoutes a ton programme VB6 la r&#233;f&#233;rence: Microsoft Excel 9.0 Object Library, Tu pourras utiliser les objets.

Excel.Application (pour lancer excel)
Excel.WorkBook pour le classeur
Etc...

Ensuite je pense que le code que tu as mis pourra etre directement dans l'appli VB6

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_petchy · Answer

salut Julien
merci pour ta r&#233;ponse 
petchy

Formule dans Excel avec VB6

3 réponses

Discussions similaires