Question Copier/Coller d'Excel vers VBA
Bonsoir à tous,
Ceci est mon premier message sur ce forum, merci pour votre indulgence. J'ai fouillé les forums mais n'ai pas trouvé de solution à mon problème.
J'ai un tableau de bord excel qui varie selon une liste de fournisseur dans un menu déroulant (cette liste est variable selon une présélection dans la base initiale).
Mon objectif est de crééer un PPT avec un slide pour chaque valeur de la liste déroulante. J'ai trouvé tous les codes, cela fonctionne sauf que mon code me crée un PPT par Fournisseur et non pas une seul présentation.
Qui peut me dire ce que je dois changer pour n'avoir qu'une seule présentation??
Voici mes codes (la première partie boucle sur les valeurs de la liste déroulante et lance la 2e partie):
Code:
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
33
34
35
36
37
38
39
40
41
42
| Sub Liste()
For Each cel In Range("SuppSelect")
If cel.Value = "" Or cel.Value = 0 Then Exit Sub
Sheets("Review").Range("E4") = cel.Value
Call Feuil8.test
Next cel
End Sub
Sub test()
'nécessite d'activer la référence Microsoft Powerpoint Object Library
Dim PPT As Object
Dim PptDoc As Object
Dim NbShpe As Byte
Dim PPSlide As PowerPoint.Slide
Dim Slidecount As Integer
Set PPT = CreateObject("Powerpoint.Application")
PPT.Visible = True 'l'application sera visible
Set PptDoc = PPT.Presentations.Open("U:mapresentation.pptx")
ActiveSheet.Range("E4:Z13").Copy
Slidecount = PptDoc.Slides.Count
PptDoc.Slides(Slidecount).Shapes.Paste
NbShpe = PptDoc.Slides(Slidecount).Shapes.Count
With PptDoc.Slides(Slidecount).Shapes(NbShpe)
.Left = 17
.Top = 120
.Height = 250
.Width = 687
End With
Slidecount = PptDoc.Slides.Count
Set PPSlide = PptDoc.Slides.Add(Slidecount + 1, ppLayoutTitleOnly)
PptDoc.Save 'sauvegarder les modifications
PptDoc.Close 'fermer le document ppt
PPT.Quit 'fermer l'application powerPoint
End Sub |
Merci beaucoup pour votre aide.
