Discussion :

[tenaka69]

Bonjour,

Etant débutant sur VBA, je souhaiterai effectuer un copier /coller d'une cellule excel vers une zone de texte existante powerPoint. Plus précisément, la valeur de la cellule viendra incorporer une phrase dans powerpoint.
Comment dois-je m'y prendre ? Est-ce une procédure a effectuer sur excel ou sur ppt.

Merci pour vos réponses.

[sash6]

bonjour,

tu peux jeter un coup d'oeil ici: http://www.developpez.net/forums/sho...ght=powerpoint

[tenaka69]

ok, merci,

mais ce n'est pas exactement ce que je recherche car je souhaite exporter des données excel vers une zone de texte précise déjà intégré dans une présentation powerpoint.
En clair, je souhaite savoir comment mettre le chiffre 5 (valeur dans une cellule excel) en plein milieu d'une phrase d'une zone de texte de powerpoint.

Merci par avance

[SilkyRoad]

bonsoir

mais ce n'est pas exactement ce que je recherche car je souhaite exporter des données excel vers une zone de texte précise déjà intégré dans une présentation powerpoint.

Pourtant dans le lien proposé par sach6, il y a cet exemple:

Code :

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

1
2
3
'insère le contenu de la cellule A1 dans la deuxième zone de texte,
'du 3eme slide
.Slides(3).Shapes(2).TextFrame.TextRange.Text = Range("A1")

bon week end
michel

[tenaka69]

Merci beaucoup,
effectivement c'est en parti ce que je recherche. Je dis en partie car je souhaite, en effet, intégrer les valeurs dans une zone de texte, mais aussi en plein milieu d'une phrase existante dans la zone de texte.
Si vous me solutionnez le problème, je vous en serai trés reconnaissant, ça me sauverait la vie au boulot.

Merci par avance

[sash6]

salut tenaka,

La seule solution que je vois, c'est de rajouter dans tes zones de texte, une zone de texte correpondant à ce que tu veux insérer depuis Excel. Sinon, si qqn parmi les balaises a une autre solution, tu l'auras quand ils seront revenus des vacances

[tenaka69]

Sash,
t'as solution est pas mal mais je sais qu'il existe la possibilité d'intégrer une valeur en plein milieu d'une phrase qui est dans une zone de texte powerpoint.
Seulement, il suffit de la nommer sous VBA mais je ne sais comment.

Merci de votre aide

[SilkyRoad]

bonsoir

Tu peux utiliser le même principe pour récupérer le contenu initial de la zone de texte

Code :

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

strChaine = .Slides(3).Shapes(2).TextFrame.TextRange.Text

Ensuite tu manipules la chaîne de caractères en insérant la valeur à l'intérieur du texte

http://silkyroad.developpez.com/VBA/...nesCaracteres/


puis tu réexportes dans la zone de texte

Code :

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

.Slides(3).Shapes(2).TextFrame.TextRange.Text = strChaine

michel

[tenaka69]

Il me semble que la concaténation de chaine de caractère est plus simple, mais je ne sais comment l'utiliser.

Pourriez vous me mettre sur la voie.
Par avance merci !

[ouskel'n'or]

Il me semble que la concaténation de chaine de caractère est plus simple, mais je ne sais comment l'utiliser.

Pourriez vous me mettre sur la voie.
Par avance merci !

Sans aller voir la solution proposée par Michel, il me semble qu'il répond à ta demande.

Ce que j'ai compris c'est que tu as une chaîne composée de deux partie que tu veux séparer par une troisième à coller. Tu commences par lire ce qu'il y a dans la zone de texte en le plaçant dans une variable et tu repères l'emplacement du ¨Premier mot de la seconde partie. Pour ça, tu as "Instr"
Ex :

Code :

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

1
2
3
4
LaChaîne = "Première partie Seconde partie"
PositionOùColler = instr(LaChaîne, "Seconde") - 1 'pour un caractère à gauche
NewChaîne = Left(LaChaîne, PositionOùColler) & NouvellePartie & _
Right(LaChaîne, Len(LaChaîne) - PositionOùColler)

Et tu colles ta nouvelle chaîne
Sans filet, pas testé, mais à un caractère près, ça devrait t'inspirer