Discussion :

[Ambrocbt]

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 :

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

ActiveSheet.Range

Pour le classeur entier j'ai essayé :

Code :

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

ActiveWorkBook.Range

Si quelqu'un a la solution je suis preneur

Merci

[jfontaine]

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 :

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

1
2
3
4
5
6
7
8
Dim Sh As Worksheet
 
For Each Sh In ThisWorkbook.Worksheets
 
    Sh.Activate
    MsgBox Selection.Address
 
Next

[Ambrocbt]

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

Ma macro actuelle est :

Code :

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

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

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

[jfontaine]

Si tu copies toujours la même plage

Code :

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

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

[Ambrocbt]

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

[jfontaine]

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

[Ambrocbt]

Code :

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

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

[jfontaine]

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 :

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

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