Au secours je comprend pas
ca doit certainement etre une erreur bete mais lors de l'ouverture de mon fichier excel il me met l'erreur suivante :

Erreur 13 : Incompatibilité de type

voila le code que j'ai utilisé

Sub DonnéesWordVersExcel()

Dim DocExcel As Excel.Workbooks

Dim AppExcel As Excel.Application

Dim nbchar As Integer


Set AppExcel = New Excel.Application

AppExcel.Visible = True

'Ouvre le document Excel

Set DocExcel = AppExcel.Workbooks.Open("c:\Eric\Transfert\testexcel.xls", ReadOnly = False)


merci encor