Erreur de synthaxe

[Florian53]

Bonjour j'ai une erreur de syntaxe que je n'arrive pas a résoudre si quelqu'un pourrait m'indiquer ou se situe la faute merci à vous.

Voici le code:

ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 13), Address:="C:\Documents and Settings\Florian\Mes documents\" & MyName".xls",
TextToDisplay:=MyName

 

[PascalXLD]

Re : Erreur de synthaxe

Bonjour

remplace

& MyName".xls",

par

& MyName &".xls",

 

[Florian53]

Re : Erreur de synthaxe

j'ai remplacé comme ceci :

ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 13), Address:="C:\Documents and Settings\Florian\Mes documents\" & MyName &".xls",
TextToDisplay:=MyName

et il me marque :

Erreur de compilation

Erreur de syntaxe

Voici mon code entier:

Sub AutoSaveIncremental()
Dim MyName As String, MyNumber As Variant
' Récupération du prochain numéro
MyNumber = Get_Number_Next(10)
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(MyNumber, "0000")
' Mise à jour de la numerotation
Maj_numbers 10, MyNumber
' Sauvegarde
Save_numbers
Dim wb As Workbook
Set wb = GetObject("C:\Documents and Settings\Florian\Mes documents\essai\Commande en cours.xls")
wb.Activate
ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 13), Address:="C:\Documents and Settings\Florian\Mes documents\" & MyName &".xls",
TextToDisplay:=MyName
ThisWorkbook.SaveAs MyName
Call MessageInformation
ThisWorkbook.Close
End Sub

 

[PascalXLD]

Re : Erreur de synthaxe

Re

TextToDisplay:=MyName

doit se trouver après ta virgule sur la ligne d'avant

 

[Florian53]

Re : Erreur de synthaxe

Nickel merci à toi cela fonctionne