bonsoir Didier
l'exemple que tu utilises Crée un nouveau document lié à un lien hypertexte
ci-dessous un exemple donné dans l'aide en ligne Excel
With Worksheets(1)
Set objHyper = _
.Hyperlinks.Add(Anchor:=.Range("A10"), _
Address:="\\Server1\Annual\Report.xls")
objHyper.CreateNewDocument _
FileName:="\\Server1\Annual\Report.xls", _
EditNow:=True, Overwrite:=True
End With
sinon pour créer un nouveau classeur et l'enregistrer tu peux essayer
Private Sub CommandButton9_Click()
Dim Nom As String
Nom = Range("A2").Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Nom & ".xls"
Unload Me
End Sub
si cela ne fonctionne pas , peux tu preciser plus précisément ce que tu souhaites obtenir
bonne soiree
MichelXld