[WD-2003] Commander Excel depuis Word

[MarcoCham]

Bonjour tout le monde, et à toi plus particulièrement.
Voilà, quand une base de données dépasse les 65000 données on ne peut plus travailler avec Excel. Mais j'ai réussi à contourner le problème à partir de VBA avec Word.
Ainsi j'ai pu créer autant de classeurs Excel que je veux de feuilles dans un Classeur Excel donné.
Dans Word, j'arrive à ouvrir tous les classeurs Excel que je veux, mais je n'arrive pas à passer la commande "Déplacer une feuille". Rappel : je suis sous VBA de Word.
Voici mes dernières lignes de commande de cette affaire :

Code :

1
2
3
4
5
6
7
8
9
Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Open FileName:= "C:\DocTravail.xls" 'Ouverture du classeur de destination
 
    xlApp.Workbooks.Open FileName:="C:\DocOrigine.xls 'Ouverture du classeur d'origine
    xlApp.Visible = True 	'Rendre visible Excel
 
La commande que je voudrais passer est du style : 
	Sheets("DocOrigine").Move After:=Workbooks("DocTravail.xls").Sheets(3)

Mais naturellement, cette commande marche sous Excel, mais pas sous word (il ne connait pas Sheets)

Voilà pourquoi je vous sollicite, en cas de réponse je souhaiterai que l'on soit précis sur les déclarations de variable.

Merci d'avance

[Heureux-oli]

Salut,

Petite astuce, lorsqu'on travaille dans une autre application, il est beaucoup plus facile de déclarer les objets complètement et en EarlyBinding.

Code :

1
2
3
Dim xlApp as Excel.Application
Dim xlWB as Excel.WorkBook
Dim xlWS As Excel.WorkSheet

On ajoute la référence Excel au Projet et on bénéficie de l'IntelliSense qui est une aide à la saisie du code. On peut alors obtenir les méthodes et propriétés qui sont applicables à l'objet.

[MarcoCham]

Envoyé par Heureux-oli

Salut,

Petite astuce, lorsqu'on travaille dans une autre application, il est beaucoup plus facile de déclarer les objets complètement et en EarlyBinding.

Code :

(Re) Bonjour, en effet le résultat est là et je te remercie.
Le seul truc qui me chagrine, c'est qu'il faut cocher la référence à la librairie objet d'Excel pour que cela tourne.
D'où une autre question : Le document sera en réseau et lancé par différente personnes. Dois-je prévoir une ligne de commande pour que la librairie s'active automatiquement ou pas ?
Et éventuellement, qu'elle est cette ligne de commande ?
Si j'obtiens cette dernière réponse, je pense que je pourrais clore le sujet.
Encore merci d'avance.

[Heureux-oli]

Salut,

Le seul inconvénient à déclarer la bibliothèque dans le projet est que la version d'Excel doit être la même sur toutes les machines. Pour les utilisateurs, c'est totalement transparent.

Si les versions sont différentes, la méthode que j'utilise est lier la bibliothèque lorsque de la création du projet et par la suite, je change

Code :

1
2
Dim xlApp As Excel.application
Set xlApp  = New Excel.Appllication

en

Code :

1
2
Dim xlApp As object
Set xlApp = CreateObject("Excel.application")

J'évite les erreurs de saisie et des recherches parfois fastidieuses.