Discussion :

[Icamstudent]

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":

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 !

[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+

[Icamstudent]

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

[Thumb down]

bonjour,
tu veux une réponse Photoshop?

[Icamstudent]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thumb down]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Icamstudent]

Merci pour ce code je vais tester ça dans mon fichier

[Icamstudent]

Merci bcp pour le code, il marche parfaitement!