Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
j'espere que ces exemples répondront à ta demande :
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
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
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.