petite question sur les macros complémentaires

Je voudrai que toutes les macros d'un classeur soient des macros complémentaires.

J'ai donc mis le code suivant:

Code:

---

1 2 3 4

Private Sub Workbook_Open()   ThisWorkbook.IsAddin = True End Sub

---

comment faire pour kil apparaisse dans la liste des macros complémentaires?

BONJOUR
un coup d oeil dans le FAQ
http://silkyroad.developpez.com/VBA/...cEditor/#LII-B

merci.

J'aimerai savoir si c'est possible de faire une boucle if avec comme condition : un classeur ouvert ou pas .

if LeClasseur est ouvert then

......................

else....................;;

end if

Citation:

---

Envoyé par kbakouan

merci.

J'aimerai savoir si c'est possible de faire une boucle if avec comme condition : un classeur ouvert ou pas .

if LeClasseur est ouvert then

......................

else....................;;

end if

---

Je ferais comme ça personnellement:

Code:

---

1 2 3 4 5 6 7 8 9

On Error Resume Next LeClasseur.Activate 'On essaye d'activer le classeur, ce qui créé une erreur s'il est fermé If Err = 0 Then 'Le classeur est bien ouvert MsgBox ("Le classeur est ouvert") Else 'Le classeur est fermé Err.Clear 'On clear l'erreur MsgBox("Le classeur est fermé") End If

---

C'est ce que j'utilise dans ma macro d'ouverture de classeur, pour tester si un classeur est déjà ouvert, et l'ouvrir sinon:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function OpenWorkbook(Workbook_FullPath As String) As Workbook If Dir(Workbook_FullPath) = "" Then MsgBox ("Erreur : Le classeur '" & Workbook_FullPath & "' n'existe pas!") Exit Function End If 'Le classeur existe On Error Resume Next Workbooks(Dir$(Workbook_FullPath)).Activate If Err <> 0 Then Err.Clear Workbooks.Open Workbook_FullPath End If Set OpenWorkbook = Workbooks(Dir$(Workbook_FullPath)) End Function

---

Merci:yaisse2: