Discussion :

[seyar7]

Bonjour,

j'ai un excel avec 70 feuilles
sur une feuille j'ai inséré via excel un bouton, ai créé une macro avec hyperlien vers la première page de mon sheetbook et ai relié le macro à mon bouton:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub OffredePrix()
'
'lien vers offre de prix'
'
Dim YesOrNoAnswerToMessageBox As String
Dim QuestionToMessageBox As String
 
    QuestionToMessageBox = "Voulez-vous créer une Offre de Prix pour ce client?"
 
    YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "Offre de Prix")
 
    If YesOrNoAnswerToMessageBox = vbNo Then
         MsgBox "peut-être le proichaine fois!"
    Else
        ThisWorkbook.FollowHyperlink Address:="G:\sbe\suivi relation clients\testdocs\offre pour testdoc2.docx"
    End If
 
 
End Sub

mais je voudrais via script créer un bouton dans chaque feuille avec le lien sur le bouton

mais comment?
qqu'un peut m'aider

[sabzzz]

bonjour seyar7,

voici un exemple avec des boutons créer à partir de la barre d'outils "dessin "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub CréerBO()
For Each f In Worksheets
 Set bo = Sheets(f.Name).Shapes.AddShape(msoShapeRectangle, 80, 8, 90, 20)
 With bo
    .Placement = xlFreeFloating
    .OnAction = "OffredePrix"
 End With
Next
End Sub