Titre du sujet : Re: Doublon BDD
par jjawed le 17/03/2009 22:09:42
Salut myDearFriend et Skoobi et le forum avant toute chose je tiens à vous remercier tous pour vos efforts qui nous facilite notre travail et nous fais gagné un temps considérable
Skoobi voici le code, je tiens a précisé qu'il y a une selection du mot: Test = je ne sais pas pourquoi
'Une Selection Jaune Private sub ... "ICI" puis plus bas
Private Sub Workbook_Open()
Dim MenuPerso As CommandBarPopup
Dim NewMenuItem As CommandBarButton
Dim complement As Boolean
'v�fie que le fichier est install�t non ouvert comme un fichier ordinaire
On Error Resume Next
complement = AddIns("DoublonsBDD_v1.1").Installed
If Err.Number > 0 Then
MsgBox "Ce fichier est une macro compl�ntaire �nstaller via Outils>Macros compl�ntaire", vbCritical
ThisWorkbook.Close
Exit Sub
End If
'ici on v�fie que le menu "Perso" existe ou pas afin d'�ter de cr� un doublon
On Error Resume Next
'Une sellection du mot Test= ICI ????
Test = Application.CommandBars(1).Controls("perso").Caption
If Err.Number > 0 Then
Set MenuPerso = Application.CommandBars(1).Controls.Add(Type:=10, Temporary:=True)
MenuPerso.Caption = "Perso"
Else: Set MenuPerso = Application.CommandBars(1).Controls("perso")
End If
Set NewMenuItem = MenuPerso.Controls.Add(Type:=1, Temporary:=True)
With NewMenuItem
.Caption = "Doublons BDD"
.OnAction = "TraiteDoublon"
.FaceId = 1987
End With
End Sub
a bientot
cordialement
| 
Didier FOURGEOT