Discussion :

[Elcocco]

Bonjour,

J'ai regardé un peu partout et je n'ai pas vu de topic qui répondait à ma question j'espère être au bonne endroit.

Voilà j'ai un classeur Excel avec mes données brut et d'un autre côté un power point avec une slide et un masque prédéfini de même que l'emplacement des différentes zone de texte et tableau.

Ce que je souhaite c'est créer en VBA une macro qui me permette de venir alimenter les différents tableau et sonne de texte.

Pour l'instant c'est un échec car je tombe toujour sur une erreur voici ce que j'ai commencé à écrire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub creation_power_point()
'Ouverture de la session Power point
'creation session PowerPoint
Set PPT = CreateObject("Powerpoint.Application")
'l'application sera visible
    PPT.Visible = True
'ouverture fichier ppt
    Set PptDoc = PPT.Presentations.Open("C:\Mes documents\82 report mag page1_FR_GT.ppt")
 
 
'compte le nombre de ligne dans le fichier Sortie SAS
ChDir _
        "C:\Mes documents\Sortie_SAS"
    Workbooks.Open Filename:= _
        "C:\Mes documents\Sortie_SAS.xls"
    Range("A1").Select
    nb_lignes = Sheets("TABLE_EXCEL").Rows.Count
'Création du power point
    For i = 2 To nb_lignes Step 1
    If Range("A" & i).Value = "VL" Then
 
    Windows("Sortie_SAS.xls").Activate
    Range("D" & i).Select
    Selection.Copy
    Windows("MAJ_donnees.xls").Activate
    PptDoc.Slides(1).Shapes("ArtechOthers 3").Paste
 
    End If
    Slides.Add Index:=nb_lignes+1
    Next
 
End Sub

La partie avec artechOther 3 vient d'un macro ppt que j'ai enregistré et en sélectionnant la zone de texte j'ai eu cela, donc j'ai pensé réécrire cela pour lui dire ou coller.

Merci de votre aide
En espérant avoir été clair.

[Invité]

Bonjour

Code bizarre et un peu confus, donc plusieurs questions :

Ton code se trouve où ? Dans Excel à priori, tu peux confirmer.
Tu dis que tu as une erreur, mais où ? Sur quelle ligne ? Quel est ce message d'erreur ?
Je ne comprends pas cette partie :

Code :

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

1
2
3
4
ChDir _
        "C:\Mes documents\Sortie_SAS"
    Workbooks.Open Filename:= _
        "C:\Mes documents\Sortie_SAS.xls"

Si j'ai bien compris tu récupères les informations de la colonne D que tu colles dans PowerPoint, mais tu fais cette opération plusieurs fois

Donc plus de détails et des réponses aux questions.

Philippe

[Elcocco]

Ok désolé je ne suis pas un habitué de VBA donc mon code est composé de beaucoup de copier coller de code par internet ou d’enregistrement de macro.

La partie

Code :

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

1
2
3
4
5
 
ChDir _
        "C:\Mes documents\Sortie_SAS"
    Workbooks.Open Filename:= _
        "C:\Mes documents\Sortie_SAS.xls"

correspond à l'ouverture de mon fichier avec les données brut.

Mon code se trouve dans un classeur EXCEL, mon erreur se trouve à la ligne 26 j'ai comme message éléments inconnu ArtechOthers 3.

en gros dans mon fichier de données brut j'ai 82 lignes et je veux créer 82 slides et pour chacune des lignes alimenter mon template power point.

Merci de ton aide en espérant avoir été clair.

[Elcocco]

Finalement je m'en sors a peu près j'ai réussi à alimenter mon power point avec des zones de textes et au format que je souhaite.

mais j'ai un autre soucis, dans le power point j'ai des objets feuille de calcul et Graphiques. J'aimerais savoir comment coder en VBA pour mettre à jour les valeurs dans les différentes objet?

Merci d'avance

[Invité]

Re

Regardes de ce coté : http://excel.developpez.com/faq/inde...jGraphExcelPPT

Philippe

[Elcocco]

Merci pour le lien,j'ai déjà été faire un tour mais cela n'a pas l'air de fonctionner chez moi. En essayant pas à pas il ne reconnait pas de graphique dans ma slide.