Discussion :

[Yanmeunier]

Bonjour
Je cherche à savoir comment ouvrir un fichier Excel à partir de code VB6.
Merci

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub VB_OuvrirExcel()
Set WExl = Application.Workbooks.Open _
        (Filename:="LeFichier.xls", UpdateLinks:=False, AddToMRU:=False, Editable:=True)
    WExl.Sheets("Feuil1").Cells(1, 1).Value = "Ma donnée..."
    WExl.Close True, "./Rep/LeFichier.xls"
End Sub

J'ai pris ça sur le forum mais l'auteur reste anonyme... (j'ai oublié de le noter

A+

[Megaxel]

Il doit aussi falloir créer l'objet Excel avant, non?

[ouskel'n'or]

Pour VB, je n'ai rien de plus... Si tu as quelque chose qu'on a pas...

J'attends !

A+

[Megaxel]

Voila, voila:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert
appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant
'Récupération du classeur par défaut
Set wbExcel = appExcel.ActiveWorkbook
'Récupération de la feuille par défaut
Set wsExcel = wbExcel.ActiveSheet

Bien sûr, dans le cas qui nous intéresse, on ne fait pas le .Add, mais on prend ta ligne de code, Ousk'.

[Theocourant]

Il doit aussi falloir créer l'objet Excel avant, non?

Salut,

Tu as tout à fait raison, Megaxel

Code pour créer l'instance :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub VB_OuvrirExcel() 
Set appExcel = CreateObject("Excel.Application") 
Set WExl = appExcel.Workbooks.Open _ 
        (Filename:="LeFichier.xls", UpdateLinks:=False, AddToMRU:=False, Editable:=True) 
    WExl.Sheets("Feuil1").Cells(1, 1).Value = "Ma donnée..." 
    WExl.Close True, "./Rep/LeFichier.xls" 
End Sub

Normalement ça devrait être bon comme cela

+

Théo

[ouskel'n'or]

Comme quoi, j'ai mal copié ton code, Théo... Mais j'ai corrigé...

A+

[Theocourant]

Comme quoi, j'ai mal copié ton code, Théo... Mais j'ai corrigé...

A+

Salut,

Merci mais il ne s'agit pas de "mon" code, je l'ai récupéré sur le forum et un peu modifier pour convenir au problème de Yanmeunier

+

Théo

[ouskel'n'or]

Hello Théo,

Merci mais il ne s'agit pas de "mon" code, je l'ai récupéré sur le forum et un peu modifier pour convenir au problème de Yanmeunier

Bon, alors je démarre l'enquête tout de suite afin de rendre à César ce qui lui appartient !

A+