Excel VBA: "Workbook_Open"

Je suis en utilisant "Workbook_Open" pour appeler un objet userform lorsque l'application est ouverte, cela fonctionne bien. Cependant, j'aimerais qu'à exécuter la première fois qu'il est ouvert.
J'ai essayé et ça marche si je lance le sous de l'éditeur, mais pas quand j'ouvre le fichier.

Sub Workbook_Open()
If Worksheets("DataSheet").Range("A1").Value = "" Then
     QuickStartForum.Show
End If
End Sub

Remarque: A1 contient la valeur qui doit être rempli qu'une fois le formulaire utilisateur a exécuté

Il semble que le problème, c'est qu'il ouvre le formulaire utilisateur avant le chargement des données dans la feuille de calcul.

Est-ce là une façon de contourner ce problème ou dois-je besoin de prendre une approche différente ?

InformationsquelleAutor dud | 2012-12-19
  1. 5

    Je pense que c'est parce que vous avez ce code dans un Module. Vous avez besoin de mettre le code dans 'ThisWorkBook'.

    J'ai essayé ce code suivant et pas eu de problèmes quand il était dans la 'ThisWorkBook' il n'a pas pu exécuter à l'intérieur des"Module1' 

    Private Sub Workbook_Open()
    If Worksheets("DataSheet").Range("A1").Value = "" Then
         QuickStartForum.Show
         Worksheets("DataSheet").Range("A1").Value = "filled" ' <-- this fills the cell with data for testing, so that when you reopen the file it should not re-open the userform
    Else
        MsgBox ("not shown because the A1 cell has data")
    End If
End Sub
    InformationsquelleAutor Chris