Merci....mais malheureusement ne fonctionne toujours pas..??
de plus j'ai remarqué que dans mon premier message je n'ai pas envoyé le code complet..
A+
Sub OpenWithCreadteObjectExcel()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject('Excel.Application')
'xlApp.ThisWorkbook.Activate
' xlApp.Application.Visible = True
' Place du texte dans la première cellule de la feuille.
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlApp.Worksheets(1)
' xlApp.Application.Windows('newGestionTest').Activate
' xlApp.Visible = True
xlApp.ActiveWorkbook.ActiveSheet.Range('A1').Select
xlApp.ActiveSheet.Range('A1').Select
'Call TableauDonneeDPB
Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveCell.Value = nodem$
'Range('A1').Value = nodem$
ActiveCell.Offset(0, 1).Value = datedem$
ActiveCell.Offset(0, 2).Value = name_$
xlApp.ThisWorkbook.Activate
'xlApp.Quit
End Sub