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:
Etc etc...
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")
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
Partager