[Excel 2007] ActiveSheet.Range

Bonjour,

J'utilise une macro qui me sélectionne des cellules dans une feuille Excel pour les envoyer dans un fichier word.
Tout fonctionne mais j'aimerai maintenant récupérer ces cellules sur l'ensemble du classeur et je ne trouve pas la solution.

Celle qui fonctionne est :

Code:

---

ActiveSheet.Range

---

Pour le classeur entier j'ai essayé :

Code:

---

ActiveWorkBook.Range

---

Si quelqu'un a la solution je suis preneur :)

Merci

Bonjour,

Si je comprend bien, tu veux retourner toutes les cellules sélectionnées du classeur.

Cette proposition boucle sur chaque onglet du classeur et affiche dans une msgbox les cellules sélectionnées

Code:

---

1 2 3 4 5 6 7 8

Dim Sh As Worksheet   For Each Sh In ThisWorkbook.Worksheets   Sh.Activate MsgBox Selection.Address   Next

---

Non en fait je veux encore garder un certain range de cellules.

Ma macro actuelle est :

Code:

---

ActiveSheet.Range("A10:X39").Copy

---

et je veux appliquer la même chose sur l'ensemble des feuilles du classeur.

Si tu copies toujours la même plage

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Sh As Worksheet   For Each Sh In ThisWorkbook.Worksheets   Sh.Range("A10:X39").Copy     'ligne de collage vers Word     Next

---

Merci Jérôme pour ta réponse.
Je viens d'essayer mais cela me prend uniquement la dernière feuille du classeur.

Tu as bien mis la ligne de collage word dans la boucle comme je le stipule le code dans mon précédent post?

Donne nous ton code (cette partie) pour qu'on puisse analyser

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim oWdApp As Object 'Word.Application Dim oWdDoc As Object 'Word.Document   'Lancer une instance Word Set oWdApp = CreateObject("Word.Application")   'Ouvrir un nouveau document Set oWdDoc = oWdApp.Documents.Open("C:\Users\utilisateur\Contrat.docx")   'Rendre Word visible oWdApp.Visible = True   'Copier une plage depuis Excel ActiveSheet.Range("A10:X39").Copy   'Coller la plage dans Word oWdApp.Selection.Paste   'Annuler le mode couper/copier Application.CutCopyMode = False

---

Essais comme cela

A voir le collage dans word car je ne sais pas s'il écrasera le précédent
un repositionnement est peut etre nécessaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim oWdApp As Object 'Word.Application Dim oWdDoc As Object 'Word.Document Dim Sh As Worksheet   'Lancer une instance Word Set oWdApp = CreateObject("Word.Application")   'Ouvrir un nouveau document Set oWdDoc = oWdApp.Documents.Open("C:\Users\utilisateur\Contrat.docx")   'Rendre Word visible oWdApp.Visible = True For Each Sh In ThisWorkbook.Worksheets 'Copier une plage depuis Excel Sh .Range("A10:X39").Copy   'Coller la plage dans Word oWdApp.Selection.Paste   Next Sh   'Annuler le mode couper/copier Application.CutCopyMode = False

---