problème lien hypertext avec espace

[Bricetoushfresh]

Bonjour,

J'ai créer une macro qui duplique et renomme une feuille et crée un lien vers cette feuille.
En fait, je rentre un nom dans une cellule, je lance ma macro qui crée une nouvelle feuille, la renomme par le nom que j'ai rentrée et insere un lien hypertext dans la derniere cellule vide d'un tableau. Le problème c'est que le lien hypertext ne marche pas quand je rentre un nom avec un espace.
Voici ma macro.

Sub al()

Nom = Sheets("données").Cells(4, 2) 'en fait je n'en sais rien
Sheets("Nom du Client").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom
Range("B2") = Nom
With Sheets("recap") 'en fait je n'en sais rien non plus
.Hyperlinks.Add Anchor:=Sheets("recap").Range("C65536").End(xlUp).Offset(1, 0), Address:="", SubAddress:=Nom & "!A1", TextToDisplay:=Nom
End With
Sheets("Données").Select
End Sub

pouvez vous m'aider. Merci

 

[MJ13]

Re : problème lien hypertext avec espace

Bonjour Brice

Essaye de rajouter des ' sur le nom (voir mon utilitaire V4).

ex:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & NOMlien & "'!A1", TextToDisplay:=NOMlien

 

[Bricetoushfresh]

Re : problème lien hypertext avec espace

ca ne marche pas, il me dit que le nom entré n'est pas valide

 

[Bricetoushfresh]

Re : problème lien hypertext avec espace

non, ca ne marche pas, il me dit le nom entrée n'est pas valide

 

[Bricetoushfresh]

Re : problème lien hypertext avec espace

c'est bon, j'ai trouvé, je n'avais pas bien recopier ton code. Merci beaucoup