Excel, VB6, onglet

Signaler
Messages postés
4
Date d'inscription
vendredi 21 novembre 2003
Statut
Membre
Dernière intervention
22 novembre 2007
-
Messages postés
4
Date d'inscription
vendredi 21 novembre 2003
Statut
Membre
Dernière intervention
22 novembre 2007
-
Bonjour,

je suis sous windows XPet je débute sous VB6. J'ai trouvé beaucoup de doc sous VB2005 mais sous VB6 je galère.
En fait j'ai crée un fichier avec des colonnes séparés par des ; avec comme premiere colonne un indicateur me permettant de séparer les données afin de les ventilés dans 2 onglets que je dois créer.
J'ai essayé de faire excelapp.Sheets.Add.Name = "Onglet2" mais il ne connait pas Sheets ???
La doc me semble pas pratique du tout!
Donc je voudrais créer 2 onglets puis ventiler les données reçus.
Exemples de données reçus dans un fichier :
onglet1;numero;texte1;
onglet2;numero1;balbla;blabla;bla
onglet2;numero2;balbla;blabla;bla2
onglet2;numero3;balbla;blabla;bla3

Et donc dans excel que l'onglet nommé 1 contienne
numero;texte1
et que l'onglet nommé onglet2 contienne
numero1;balbla;blabla;bla

numero2;balbla;blabla;bla2

numero3;balbla;blabla;bla3

Merci pour toute indication.
    Dim X
    Dim excelapp As Object
    Dim xlWindows As Single
    Dim xlDelimited As Single
    Dim xlDoubleQuote As Single

    Screen.MousePointer = 0
    On Error GoTo etiq_dde3

    xlWindows = 2
    xlDelimited = 1
    xlDoubleQuote = 1
 
    Set excelapp = CreateObject("excel.application")
    X = excelapp.Workbooks.OpenText("C:\DR_C" & arg_orific, xlWindows, 1, xlDelimited, xlDoubleQuote, False, False, True, False, False, False)
    excelapp.Selection.CurrentRegion.Select
    excelapp.Visible = True
    excelapp.Rows("1:1").Select
    excelapp.Selection.Font.Bold = True
    excelapp.Selection.Interior.ColorIndex = 14
    excelapp.Selection.Font.ColorIndex = 0

    Set excelapp = Nothing

    Screen.MousePointer = 0
        
    On Error GoTo 0
    Exit Sub

2 réponses

Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
2
Tu doit d'abord créer un objet Excel.Application, ensuite tu pourras travaillez sur Excel comme si tu y étais.
A+
Messages postés
4
Date d'inscription
vendredi 21 novembre 2003
Statut
Membre
Dernière intervention
22 novembre 2007

J'ai essayé cela mais cela ne fonctionne pas. Ce n'est pas reconnu. J'ai consulté de nombreux docs et j'ai essayé plein d'exemple mais il y a beaucoup de choses qui ne fonctionne pas.
Ca en l'occurence cela n'est pas reconnu. Sheet.add non plus.
Il y en a plein des commes cela!!!!
C'est vraiment galère, d'autant plus que je ne connais pas et que venant de Java - et j'y retourne bientot - je suis surpris du merdier...
Je dois le prendre par le mauvais bout, d'ou mon appel.
Merci quand m^me.
La j'en suis à mettre toutes méthodes possibles en regardant celle qui passe. C'est la Misere..