[ACCESS/EXCEL]Transfert de données
Fermé
Johan
-
17 mai 2010 à 18:17
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 - 18 mai 2010 à 12:28
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 - 18 mai 2010 à 12:28
A voir également:
- [ACCESS/EXCEL]Transfert de données
- Liste déroulante excel - Guide
- We transfert - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
1 réponse
Morgothal
Messages postés
1236
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
183
18 mai 2010 à 12:28
18 mai 2010 à 12:28
Bonjour,
Il faut d'abord créer ton classeur Excel avec ce code :
Private Sub cmdOpenExcel_Click()
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "c:\toto.xls"
xls.Visible = True
Exit Sub
errHnd:
MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source
End Sub
Pour que ça marche il faut bien sûr cocher une référence Excel dans Outils/Référence et cocher Microsoft Excel 8 (par exemple)
Pour ensuite exporter le dataset dans le nouveau classeur, je ne sais pas...
Je sais exécuter la requête et enregistrer le résultat dans une feuille, mais seulement à partir d'excel, ce qui ne te convient pas si le fichier excel n'existe pas au départ...
J'espere avoir pu t'aider
A+
Il faut d'abord créer ton classeur Excel avec ce code :
Private Sub cmdOpenExcel_Click()
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "c:\toto.xls"
xls.Visible = True
Exit Sub
errHnd:
MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source
End Sub
Pour que ça marche il faut bien sûr cocher une référence Excel dans Outils/Référence et cocher Microsoft Excel 8 (par exemple)
Pour ensuite exporter le dataset dans le nouveau classeur, je ne sais pas...
Je sais exécuter la requête et enregistrer le résultat dans une feuille, mais seulement à partir d'excel, ce qui ne te convient pas si le fichier excel n'existe pas au départ...
J'espere avoir pu t'aider
A+