insertion dynamique de code
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:
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:
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 :D
