Connexion entre VBA Access et Excel
Résolu
arthur5c
-
arthur5c -
arthur5c -
Bonjour à tous,
Je souhaite communiquer entre un formulaire Access et une page Excel. Par exemple, sur le formulaire Access, lorsqu'on appuie sur un bouton, le texte 'Exemple' s'écrit sur la case B2 dans Excel. J'ai essayé différentes méthodes et tutoriels mais sans réussites.
Auriez-vous un code ou une idée ?
Merci
Je souhaite communiquer entre un formulaire Access et une page Excel. Par exemple, sur le formulaire Access, lorsqu'on appuie sur un bouton, le texte 'Exemple' s'écrit sur la case B2 dans Excel. J'ai essayé différentes méthodes et tutoriels mais sans réussites.
Auriez-vous un code ou une idée ?
Merci
A voir également:
- Connexion entre VBA Access et Excel
- Gmail connexion - Guide
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Déplacer colonne excel - Guide
4 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
qu'as-tu essayé, quel résultat as-tu obtenu?
qu'as-tu essayé, quel résultat as-tu obtenu?
J'ai trouvé cela sur internet :
chemin = Application.CurrentProject.Path & "\Classeur1.xlsx"
Set fenetre = CreateObject("Excel.Application")
Set classeur = fenetre.Workbooks.Open(chemin)
recuperation = classeur.Sheets("Feuil1").Range("B1").Value
MsgBox (recuperation)
classeur.Sheets("Feuil1").Range("B2").Value = "Test envoie"
MsgBox (classeur.Sheets("Feuil1").Range("B2").Value)
fenetre.Application.DisplayAlerts = False
fenetre.Quit
Set fenetre = Nothing
Set classeur = Nothing
----------------------------------------------------------------------------------------------------------------------------------------------------------
Et pour le résultat, il arrive à récupérer la valeur du champs B1 dans la feuille 1 mais il n'arrive pas à écrire dans B2.
chemin = Application.CurrentProject.Path & "\Classeur1.xlsx"
Set fenetre = CreateObject("Excel.Application")
Set classeur = fenetre.Workbooks.Open(chemin)
recuperation = classeur.Sheets("Feuil1").Range("B1").Value
MsgBox (recuperation)
classeur.Sheets("Feuil1").Range("B2").Value = "Test envoie"
MsgBox (classeur.Sheets("Feuil1").Range("B2").Value)
fenetre.Application.DisplayAlerts = False
fenetre.Quit
Set fenetre = Nothing
Set classeur = Nothing
----------------------------------------------------------------------------------------------------------------------------------------------------------
Et pour le résultat, il arrive à récupérer la valeur du champs B1 dans la feuille 1 mais il n'arrive pas à écrire dans B2.
Le second MsgBox affiche correctement "Test envoie" mais quand je vais sur Excel pour voir la case B2 rien n'a été écrit. Case vide
C'est normal, tu ne sauves pas le classeur Excel.
Suggestion:
Suggestion:
Option Compare Database
Option Explicit
Private Sub ty()
Dim fenetre As Excel.Application, classeur As Excel.Workbook
Dim chemin As String, recuperation As String
chemin = Application.CurrentProject.Path & "\Classeur1.xlsx"
Set fenetre = New Excel.Application
Set classeur = fenetre.Workbooks.Open(chemin)
recuperation = classeur.Sheets("Feuil1").Range("B1").Value
MsgBox (recuperation)
classeur.Sheets("Feuil1").Range("B2").Value = "Test envoie"
MsgBox (classeur.Sheets("Feuil1").Range("B2").Value)
Call classeur.Close(True)
fenetre.Application.DisplayAlerts = False
fenetre.Quit
Set fenetre = Nothing
Set classeur = Nothing
End Sub
Il est nécessaire d'ajouter "Microsoft Excel nn Object Library" dans les références de l'application.