Boucle sur plusieurs feuilles bloquée en dernière feuille
3 réponses
jamesTcarville
Bonjour =E0 tous les membres du MPFE,
J'ai un classeur excel avec des donn=E9es dans diff=E9rentes feuilles.
J'ai cr=E9e une macro pour exporter les donn=E9es de la feuille vers
word, revenir vers excel, passer en feuille suivante et ainsi de suite.
Le probl=E8me survient lorsque je suis en derni=E8re feuille. Ben oui, il
n'y a plus de feuille apr=E8s la derni=E8re feuille !! Donc je suis
coinc=E9.
J'ai essay=E9 do while active.sheet =3D last.sheet. =E7a ne fonctionne pas
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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:úlse, DataType:=wdPasteHTML, _ Placement:=wdInLine, DisplayAsIcon:úlse wd.Application.Browser.Next wd.Selection.TypeParagraph Next
isabelle
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
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:úlse, DataType:=wdPasteHTML, _
Placement:=wdInLine, DisplayAsIcon:úlse
wd.Application.Browser.Next
wd.Selection.TypeParagraph
Next
isabelle
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
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:úlse, DataType:=wdPasteHTML, _ Placement:=wdInLine, DisplayAsIcon:úlse wd.Application.Browser.Next wd.Selection.TypeParagraph Next
isabelle
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
Bonjour, ** J'ai lu ton post 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.
-- Bien amicordialement, P. Bastard
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
Bonjour, *jamesTcarville@yahoo.fr*
J'ai lu ton post 1119545978.808282.79500@g43g2000cwa.googlegroups.com
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.
--
Bien amicordialement,
P. Bastard
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
Bonjour, ** J'ai lu ton post 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.
-- Bien amicordialement, P. Bastard
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
