Discussion :

[pepsister]

Bonjour,

Je souhaiterais via une macro vba sous outlook, lorsque je recois un mail d'un destinataire spécifique, ouvrir le lancement d'un fichier excel et lancer la macro associé.

J'ai donc créé une règle qui me lance mon script lorsque je reçois un mail dudit destinataire.
Mon module contient:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  Dim appExcel As New Excel.Application    'Application Excel
  Dim wbExcel As Excel.Workbook    'Classeur Excel
  Dim wsExcel As Excel.Worksheet    'Feuille Excel
  Dim xlmacroBook As Excel.Workbook
 
  'Ouverture de l'application
  Set appExcel = Excel.Application
 
  appExcel.Visible = False
  'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("C:\projets\code OP.xlsx")
  'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(2)

j'ai également essayé en remplacement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim appExcel As New Excel.Application 
Set appExcel = Excel.Application

par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim appExcel As Excel.Application 
Set appExcel = CreateObject("Excel.Application")

mais j'ai toujours le même message d'erreur:
"Erreur d'exécution '429': Un composant ActiveX ne peut pas créer d'objet"
le problème est présent sur la ligne
Set appExcel = CreateObject("Excel.Application")
ou
Set appExcel = Excel.Application

Je précise que j'ai coché dans référence:
- Visual Basic For Applications
- Microsoft Outlook 12.0 Object Librairy
- OLE Automation
- Microsoft Office 12.0 Object Library (besoin pour l'enregistrement de pièces jointes)
- Microsoft CDO for Windows 2000 Library (besoin pour l'enregistrement de pièces jointes)
- Microsoft CDO 1.21 LIbrary (besoin pour l'enregistrement de pièces jointes)
- Microsoft Excel 12.0 Object Library (normalement utile pour ici)

Si quelqu'un peut m'aider, je ne sais pas quoi faire pour lancer automatiquement mon fichier excel, juste l'ouvrir déjà serait pas mal.

Merci beaucoup de votre aide,

[Oliv-]

Salut,
Je pense que ton office est mal installé.

[pepsister]

Euh ok mais c'est mon ordi de travail je n'ai aucun accès pour réinstaller le pack office. Il va donc falloir que je fasse avec.
Je suis en train de regarder pour lancer un batch permettant d'ouvrir excel du coup, genre:
proc = shelle (lance_excel...
je bloque un peu je ne comprends pas forcément tout.
Si tu as une idée la dessus je suis interessée

[Oliv-]

Salut,
Essaye peut être comme cela pour réparer, cela ne demande pas forcèment de sources
http://support.microsoft.com/kb/924614/fr

[SCryptCypher]

As-tu essayé simplement comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
  Dim appExcel As New Excel.Application    'Ouverture de l'Application Excel 
  Dim wbExcel As Excel.Workbook    'Classeur Excel
  Dim wsExcel As Excel.Worksheet    'Feuille Excel
  Dim xlmacroBook As Excel.Workbook
 
  appExcel.Visible = False
  'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("C:\projets\code OP.xlsx")
  'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(2)

[joe.levrai]

Bonjour,

et en utilisant une liaison tardive ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
    Dim xlApp As Object
    Dim xlWb As Object
    Dim xlSh As Object
 
    Set xlApp = CreateObject("Excel.Application")
 
    xlApp.Visible = True
    xlApp.workbooks.Open "chemin du classeur"
    On Error Resume Next
    xlApp.Activate
    On Error GoTo 0
 
    Set xlWb = xlApp.workbooks("nom du classeur")
 
 [...]