Lors de l'ouverture d'excel, comment afficher un bouton macro ?

Bonjour,

Suite à de nombreuses tentatives, ma macro ne fonctionne pas comme je le voudrais.

Voici le code :

Private Sub Workbook_Open()
Range("A3:G13").Select
Selection.Copy
Range("L3").Select
ActiveSheet.Paste
Columns("L:L").Select
Selection.ColumnWidth = 12
Columns("M:M").Select
Selection.ColumnWidth = 12
Columns("N:N").Select
Selection.ColumnWidth = 80
Range("L3:N13").Select
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("N4:N13").Select
ActiveWorkbook.Worksheets("AH000003").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("AH000003").Sort.SortFields.Add Key:=Range("N4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("AH000003").Sort
.SetRange Range("L4:N13")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Cependant cette macro ne marche que sur la feuille ouverte. Mais je voudrais que cette macro apparaisse sur toutes les feuilles excel.

Exemple : Mon fichier s'appelle C001 et la macro apparaît sur ce classeur. Quand je ferme excel et que j'ouvre un deuxième fichier se nommant C002 je veux également que ma macro apparaisse dans ce fichier et ainsi de suite ...

De plus je n'ai toujours pas trouvé un code qui fonctionne pour afficher mon bouton automatiquement.

help me :'(

J'ai testé votre code dans un fichier

http://cjoint.com/?EAvoSyyaiEH

C'est fonctionnel chez moi.

Il faut pas seulement mettre votre code dans un module et appeler notre fonction Private Sub Workbook_Open()
Il faut aller dans l'objet workbook et ouvrir l'évènement open et ensuite on place notre code à cet endroit.

A moins que votre question est plutôt.

Vous avez plusieurs feuille dans un classeur,
Vous avez créé un bouton sur l'une d'entre elle.
Vous aimeriez copier ce bouton sur l'ensemble de toute les feuilles votre classeur à l'ouverture du dit classeur. ?

est-ce cela ?

Voici un petit document réalisé par mes soins pour vous expliquez plus en détail mes attentes.
https://www.cjoint.com/c/EAwigUYUVAx

En espérant que cela réponde à vos questions.