Ouverture simultanée Excel/Word par macro

A

Amandine

Guest
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 :)
 
A

Amandine

Guest
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
 
A

Amandine

Guest
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
 
A

Amandine

Guest
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:Documents and SettingsAdministrateurMes documentsAR_Cde.doc')
End Sub
 

Dan

XLDnaute Barbatruc
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.

Code:
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

;)
 
A

Amandine

Guest
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

XLDnaute Barbatruc
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.

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

;)
 

Discussions similaires

Statistiques des forums

Discussions
300 793
Messages
1 987 236
Membres
209 746
dernier inscrit
mb1982