Discussion :

[lptht]

Bonjour,

Voici mon problème:

Quand je clique sur le bouton du formulaire1 de ma BDD (RechercheExcel.mdb), j'aimerais:

1) qu'Access ouvre ClasseurDonnees.xls
2) créer un nouveau classeur1
3) regarde pour chaque référence de "ClasseurDonnees.xls" si la valeur correspondante existe dans la table1 de la BDD
4) si la valeur existe, Access copie les information dans le classeur1
5) Access affiche le classeur1

Le code doit être en LateBinding.

J'ai commencé à écrire un module grâce au tutoriel de mhubiche: http://mhubiche.developpez.com/vba/o...cel/recordset/

Cependant, je ne sais pas comment gérer la succession de lecture/écriture dans deux différents classeurs Excel.

Quelqu'un saurait-il comment s'y prendre?

Merci d'avance pour vos réponses.

[helas]

Bonjour,
je propose

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
 
    'Définir les objets Application et Classeur d'Excel (Classeur 1)
    Set objExcel1 = CreateObject("Excel.Application")
    objExcel1.Visible = True   'optionnel
    Set objClasseur1 = objExcel1.workbooks.Add()
 
    'Afficher le classeur où sont les données à analyser (Classeur 2)
    strNomFichier = CurrentProject.Path & "\ClasseurDonnees.xlsx"
    Set objExcel2 = CreateObject("Excel.Application")
    objExcel2.Visible = True   'optionnel
    objExcel2.workbooks.Open strNomFichier
    Set objClasseur2 = objExcel2.workbooks(1)
 
    'Boucle sur toutes les lignes du classeur du données pour savoir si la référence existe dans la BDD
    Set rstDatas = CurrentDb.OpenRecordset("Table1", dbOpenSnapshot)
    ligne = 1
    i = 2
    Do
        Valeur = objClasseur2.Sheets("Feuil1").range("A" & i)
        If objClasseur2.Sheets("Feuil1").range("A" & i) = "" Then Exit Do
        rstDatas.MoveFirst
        rstDatas.FindFirst "[id]=" & Valeur 'recherche la valeur
        If Not rstDatas.NoMatch Then    'si trouvée on enregistre
            objClasseur1.Sheets("Feuil1").Cells(ligne, 1) = Valeur
            ligne = ligne + 1           'pour la prochaine valeur
        End If
        i = i + 1   'cellule suivante
    Loop
    rstDatas.Close

ne pas oublier d'ajouter les références Microsoft Excel et Microsoft DAO

[lptht]

Merci helas,

ton code marche très bien!

Pour information, je n'ai pas eu besoin d'ajouter la référence Microsoft Excel... LateBinding Rules