Discussion :

[vbword]

Bonjour.

Sur une macro Word, je souhaite juste ouvrir un classeur Excel éxistant en cliquant sur un CommandButton

Le classeur Excel est sous C:\LISTE_DES_AVOCATS ET DES BARREAUX.xls

Merci d'avance

[vbword]

Bon en fait j'ai trouvé cela sur un autre forum et ça marche nickel ...


Les 2 exemples necessitent d'activer la reference Microsoft Excel xx.x Object Library
dans l'editeur de macros
Menu Outils
References
coches la ligne ' Microsoft Excel xx.x Object Library'
(xx.x depend de ta version d'Office)
cliques sur OK pour valider


pour ouvrir un classeur existant depuis Word

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ouvrirClasseurExcel()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
 
Set appXl = CreateObject("Excel.Application")
appXl.Visible = True
Set Wb = appXl.Workbooks.Open("C:\monClasseur.xls")
'.....
End Sub

pour ouvrir un nouveau classeur depuis Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ouvrirNouveauClasseurExcel()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
 
Set appXl = CreateObject("Excel.Application")
appXl.Visible = True
Set Wb = appXl.Workbooks.Add
'.....
End Sub

[Sepia]

Salut vbWord,

Si ton problème est résolu, très bien mais pour que les autres en soient avertis, il faudrait que tu cliques sur

@+

[vbword]

Ah oups j'y ait pas pensé ... mille excuses

[Sepia]

Salut vbWord,

Allez tu es pardonné ==> tu évites la

[vbword]

Salut vbWord,

Allez tu es pardonné ==> tu évites la

dommage

Par contre je n'ai plus de réponse pour cette demande
http://www.developpez.net/forums/d90...cie-2-textbox/