Copie de données entre Access et Excel par code VBA

Version imprimable

24/04/2020, 17h23
Icamstudent

Copie de données entre Access et Excel par code VBA

Bonjour,
Je rencontre des difficultés pour faire une copie de donnée extraite d'un formulaire Access, dans une feuille d'un fichier Excel.
J'ai donc un fichier Access, et un fichier Excel. Dans un formulaire il y'a 3 champs que j'aimerais copier dans une feuille de donnée Excel.

Pour construire mon code je me suis inspiré d'une vidéo YouTube sur la "communication entre Access et Excel par le code VBA":
https://www.youtube.com/watch?v=VNib9tdMfEU&t=1434s

Cependant je n'arrive pas à trouver la bonne syntaxe pour que les données soit bien copier dans la feuille Excel. Actuellement elle sont juste envoyer dans la feuille mais elle sont supprimer quand l'application se ferme dans le code VBA.
Avez-vous les solutions à me proposer ?

Merci d'avance !
24/04/2020, 19h22
marot_r

Bonjour.

Ce serait bien de poster le code que tu utilises mais en gros il faut faire quelque chose comme : ThisWorkbook.saveas "X:\TonChemin\TonFichier.xlsx" avant l'instruction de fermeture ou alors changer le code pour que le Excel ne se ferme pas après l'arrêt du code.

A+
27/04/2020, 11h20
Icamstudent

1 pièce(s) jointe(s)

Bonjour, voici le code que j'ai. J'avais simplement recopier le code de la vidéo en l'adaptant à mon sujet.

Pièce jointe 560604
27/04/2020, 15h29
Thumb down

bonjour,
tu veux une réponse Photoshop?

Je suis pas sur d'avoir compris mais je voudrais une solution à mon problème.
Voici le code si c'est mieux pour vous...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
'Fonction pour copier les donnée dans la feuille excel OD_Bloqués
'Définir les variable
Dim NumOd As String: Dim DateInt As Date: Dim Com As String
Dim fenetre As Excel.Application
Dim classeur As Excel.Workbook
Dim chemin As String
 
'initialiser les variable
NumOd = Numero_od.Value
DateInt = Date_Int.Value
Com = Commentaire.Value
 
chemin = Application.CurrentProject.Path & "\OD_Dday"
 
Set fenetre = CreateObject("Excel.Application")
Set classeur = fenetre.Workbooks.Open(chemin)
 
'Copier les données dans le feuille OD_Bloqués
classeur.Sheets("OD_Bloqués").Range("A72").Value = NumOd
classeur.Sheets("OD_Bloqués").Range("E72").Value = DateInt
classeur.Sheets("OD_Bloqués").Range("G72").Value = Com
 
'ThisWorkbook.SaveAs "X:\TonChemin\TonFichier.xlsx"
 
'Message de confirmation que les données on été copier
MsgBox ("Les données de la commande ont été copier")
 
'Fermeture de l'application Excel
fenetre.Application.DisplayAlerts = False
fenetre.Quit
 
Set fenetre = Nothing
Set classeur = Nothing

j'ai l'impression que tu as bien compris!

Code:

1
2
3
4
5
6
7
8
9
Set classeur = fenetre.Workbooks.Open(chemin)
classeur.Sheets("OD_Bloqués").Range("A72").Value = NumOd
classeur.Sheets("OD_Bloqués").Range("E72").Value = DateInt
classeur.Sheets("OD_Bloqués").Range("G72").Value = Com
classeur.save
classeur.close false
fenetre.Quit
 Set fenetre = Nothing
Set classeur = Nothing

27/04/2020, 16h58
Icamstudent

Merci pour ce code je vais tester ça dans mon fichier
27/04/2020, 17h33
Icamstudent

Merci bcp pour le code, il marche parfaitement!