gratifiant > microsoft.* > microsoft.excel

jamesTcarville (23/06/2005, 18h59)
Bonjour à tous les membres du MPFE,

J'ai un classeur excel avec des données dans différentes feuilles.
J'ai crée une macro pour exporter les données de la feuille vers
word, revenir vers excel, passer en feuille suivante et ainsi de suite.

Le problème survient lorsque je suis en dernière feuille. Ben oui, il
n'y a plus de feuille après la dernière feuille !! Donc je suis
coincé.

J'ai essayé do while active.sheet = last.sheet. ça ne fonctionne pas

Sub ToWord ()

Do
Range("A2").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
wd.Selection.EndKey Unit:=wdStory
wd.Selection.InsertBreak Type:=wdPageBreak
wd.Selection.TypeParagraph
wd.Selection.TypeParagraph
wd.Selection.EndKey Unit:=wdStory
wd.Selection.PasteSpecial Link:=False, DataType:=wdPasteHTML,
Placement:=wdInLine, DisplayAsIcon:=False
wd.Application.Browser.Next
wd.Selection.TypeParagraph

ActiveSheet.Next.Select

Loop

End Sub

Si vous avez des suggestions, n'hésitez pas.

Par avance merci.
isabelle (23/06/2005, 19h32)
bonjour James,

For Each f In Worksheets
Sheets(f.Name).Activate
Range("A2").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
wd.Selection.EndKey Unit:=wdStory
wd.Selection.InsertBreak Type:=wdPageBreak
wd.Selection.TypeParagraph
wd.Selection.TypeParagraph
wd.Selection.EndKey Unit:=wdStory
wd.Selection.PasteSpecial Link:=False, DataType:=wdPasteHTML, _
Placement:=wdInLine, DisplayAsIcon:=False
wd.Application.Browser.Next
wd.Selection.TypeParagraph
Next

isabelle

jamesTcarville a écrit :
[..]
Patrick BASTARD (23/06/2005, 19h34)
Bonjour, *jamesTcarville*
J'ai lu ton post 1119545978.808282.79500
avec le plus grand intéret :

Essaie avec une boucle For...Next :

Sub ToWord()
Dim Sh As Worksheet

For Each Sh In ThisWorkbook.Sheets
======Ta macro=====
Next Sh
End Sub
Et reviens nous dire.
jamesTcarville (23/06/2005, 22h15)
Merci à Patrick et à Isabelle : vos solutions marchent à merveille
!!
Merci beaucoup !
Discussions similaires