Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Candidat au Club
    Copiez coller d'Excel vers Powerpoint au milieu d'une zone de texte
    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.

  2. #2
    Membre régulier

  3. #3
    Candidat au Club
    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

  4. #4
    Expert éminent sénior
    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

  5. #5
    Candidat au Club
    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

  6. #6
    Membre régulier
    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

  7. #7
    Candidat au Club
    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

  8. #8
    Expert éminent sénior
    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

  9. #9
    Candidat au Club
    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 !

  10. #10
    Inactif  
    Citation Envoyé par 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 !
    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

###raw>template_hook.ano_emploi###