Discussion :

[mcspawn]

Bonjours je voulais savoir si il etait possible d'extraire des données dans un fichier excel.

En faite ce que je souhaiterais faire c'est imprimer une facture et avoir un apercu. Pour cela j'aimerai qu'en cliquant sur un bouton j'acced a un fichier excel avec les valeurs qui serait contenu dans ma form.

[Vince]

Si c'est pour imprimer une facture à partir d'un programme VB pourquoi ne pas utiliser un Datareport ?

[zazaraignée]

Salut

Ton message comporte certaines ambiguïtés:

Ton titre dit Extraire des données vers un doc excel

qui pourrait être interprété comme une exportation de données, alors que dans le message lui même tu dis

je voulais savoir si il etait possible d'extraire des données dans un fichier excel.

qui laisse supposer qu'il s'agit d'une importation de données.

De plus, on n'a aucune idée de l'environnement, bien que tu aies posté dans le forum VB6 et antérieur... Tu pourrait tout aussi coder sous VBA Excel...

Précise ton message et modifie ton titre s'il te plaît.

[mcspawn]

Je suis sous vb6.

En faite ce que je souhaite faire c'est que en apuyant sur un bouton de mon projet vb, je puisse ouvrir une feuille excel de facture.
Et mettres les données comme le total TTC, le total HT, la liste des produit dans cette facture (toute ses données sont dans mon projet

[Commodore]

1- Coche dans 'références' la case Excel
2- Définit un objet Excel
3- Utilise le comme si tu étais sous VBA

Définir un Excel dans VB6:

Code :

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

1
2
3
 
Dim xlapp As Excel.Application
Dim classeur As Excel.Workbook, feuille As Excel.Worksheet, Plage As Excel.Range

Utiliser les objets comme dans VB6:

Code :

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

1
2
3
4
 
Set classeur = xlapp.Workbooks.Open(fichier)
Set feuille = xlapp.ActiveSheet
Set Plage = feuille.Range("A1").CurrentRegion

(cf FAQ)

[mcspawn]

Oui j'ia vu ca j'ia fait ceci.

Code :

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

1
2
3
4
5
6
7
8
9
10
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")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\Administrateur\Bureau\Facturier\Facturier\Excel.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

Mais ca ne m'ouvre pas excel.

[Commodore]

Il faut mettre la propriete Visible a true.

Excel est deja ouvert mais pas visible.

[zazaraignée]

+1

Voici un petit test qui marche impec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

Private Sub Command1_Click()
    'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
    'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open( _
"C:\Documents and Settings\Administrateur\Bureau\Facturier\Facturier\Excel.xls")
    'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
    appExcel.Visible = True
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    wbExcel.Close
    Set appExcel = Nothing
End Sub

[Commodore]

résolu ?