exécution macro à l'ouverture classeur

[bellous]

Bonjour,

Le titre a tout dit.
Je voudrai exécuter automatiquement une macro à l'ouverture d'un classeur afin d'avoir directement mes menus perso.
Merci de votre aide

 

[cabsen]

Re : exécution macro à l'ouverture classeur

Bonjour bellous,

Et bien il te suffit de placer ta macro dans le module ThisWorkbook (Workbook_Open) et non dans un module numéroté.

Salutations !

 

[bellous]

Re : exécution macro à l'ouverture classeur

lorsque je fais visual basic editor, affichage, explorateur de projets, je ne trouve pas ThisWorkbook

 

[bellous]

Re : exécution macro à l'ouverture classeur

pardon j'avais pas vu
merci cabsen, je vais essayer

 

[bellous]

Re : exécution macro à l'ouverture classeur

ça ne fonctionne pas

 

[kjin]

Re : exécution macro à l'ouverture classeur

bonsoir bellous, cabsen,
Tu peux mettre uniquement le nom de la macro dans le module Workbook_Open
A tester avec ta procédure.
A+
kjin

 

[bellous]

Re : exécution macro à l'ouverture classeur

salut kjin,
je vais dans ThisWorkbook je colle la macro ci-dessous et je sauvegarde le classeur tel quel. Lorsque je le ré-ouvre la macro ne s'exécute pas. Où fais-je une erreur ?


Sub Lancer_le_Programme()

Application.CommandBars("Forms").Visible = False
Application.ScreenUpdating = False
Sheets("accueil").Select
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
CommandBars("Worksheet Menu Bar").Controls("Edition").Visible = False
CommandBars("Worksheet Menu Bar").Controls("fichier").Visible = False
CommandBars("Worksheet Menu Bar").Controls("affichage").Visible = False
CommandBars("Worksheet Menu Bar").Controls("insertion").Visible = False
CommandBars("Worksheet Menu Bar").Controls("format").Visible = False
CommandBars("Worksheet Menu Bar").Controls("outils").Visible = False
CommandBars("Worksheet Menu Bar").Controls("données").Visible = False
CommandBars("Worksheet Menu Bar").Controls("fenêtre").Visible = False
CommandBars("Worksheet Menu Bar").Controls("?").Visible = False
ActiveWindow.DisplayHeadings = False
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With

Set barre = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
barre.Caption = "Clients"
With barre.Controls.Add(msoControlButton)
.Caption = "Saisie Fiches Individuelles"
.OnAction = "Saisie_Fiche_Clients"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Consultation / Modif Fiches Inividuelles"
.OnAction = "Consult_Modif_Clients"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Liste"
.OnAction = "Liste_Clients"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Impression Fiche"
.OnAction = "Impression_Fiche_Clients"
End With

Set barre = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
barre.Caption = "Chevaux"
With barre.Controls.Add(msoControlButton)
.Caption = "Saisie Fiches"
.OnAction = "Saisie_Fiche_Cheval"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Consultation / Modif Fiches"
.OnAction = "Consult_Modif_chevaux"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Liste"
.OnAction = "Liste_Chevaux"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Impression Fiche"
.OnAction = "Impression_Fiche_Chevaux"
End With

With barre.Controls.Add(msoControlButton)
Set barre = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
barre.Caption = "Planning"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Saisie"
.OnAction = "Saisie_Planning"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Consultation Journée"
.OnAction = "Consul_Modif_Journée_Planning"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Impression Journée"
.OnAction = "Impression_Journée_Planning"
End With

With barre.Controls.Add(msoControlButton)
Set barre = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
barre.Caption = "Factures"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Saisie"
.OnAction = "Saisie_Factures"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Consultation_Factures "
.OnAction = "Consult_Modif_Factures"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Impression Facture"
.OnAction = "Impression_Factures"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Liste Facture"
.OnAction = "Liste_Factures"
End With
With barre.Controls.Add(msoControlButton)
Set barre = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
barre.Caption = "Adressage"
End With
With barre.Controls.Add(msoControlButton)
.Caption = " Actifs "
.OnAction = "Adressage_Actifs"
End With
With barre.Controls.Add(msoControlButton)
.Caption = " Anciens "
.OnAction = "Adressage_Anciens"
End With
With barre.Controls.Add(msoControlButton)
.Caption = " Tous "
.OnAction = "Adressage_Tous"
End With

With barre.Controls.Add(msoControlButton)
Set barre = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
barre.Caption = "Fin d'année"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "Mise à zéro et nouvelle Année"
.OnAction = "Remise_à_Zéro"
End With
With barre.Controls.Add(msoControlButton)
Set barre = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
barre.Caption = "A Propos"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "rétablisement"
.OnAction = "Rétablissement_menu_outils"
End With
With barre.Controls.Add(msoControlButton)
.Caption = "A Propos"
.OnAction = "A_Propos"
End With

Application.ScreenUpdating = True
Range("a1").Select

 

[cabsen]

Re : exécution macro à l'ouverture classeur

Re,

Ta macro doit porter le nom Workbook_Open()

 

[bellous]

Re : exécution macro à l'ouverture classeur

çà fonctionne, toutefois la macro plante à la première commandbars :

CommandBars("Worksheet Menu Bar").Controls("Edition").Visible = False

"Variable objet ou variable de bloc With non définie"

 

[bellous]

Re : exécution macro à l'ouverture classeur

Merci staple1600 ça fonctionne super.
Merci aussi cabsen et kjin.
Bonne soirée