Lien entre un exécutable en vb6 et un doc excel
Résolu
nicosne
Messages postés
37
Date d'inscription
lundi 9 août 2004
Statut
Membre
Dernière intervention
10 mai 2005
-
20 janv. 2005 à 16:03
valtrase Messages postés 937 Date d'inscription lundi 19 janvier 2004 Statut Membre Dernière intervention 9 mai 2022 - 21 janv. 2005 à 14:14
valtrase Messages postés 937 Date d'inscription lundi 19 janvier 2004 Statut Membre Dernière intervention 9 mai 2022 - 21 janv. 2005 à 14:14
A voir également:
- Lien entre un exécutable en vb6 et un doc excel
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Turbo virtual machine executable - Forum Visual Basic 6
- Arctan excel ✓ - Forum Visual Basic 6
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
- Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin" - Forum Visual Basic
1 réponse
valtrase
Messages postés
937
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
9 mai 2022
3
21 janv. 2005 à 14:14
21 janv. 2005 à 14:14
Salut,
As tu chercher sur le forum nous avons aborder le thème plusieur fois !!!!
Voilà un bout de code a toi de le paufiner
Dim objExcelApp As Object
Dim objWorkSheet As Object
' On ouvre Excel
Set objExcelApp = CreateObject("Excel.Application")
' Un classeur et une feuille
objExcelApp.WorkBooks.open ("c:\Mon classeur.xls")
'utilise la propriété .Add si le classeur existe déja
Set objWorkSheet = objExcelApp.ActiveSheet
' ici on rentre les données
objWorkSheet.Cells(1, 1).Value = "Mes données"
' etc......
objExcelApp.Save ("C:\Mon Classeur.xls")
objExcelApp.ActiveWorkbook.Close
objExcelApp.quit
' on libère la mémoire
objExcelApp = Nothing
objWorkSheet = Nothing
____________________________________________________
Cordialement, Jean-Paul
Le Savoir n'a de valeur que s'il est partagé
As tu chercher sur le forum nous avons aborder le thème plusieur fois !!!!
Voilà un bout de code a toi de le paufiner
Dim objExcelApp As Object
Dim objWorkSheet As Object
' On ouvre Excel
Set objExcelApp = CreateObject("Excel.Application")
' Un classeur et une feuille
objExcelApp.WorkBooks.open ("c:\Mon classeur.xls")
'utilise la propriété .Add si le classeur existe déja
Set objWorkSheet = objExcelApp.ActiveSheet
' ici on rentre les données
objWorkSheet.Cells(1, 1).Value = "Mes données"
' etc......
objExcelApp.Save ("C:\Mon Classeur.xls")
objExcelApp.ActiveWorkbook.Close
objExcelApp.quit
' on libère la mémoire
objExcelApp = Nothing
objWorkSheet = Nothing
____________________________________________________
Cordialement, Jean-Paul
Le Savoir n'a de valeur que s'il est partagé
