Réponse acceptée !
Bonsoir,
j'ai trouvé aujourd'hui
Dans projet/référence je ne met jamais Microsoft Excel et dans
ma déclaration de variable je ne met pas :
Dim appExcel As New Excel.Application
mais Dim AppExcel as Object
Tout cela pour être à l'abri des différentes versions d'Excel.
Par contre j'ai trouvé quand même :
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Visible = False
AppExcel.Application.Workbooks.Add
AppExcel.Worksheets(1).Cells(LigneExcel, ColonneExcel).Font.Name ="Arial"
AppExcel.Worksheets(1).Cells(LigneExcel, ColonneExcel).Font.FontStyle
="Normal"
AppExcel.Worksheets(1).Cells(LigneExcel, ColonneExcel).Value = "Retour au
menu"
AppExcel.Worksheets(1).Hyperlinks.Addn AppExcel.Worksheets(1).Range("A1"),
NomFichier, "Menu!A1"
AppExcel.Worksheets(1).SaveAs NomDuDossier & NomFichier
AppExcel.Workbooks.Close
AppExcel.Quit
Set AppExcel = Nothing
NomFichier doit être le nom du fichier sans le chemin mais avec l'extension
Le nom d'onglet doit être encadré de simples cotes si il contient un blanc
Dany108
