[ACCESS/EXCEL]Transfert de données
Johan
-
Morgothal Messages postés 1350 Statut Membre -
Morgothal Messages postés 1350 Statut Membre -
Bonjour,
Mon but est : lors d'un clic sur le bouton de transfert, le contenu d'une de mes tables access doit être transféré dans Excel et sauvegardé ce fichier nouvellement créé.
Le fichier Excel n'éxiste pas avant le clic sur ce bouton.
Une fois le transfert fini, le fichier est sauvegardé.
Tout le transfert s'effectue en arrière-plan.
Je sais que l'on peut transférer les données depuis Excel( avec Données => Données Externes => Importer des données), mais on m'a demandé de créer un bouton pouvant le faire.
Pouvez-vous m'aider dans cette démarche ?
Mon but est : lors d'un clic sur le bouton de transfert, le contenu d'une de mes tables access doit être transféré dans Excel et sauvegardé ce fichier nouvellement créé.
Le fichier Excel n'éxiste pas avant le clic sur ce bouton.
Une fois le transfert fini, le fichier est sauvegardé.
Tout le transfert s'effectue en arrière-plan.
Je sais que l'on peut transférer les données depuis Excel( avec Données => Données Externes => Importer des données), mais on m'a demandé de créer un bouton pouvant le faire.
Pouvez-vous m'aider dans cette démarche ?
A voir également:
- [ACCESS/EXCEL]Transfert de données
- Liste déroulante excel - Guide
- Trier des données excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
1 réponse
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+
