Nous envoyons des mails avec un formulaire personnalisé contenant des champs à remplir par les destinataires avant retour.

Nous avons essayé le code ci-dessous déduit du code décrit dans la FAQ outlook:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub PilotageExcel ()
'Déclaration des variables
        Dim appExcel As Excel.Application    'Application Excel
        Dim wbExcel As Excel.Workbook    'Classeur Excel
        Dim wsExcel As Excel.Worksheet    'Feuille Excel
 'Ouverture de l'application
        Set appExcel = CreateObject("Excel.Application")
        appExcel.Visible = True
        'Ouverture d'un fichier Excel
        Set wbExcel = appExcel.Workbooks.Open("c:\users\Pierre\documents\" & "monfichier.xls")
Etc etc...

Nous avons mis un bouton de commande pour déclancher ce code, et suivant les conseils trouvés sur un autre forum, nous l'avons copié dans le script du message.

A l'exécution, un message " fin d'instruction attendue" apparait dès la première ligne d'instruction DIM. Si on enlève ces instructions rien ne se passe et Excel ne s'ouvre pas.

Nous avons bien vérifié que la bibliothèque MS 11 object library est bien cochée.

Quelqu'un a-t-il une idée de ce qu'il faut faire?

Merci d'avance