Bonjour,

J'ai une fonction dans module1
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
Function LireCellule_ClasseurFerme( _
    Chemin As String, _
    Fichier As String, _
    Feuille As String, _
    Cellule As Variant) As Variant
      With CreateObject("ADODB.Connection")
        .Open "Provider = Microsoft.ACE.OLEDB.12.0;data source=" _
        & Chemin & "\" & Fichier & ";extended properties=""Excel 12.0;HDR=NO"""
        '---- Lecture Fichier ---
        With .Execute("SELECT * FROM [" & Feuille & "$" & Cellule & ":" & Cellule & "]")
            If .EOF = False Then    'je vérifie si la requête retourne une valeur!
             LireCellule_ClasseurFerme = .Fields(0).Value
            End If
             .Close '--- Fermeture --
        End With
        .Close
    End With
End Function
et dans la cellule AM4 j'ai
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=LireCellule_ClasseurFerme(AN4;AO4;LEGEND!A$11;LEGEND!A$13)
et dans la cellule AM9 j'ai
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=LireCellule_ClasseurFerme(AN9;AO9;LEGEND!A$11;LEGEND!A$13)
etc...

J'ai besoin qu'à l'ouverture de mon classeur Excel les cellules AM4, AM9, etc... soient mise à jour.

Je vais donc dans ThisWorkbook/Workbook/Open dans lequel je trouve :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_Open()
 
End Sub
Et je me dis que y a plus ka. Oui mais pas du tout.

Comment je peux appeler une fonction qui demande des paramètres bien précis. Ce que je veux exécuter c'est ce qu'il y a dans AM4, AM9, etc...

Merci d'avance pour votre retour d'expérience.