Faire ouvrir Excel par une macro Outlook

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Faire ouvrir Excel par une macro Outlook

purenergy

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

Publicité

purenergy

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

Marc L

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 :

Sub OuvrirExcel()
Set XLapp = CreateObject("Excel.Application" )
XLapp.Workbooks.Open "E:\Info supplémentaire.xlsx"
MsgBox XLapp.ActiveWorkbook.Name & " : " & XLapp.ActiveSheet.Name
XLapp.Quit
Set XLapp = Nothing
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 …

purenergy

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

Marc L

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 :

Sub OuvrirVisibleExcel()
Set XLapp = CreateObject("Excel.Application" )
XLapp.Visible = True
XLapp.Workbooks.Open "D:\Tests\Test .xls"
Application.Activate
MsgBox XLapp.ActiveWorkbook.Name & " : " & XLapp.ActiveSheet.Name
XLapp.Quit
Set XLapp = Nothing
End Sub

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

Marc L

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Faire ouvrir Excel par une macro Outlook

Sujets relatifs
[EXCEL] Impression d'une zone variable (problème de Range) [Résolu]	Ouvrir un fichier Excel (vba)
[Excel] Copier le contenu de plusieurs fichier Excel dans un seul	[ Excel & Seven ] Perte variable
Je souhaite une macro qui ouvre un fichier excel. Résolu Merci	répartition de livraisons sous excel
[EXCEL] Calcul de prono pour le foot :p	VBA Excel, ouvrir une seule feuille d'un Workbook
Plus de sujets relatifs à : Faire ouvrir Excel par une macro Outlook

Page générée en 0.051 secondes