Connexion entre VBA Access et Excel
Résolu/Fermé
A voir également:
- Connexion entre VBA Access et Excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Gmail connexion - Guide
- Hotmail connexion - Guide
- Word et excel gratuit - Guide
4 réponses
yg_be
Messages postés
22722
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 avril 2024
1 476
27 juin 2022 à 18:56
27 juin 2022 à 18:56
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.
yg_be
Messages postés
22722
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 avril 2024
1 476
27 juin 2022 à 19:21
27 juin 2022 à 19:21
"il n'arrive pas": que se passe-t-il? message d'erreur?
qu'affiche le second msgbox?
qu'affiche le second msgbox?
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
yg_be
Messages postés
22722
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 avril 2024
1 476
27 juin 2022 à 19:34
27 juin 2022 à 19:34
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.
