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!
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.