Extraire des données vers un doc excel ?

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.

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

Salut

Ton message comporte certaines ambiguïtés:

Citation:

---

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

Citation:

---

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.

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

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:

---

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:

---

1 2 3 4

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

---

(cf FAQ)

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

Code:

---

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.

Il faut mettre la propriete Visible a true.

Excel est deja ouvert mais pas visible.

+1

Voici un petit test qui marche impec

Code:

---

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

---

résolu ? 8-)