Discussion :

[skual]

Bonjour,

J'ai une macro qui fait, entre autres, les actions suivantes:
- insérer un bouton dans une feuille
- y attribuer le code relatif à l'évènement click

J'ai donc fait comme ça:

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
20
21
22
23
24
25
Set oOLE = WSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=1629, Top:=-10, Width:=30, Height:=26)
oOLE.Name = "OFButton"
ActiveSheet.OLEObjects(1).Object.Caption = "OF"
 
 
Code = "Sub OFButton_Click()" & vbCrLf
Code = Code & "Dim nbr_lignes As Long" & vbCrLf
Code = Code & "Dim valeur As String" & vbCrLf
Code = Code & "Dim adresse As String" & vbCrLf
Code = Code & "nbr_lignes=2" & vbCrLf
Code = Code & "Public Const serveur = ("http://intranet.monlien")" & vbCrLf
 
Code = Code & "While ActiveSheet.Cells(nbr_lignes, 3).Value <> """ & vbCrLf
Code = Code & "Cells(nbr_lignes, 19).Select" & vbCrLf
Code = Code & "valeur = ActiveCell.Value" & vbCrLf
Code = Code & "adresse = serveur & valeur" & vbCrLf
Code = Code & "ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:=adresse" & vbCrLf
Code = Code & "nbr_lignes = nbr_lignes+1" & vbCrLf
Code = Code & "WEnd" & vbCrLf
Code = Code & "End Sub"
 
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
NextLine = .CountOfLines + 1
.insertlines NextLine, Code
End With

Mon souci se situe à cette ligne:

Code :

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

Code = Code & "Public Const serveur = ("http://intranet.monlien")" & vbCrLf

Comme ma chaîne est déjà entre guillemmets, je ne peux pas rajouter ceux qui encadrent le lien.

Est-ce que quelqu'un verrait une solution à ça?

Merci

[SilkyRoad]

bonjour

Double les guillemets
Supprime les parenthèses
Si la constante est déclarée dans le module, supprime "Public"

Code :

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

Code = Code & "Const serveur = ""http://intranet.monlien""" & vbCrLf

bonne soirée
michel

[skual]

Merci beaucoup Michel.

Ca fonctionne bien mieux comme ça.

Bonne soirée.

A+