Ouverture simultanée Excel/Word par macro

[Amandine]

Bonjour à tous,

Je voudrais savoir si il est possible de créer une macro me permettant lorsque j'ouvre mon classeur Excel, d'ouvrir également mon document Word.

Si vous avez également une méthode similaire... je suis prenante

A bientôt 🙂

 

[Dan]

Bonjour,

Clique sur ce lien : Lien supprimé

Bon travail

😉

 

[Amandine]

J'ai fait ceci mais cela ne fonctionne pas 'Erreur de compilation. Type défini par l'utilisateur non défini'

Private Sub Workbook_Open()
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = New Word.Application
With wordApp
.Visible = True
Set wordDoc = .Documents.Open('C:\\Bureau\\Post-it.doc', , False)
End With
End Sub

 

[Amandine]

J'ai fait ceci mais cela ne fonctionne pas 'Erreur de compilation. Type défini par l'utilisateur non défini'

Private Sub Workbook_Open()
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = New Word.Application
With wordApp
.Visible = True
Set wordDoc = .Documents.Open('C:\\Bureau\\Post-it.doc', , False)
End With
End Sub

 

[Hervé]

Bonjour amandine,dan, le forum

Il faut que tu coches la référence : microsoft word 10.0 object library

10.0 pour chez moi, ca peux etre une autre version sur ta machine.

dans VBE regarde dans le menu outils/référence.

salut

 

[Amandine]

Merci Dan 😉

J'ai coché la référence : microsoft word mais lorsque je ferme VBE et que je relance mon fichier, Word ne s'ouvre pas en même temps que Excel...

et il me semble pas que la macro soit fausse

Sub LancerWord()
Dim AppWord As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject('Word.Application')
Set wordDoc = Wordapp.Documents.Open(C😀ocuments and SettingsAdministrateurMes documentsAR_Cde.doc')
End Sub

 

[Dan]

Bonsoir,

Tu dois faire appel à la macro que tu montres dans ton dernier post lorsque tu ouvres Excel.

Pour ce faire :
- dans ton fichier excel, vas dans VBA
- CTRL + R pour afficher le VBA project
- Double clique sur la feuille Thisworbook et place la macro ci-dessous.

Private Sub Workbook_Open()
Call LancerWord
End Sub

- enregistre ton fichier puis ferme le.

Bien entendu, la macro LancerWord doit être placée dans un module de ton fichier excel.

Si pb n'hésite pas

😉

 

[Amandine]

Bonjour,

Dans ma feuille This Workbook, j'ai ceci :

Private Sub Workbook_Open() 'à l'ouverture du classeur
UserForm1.Show 'lance l'Userform1.show
End Sub

Private Sub Workbook_Open()
Call LancerWord
End Sub

Et j'ai comme message d'erreur :

Nom ambigu détecté : Workbook_Open
Et Private Sub Workbook_Open est mis en surbrillance

Et quand j'enleve mon 1er bloc pour l'userform, c'est Call qui est en surbrillance.

(la macro LancerWord est bien placée dans un module de mon fichier excel)

 

[Dan]

Bonjour,

Attention, tu ne peux pas avoir deux Private Sub Workbook_Open() comme je le vois dans ton post mais une seule !
Je ne connais pas ton appli mais voici peut être ce que tu devrais avoir.

Private Sub Workbook_Open() 'à l'ouverture du classeur
UserForm1.Show 'lance l'Userform1.show
Call LancerWord
End Sub

😉

 

[Amandine]

Merci Dan,

Ca fonctionne !!! je désespéré...

Bon après midi B)