Discussion :

[damspav]

Bonjour à tous,

J'aurais besoin de récupérer la plage de cellule correspondant à la zone d'impression définie automatiquement par Excel.

J'ai essayé avec les H(et V)PageBreaks mais si les celulles remplies tiennent sur une page aucun item n'est généré dans ces collections.

Donc si quelqu'un sait comment faire.

[SilkyRoad]

bonjour

peux tu donner plus de détails sur ton projet ?


michel

[damspav]

Bonjour,

Le but est de copier la plage de cellules remplies en tant qu'objet feuille de calcul dans un document Word afin de pouvoir l'intégrer dans mon erp.
Lors de cette copie la plage de cellule copiée s'adapte sur 1 page.

Ce que je souhaite donc c'est avoir une page Word identique à une page sur le document Excel d'origine.

[ouskel'n'or]

Regarde ici, une copie de plage de cellule inclut le redimensionnement.
A tout hasard. Pour avoir les bonnes dimensions, tu vas dans word, tu redimensionnes manuellement en enregistrant la macro, tu récupère les dimensions et tu les utilises dans le code. C'est le plus simple sinon le plus orthodoxe.
Maintenant, si tu dois adapter selon la plage, tu devras faire une règel de trois à partir des dimensions de départ et celles que tu souhaites obtenir

[damspav]

Merci ouskel'n'or pour cet exemple mais le redimensionnement dans Word ne me pose pas de problème. Là ou je bloque c'est sur la sélection de la plage dans Excel qui est manuelle dans l'exemple et que je veux faire automatiquement. Je cherche en fait une facon de sélectionner une plage contenant toutes les cellules non vides de ma feuille.

Mon but étant que l'utilisateur dans un nouveau document Word, lance une macro qui l'invite à sélectionner un ou plusieurs fichiers (word, excel ou publisher) et qui intègre une copie des ces différents fichiers dans le document Word avec un objet par page.

[ouskel'n'or]

Tu as ici plusieurs méthodes pour trouver la dernière ligne et la dernière colonne renseignée, soit d'une plage de cellule, soit de la feuille de calculs.
Telle que ta demande est formulée, j'utiliserais

Code :

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

1
2
Plage = Range("A1:" & Range("A1").SpecialCells(xlCellTypeLastCell).Address).Address
MsgBox Plage