Faire ouvrir Excel par une macro Outlook

Faire ouvrir Excel par une macro Outlook - VB/VBA/VBS - Programmation

Marsh Posté le 19-09-2013 à 06:44:06    

Bonjour,
 
Je suis nouveau sur le forum.
 
Je veux monter une macro dans Outlook pour faire ouvrir Excel car je veux que des courriels reçus soient transformés en documents Excel.
 
Si je peux faire démarrer Excel ou un document Excel, après je m'arrange avec le reste mais je suis pas capable de faire partir Excel.
 
J'essaie cela mais ça ne fonctionne pas.
 
Quelqu'un peut m'aider s.v.p.
 
Merci,
 
JF
 

Citation :

Sub Ouvrir_Excel()
 
     
    MsgBox "avant"
   
     
    Workbooks.Open FileName:= _
        "E:\Info supplémentaire\Info supplémentaire.xlsx"
   
   ActiveWorkbook.Worksheets ("English" )
   
    MsgBox "Ca marche !!"
 
End Sub

Reply

Marsh Posté le 19-09-2013 à 06:44:06   

Reply

Marsh Posté le 19-09-2013 à 08:02:14    

Salut encore,
 
Je continue de chercher et j'ai activé la librairie de références Excel dans mon VBA de Outlook.
 
Je suis rendu avec:
 

Citation :

Sub ouvrir_Excel_B()
 
 
Dim oExcel As Excel.Application
Dim oWB As Workbook
MsgBox "avant"
Set oExcel = New Excel.Application
MsgBox "pendant"
Set oWB = oExcel.Workbooks.Open("E:\Info supplémentaire.xlsx" )
MsgBox "après"
   
End Sub


 
Il n'y a pas de message d'erreur mais ça ne semble rien faire et mon document Excel n'ouvre pas.
 
Pouvez-vous m'aider?
 
JF

Reply

Marsh Posté le 19-09-2013 à 11:43:07    

 
           Bonjour,
 
           merci d'utiliser la prochaine fois l'icône  C  dédiée au code …
 
           Si, si, le document Excel est bien ouvert vu qu'il n'y a pas de message d'erreur !
           Comment affirmer le contraire sans preuve ?
 
           Effectivement en Early Binding, il est nécessaire d'activer au moins une référence …
 
           Mais inutile en Late Binding :

Code :
  1. Sub OuvrirExcel()
  2.     Set XLapp = CreateObject("Excel.Application" )
  3.     XLapp.Workbooks.Open "E:\Info supplémentaire.xlsx"
  4.     MsgBox XLapp.ActiveWorkbook.Name & " : " & XLapp.ActiveSheet.Name
  5.     XLapp.Quit
  6.     Set XLapp = Nothing
  7. End Sub

           Donc si le nom du classeur ainsi que celui de sa première feuille apparaissent bien dans le message,
           le classeur est donc bien ouvert, CQFD !
 
           A suivre …
 
           Nb :  simulé depuis Word car Outlook banni de nos ordinateurs …
 

Reply

Marsh Posté le 19-09-2013 à 17:50:00    

Merci Marc,
 
En effet le nom du fichier apparaît dans le message mais le fichier lui-même n'apparaît pas sur mon bureau.
 
Comment faire pour qu'il ne soit pas caché ainsi?
 
Merci,
 
JF

Reply

Marsh Posté le 19-09-2013 à 20:31:56    

 
           Effectivement, l'instance d'une autre application n'est pas visible par défaut …
 
           Code modifié pour la rendre visible au détriment de la célérité d'exécution :

Code :
  1. Sub OuvrirVisibleExcel()
  2.     Set XLapp = CreateObject("Excel.Application" )
  3.     XLapp.Visible = True
  4.     XLapp.Workbooks.Open "D:\Tests\Test .xls"
  5.     Application.Activate
  6.     MsgBox XLapp.ActiveWorkbook.Name & " : " & XLapp.ActiveSheet.Name
  7.     XLapp.Quit
  8.     Set XLapp = Nothing
  9. End Sub

           Voir ce qu'il se passe si la ligne n°5 est mise en commentaire …
 

Reply

Marsh Posté le 20-09-2013 à 10:12:11    

 
 
           Un exemple de code dans le sujet  VBA/PPT remplacer des données  …
 
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed