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
Partager