XL 2016 automatiser un template sur PPT en VBA

cleme

XLDnaute Nouveau
Bonjour à tous,
je suis nouveau sur VBA et je galère un peu à automatiser un template. Je sais bien que ce n'est pas excel mais comme je code en VBA je pense que vous pourrez m'aider.
En vous remerciant par avance,
Mon code est le suivant :
Shape étant une zone de texte et j'ai numéroté les zones de textes comme shape_k_j

Dim myShape2 As shape
Dim the_date As String
Dim oldtext As String
Dim e As Number
Dim i As Number
Dim k As Number
Dim j As Number
Private Sub Validate_Button_Click()
For e = 1 To 12
For i = 1 To 12
For k = 1 To 12
For j = 1 To 6
Private Sub UserForm_Click()
Set myShape2 = ActivePresentation.Slides(i).Shapes("shape_" & "k" & "j", "shape_global")
Start = shape.TextFrame.TextRange.Find("$" & Full_product_name & "$").Characters.Start
shape.TextFrame.TextRange.Characters(Start - 1).InsertAfter (UserForm1.TextBox_Text_e.Text)
shape.TextFrame.TextRange.Find("$" & Full_product_name & "$").Delete
End Sub
Next
Next
Next
Next
End Sub
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas