Discussion :

[lodan]

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.

[riaolle]

Bonjour,
Selon moi, un classeur re-calcule toujours automatiquement les fonctions dans les cellules. Si ce n'est pas le cas, c'est sûrement qu'il y a un problème dans les options. Vérifie que tu as bien cela :


Si ça ne marche toujours pas essaie :

Code :

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

1
2
3
Private Sub Workbook_Open()
     Sendkeys("F9")
End Sub

Ou utilise l'enregistreur de macro au moment où tu appuies sur F9 et utilises le code généré dans Workbook_Open.