Discussion :

[kbakouan]

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

J'ai donc mis le code suivant:

Code :

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

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?

[patbou]

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

[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

[Tinnou]

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 :

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

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 :

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

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

[kbakouan]

Merci