Creation d'un macro complémentaire en excel (menu outils tout en bas c'est notre application apres l'execution de ce macro

Télécharger le projet
Commenter

Description

C'est tres simple!
'Creation d'un macro complémentaire en excel
'tu ouvre un fichier nouveau.xls et apres tu 'l'enregistre avec "le nom de ton fichier.xla 'attention pas .xls mais .xla
' et c'est tout

Source / Exemple : 


'Creation d'un macro complémentaire en excel
'tu ouvre un fichier nouveau.xls et apres tu 'l'enregistre avec "le nom de ton fichier.xla  'attention pas *.xls mais *.xla
' et c'est tout

'dand 
'ThisWorkbook
'code
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Supp_Menu
End Sub

Private Sub Workbook_Open()
    Ajout_menu
End Sub

'dans le module qui s'appele Menu

Option Explicit
Dim NouvMenu, cb, i, mybar
Dim Action As String

Function Ajout_menu()
   On Error Resume Next
   Supp_Menu
   Set NouvMenu = CommandBars("tools").Controls.Add
    With NouvMenu
        .Caption = "le nom qui apparais dans le Menu Outils"
        .OnAction = "Ouvrir_Repert"
        .BeginGroup = True
    End With
End Function

Function Supp_Menu()
    On Error Resume Next
    CommandBars("tools").Controls("le nom qui apparais dans le Menu outils").Delete
End Function

Sub Ouvrir_Repert()
    Workbooks.Open Workbooks("le nom de ton fichier mais xla .xla").Path & "\le nom de ton fichier excel.xls"
End Sub

'c'est tout

Conclusion :


Le zip c'est un exemple!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (spqrliv)