Je me retrouve avec un petit souci, et je ferai bien appel =E0 votre
aide :)
J'ai un fichier Word avec 10000 lignes.
Mon objectif est de copier dans une pr=E9sentation powerpoint chaque
ligne sur une diapositive (dans le rectangle "titre"). =E7a fera 10 000
diapositives, je sais =E7a fait beaucoup. mais je m'arrangerai apr=E8s.
O=F9 j'en suis ?
Pour simplifier la tache, je partage le nombre de ligne 100 : ce qui ne
me fait plus que 100 lignes =E0 chaque fois.
Je copie les 100 lignes dans la premi=E8re diapositive.
Et ensuite j'essaye d'enregistrer une macro qui s=E9lectionne la
premi=E8re ligne de la premi=E8re diapo, la coupe, va =E0 la derni=E8re
diapo, colle la ligne dans la zone titre, cr=E9=E9 une nouvelle diapo
apr=E8s la derni=E8re, et revient =E0 la premi=E8re.
Je me retrouve avec 2 gros probl=E8me :
- Qd je s=E9lectionne la premi=E8re ligne (lors de l'enregistrement de la
macro), il compte le nombre de caract=E8res, ce qui fait que si j'ai
plus de caract=E8res dans les lignes suivantes, il ne me copie que le
nombre de caract=E8re de la premi=E8re ligne.
- Il ne comprend pas "la derni=E8re diapo", mais garde le num=E9ro de la
diapo ce qui fait que je n'avance pas.
Pour infos voil=E0 le code obtenu avec le g=E9n=E9rateur de macro :
Sub Macro4()
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=3D1,
Length:=3D0).Select
ActiveWindow.View.Paste
ActiveWindow.Selection.ShapeRange.Select
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide
Index:=3DActivePresentation.Slides.Add(Index:=3D3,
Layout:=3DppLayoutTitleOnly).SlideIndex
ActiveWindow.View.GotoSlide Index:=3D1
End Sub
Voil=E0 j'ai mis le plus de d=E9tails possibles... j'esp=E8re avoir =E9t=E9
clair.
Si vous avez des questions n'h=E9sitez pas =E0 me demander des
pr=E9cisions.
++
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
Luc
Bonsoir Pierrick, Si les lignes dans le texte de Word étaient des paragraphes tu pourrait appliquer le style Titre1 dessus. Puis dans PowerPoint, choisir Insertion - Diapositives à partir d'un Fichier - sélectionner le fichier Word - PowerPoint fera de chaque paragraphe avec le style Titre1 une nouvelle diapositive. Le texte du paragraphe étant dans le titre. Le problème sera de faire en sorte que dans le texte de Word chaque ligne soit un paragraphe, mais la tu pourrais demander dans le groupe Word, il y aura surement quelqu'un qui peut t'écrire une macro.
-- Luc Sanders (MVP - PowerPoint) "Pierrick81" schreef in bericht news: Coucou à tous,
Je me retrouve avec un petit souci, et je ferai bien appel à votre aide :) J'ai un fichier Word avec 10000 lignes. Mon objectif est de copier dans une présentation powerpoint chaque ligne sur une diapositive (dans le rectangle "titre"). ça fera 10 000 diapositives, je sais ça fait beaucoup. mais je m'arrangerai après.
Où j'en suis ? Pour simplifier la tache, je partage le nombre de ligne 100 : ce qui ne me fait plus que 100 lignes à chaque fois. Je copie les 100 lignes dans la première diapositive. Et ensuite j'essaye d'enregistrer une macro qui sélectionne la première ligne de la première diapo, la coupe, va à la dernière diapo, colle la ligne dans la zone titre, créé une nouvelle diapo après la dernière, et revient à la première.
Je me retrouve avec 2 gros problème : - Qd je sélectionne la première ligne (lors de l'enregistrement de la macro), il compte le nombre de caractères, ce qui fait que si j'ai plus de caractères dans les lignes suivantes, il ne me copie que le nombre de caractère de la première ligne. - Il ne comprend pas "la dernière diapo", mais garde le numéro de la diapo ce qui fait que je n'avance pas.
Pour infos voilà le code obtenu avec le générateur de macro : Sub Macro4() ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select ActiveWindow.View.Paste ActiveWindow.Selection.ShapeRange.Select ActiveWindow.Selection.Unselect ActiveWindow.View.GotoSlide Index:¬tivePresentation.Slides.Add(Index:=3, Layout:=ppLayoutTitleOnly).SlideIndex ActiveWindow.View.GotoSlide Index:=1 End Sub
Voilà j'ai mis le plus de détails possibles... j'espère avoir été clair. Si vous avez des questions n'hésitez pas à me demander des précisions. ++
Bonsoir Pierrick,
Si les lignes dans le texte de Word étaient des paragraphes tu pourrait
appliquer le style Titre1 dessus. Puis dans PowerPoint, choisir Insertion -
Diapositives à partir d'un Fichier - sélectionner le fichier Word -
PowerPoint fera de chaque paragraphe avec le style Titre1 une nouvelle
diapositive. Le texte du paragraphe étant dans le titre.
Le problème sera de faire en sorte que dans le texte de Word chaque ligne
soit un paragraphe, mais la tu pourrais demander dans le groupe Word, il y
aura surement quelqu'un qui peut t'écrire une macro.
--
Luc Sanders
(MVP - PowerPoint)
"Pierrick81" <legrand.pierrick@gmail.com> schreef in bericht
news:1150299681.686002.44900@i40g2000cwc.googlegroups.com...
Coucou à tous,
Je me retrouve avec un petit souci, et je ferai bien appel à votre
aide :)
J'ai un fichier Word avec 10000 lignes.
Mon objectif est de copier dans une présentation powerpoint chaque
ligne sur une diapositive (dans le rectangle "titre"). ça fera 10 000
diapositives, je sais ça fait beaucoup. mais je m'arrangerai après.
Où j'en suis ?
Pour simplifier la tache, je partage le nombre de ligne 100 : ce qui ne
me fait plus que 100 lignes à chaque fois.
Je copie les 100 lignes dans la première diapositive.
Et ensuite j'essaye d'enregistrer une macro qui sélectionne la
première ligne de la première diapo, la coupe, va à la dernière
diapo, colle la ligne dans la zone titre, créé une nouvelle diapo
après la dernière, et revient à la première.
Je me retrouve avec 2 gros problème :
- Qd je sélectionne la première ligne (lors de l'enregistrement de la
macro), il compte le nombre de caractères, ce qui fait que si j'ai
plus de caractères dans les lignes suivantes, il ne me copie que le
nombre de caractère de la première ligne.
- Il ne comprend pas "la dernière diapo", mais garde le numéro de la
diapo ce qui fait que je n'avance pas.
Pour infos voilà le code obtenu avec le générateur de macro :
Sub Macro4()
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
Bonsoir Pierrick, Si les lignes dans le texte de Word étaient des paragraphes tu pourrait appliquer le style Titre1 dessus. Puis dans PowerPoint, choisir Insertion - Diapositives à partir d'un Fichier - sélectionner le fichier Word - PowerPoint fera de chaque paragraphe avec le style Titre1 une nouvelle diapositive. Le texte du paragraphe étant dans le titre. Le problème sera de faire en sorte que dans le texte de Word chaque ligne soit un paragraphe, mais la tu pourrais demander dans le groupe Word, il y aura surement quelqu'un qui peut t'écrire une macro.
-- Luc Sanders (MVP - PowerPoint) "Pierrick81" schreef in bericht news: Coucou à tous,
Je me retrouve avec un petit souci, et je ferai bien appel à votre aide :) J'ai un fichier Word avec 10000 lignes. Mon objectif est de copier dans une présentation powerpoint chaque ligne sur une diapositive (dans le rectangle "titre"). ça fera 10 000 diapositives, je sais ça fait beaucoup. mais je m'arrangerai après.
Où j'en suis ? Pour simplifier la tache, je partage le nombre de ligne 100 : ce qui ne me fait plus que 100 lignes à chaque fois. Je copie les 100 lignes dans la première diapositive. Et ensuite j'essaye d'enregistrer une macro qui sélectionne la première ligne de la première diapo, la coupe, va à la dernière diapo, colle la ligne dans la zone titre, créé une nouvelle diapo après la dernière, et revient à la première.
Je me retrouve avec 2 gros problème : - Qd je sélectionne la première ligne (lors de l'enregistrement de la macro), il compte le nombre de caractères, ce qui fait que si j'ai plus de caractères dans les lignes suivantes, il ne me copie que le nombre de caractère de la première ligne. - Il ne comprend pas "la dernière diapo", mais garde le numéro de la diapo ce qui fait que je n'avance pas.
Pour infos voilà le code obtenu avec le générateur de macro : Sub Macro4() ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select ActiveWindow.View.Paste ActiveWindow.Selection.ShapeRange.Select ActiveWindow.Selection.Unselect ActiveWindow.View.GotoSlide Index:¬tivePresentation.Slides.Add(Index:=3, Layout:=ppLayoutTitleOnly).SlideIndex ActiveWindow.View.GotoSlide Index:=1 End Sub
Voilà j'ai mis le plus de détails possibles... j'espère avoir été clair. Si vous avez des questions n'hésitez pas à me demander des précisions. ++
Pierrick81
Coucou Luc,
Très très bonne idée. ça marche nickel et même pas besoin de macro sous Word, vu que j'ai un saut de ligne entre chaque, il suffit de faire un petit "Sélectionner tout" puis d'appliquer le style Titre 1. Merci très bcp
Pierrick
Bonsoir Pierrick, Si les lignes dans le texte de Word étaient des paragraphes tu pourrait appliquer le style Titre1 dessus. Puis dans PowerPoint, choisir Insertion - Diapositives à partir d'un Fichier - sélectionner le fichier Word - PowerPoint fera de chaque paragraphe avec le style Titre1 une nouvelle diapositive. Le texte du paragraphe étant dans le titre. Le problème sera de faire en sorte que dans le texte de Word chaque lig ne soit un paragraphe, mais la tu pourrais demander dans le groupe Word, il y aura surement quelqu'un qui peut t'écrire une macro.
-- Luc Sanders (MVP - PowerPoint)
Coucou Luc,
Très très bonne idée.
ça marche nickel et même pas besoin de macro sous Word, vu que j'ai
un saut de ligne entre chaque, il suffit de faire un petit
"Sélectionner tout" puis d'appliquer le style Titre 1.
Merci très bcp
Pierrick
Bonsoir Pierrick,
Si les lignes dans le texte de Word étaient des paragraphes tu pourrait
appliquer le style Titre1 dessus. Puis dans PowerPoint, choisir Insertion -
Diapositives à partir d'un Fichier - sélectionner le fichier Word -
PowerPoint fera de chaque paragraphe avec le style Titre1 une nouvelle
diapositive. Le texte du paragraphe étant dans le titre.
Le problème sera de faire en sorte que dans le texte de Word chaque lig ne
soit un paragraphe, mais la tu pourrais demander dans le groupe Word, il y
aura surement quelqu'un qui peut t'écrire une macro.
Très très bonne idée. ça marche nickel et même pas besoin de macro sous Word, vu que j'ai un saut de ligne entre chaque, il suffit de faire un petit "Sélectionner tout" puis d'appliquer le style Titre 1. Merci très bcp
Pierrick
Bonsoir Pierrick, Si les lignes dans le texte de Word étaient des paragraphes tu pourrait appliquer le style Titre1 dessus. Puis dans PowerPoint, choisir Insertion - Diapositives à partir d'un Fichier - sélectionner le fichier Word - PowerPoint fera de chaque paragraphe avec le style Titre1 une nouvelle diapositive. Le texte du paragraphe étant dans le titre. Le problème sera de faire en sorte que dans le texte de Word chaque lig ne soit un paragraphe, mais la tu pourrais demander dans le groupe Word, il y aura surement quelqu'un qui peut t'écrire une macro.
