Macro à lancer à l'ouverture

[gegadin]

Bonjour

Pourriez vous m'aider avec ce problème ? Je souhaite qu'à l'ouverture d'un fichier Word celui-ci ouvre automatiquement un fichier Excel existant si celui-ci n'est pas ouvert.

Voilà ce que j'ai marqué, et ça ne marche pas :

Sub Autoopen()

On Error Resume Next

Windows("Champs automatiques.xls").Activate

If Err <> 0 Then Open "H:\OBLIGS\Breve\Modeles\Champs automatiques.xls" For Input As #1
Err.Clear

End Sub

Le problème est que, comme vous l'aurez remarqué, je suis un programmeur VBA très occasionnel.


Merci pour votre aide.


PS : j'inclue une autre question pour ne pas encombrer le forum. J'ai créé une barre d'outils customisée dans le fichier Word mentionné plus haut et celle-ci 1) n'apparait pas à l'ouverture 2) disparait dès que je clique sur une autre application. Au final, je suis toujours obligé de faire des Outils>Personnaliser>Fermer pour la faire réapparaitre. Des idées ?

[Heureux-oli]

Salut,

C'est un peu normal que ça ne fonctionne pas !

Il faut préférer le code

Code :

Sub Document_Open()

Pour une macro devant s'exécuter lors de l'ouverture d'un document.

Si tu veux ouvrir un fichier Excel, il faut utiliser Excel, c'est mieux.

Code :

1
2
 
Dim xlApp As Excel.Application

Tu ne dois pas oublier d'ajouter la bibliothèque Excel à ton projet.

Dans le VBA Outils Reférences Choisir la bibliothèque Microsoft Office Excel.

Le code :

Code :

1
2
3
4
5
6
7
8
9
10
Sub Document_Open()
Dim xlApp As Excel.Application
Dim xlWB As Excel.WorkBook
 
set xlApp = New Excel.Application
Set xlWB = xlApp.WorkBooks.Open("H:\OBLIGS\Breve\Modeles\Champs automatiques.xls")
 
xlApp.Visible = True
 
End Sub

[gegadin]

Envoyé par Heureux-oli

Salut,

C'est un peu normal que ça ne fonctionne pas !

Il faut préférer le code

Code :

Sub Document_Open()

Pour une macro devant s'exécuter lors de l'ouverture d'un document.

Si tu veux ouvrir un fichier Excel, il faut utiliser Excel, c'est mieux.

Code :

Tu ne dois pas oublier d'ajouter la bibliothèque Excel à ton projet.

Dans le VBA Outils Reférences Choisir la bibliothèque Microsoft Office Excel.

Le code :

Code :

Merci, ça marche tout à fait.