Bonjour,    
 
J' ai commencé a faire des codes OLE d' Excel vers Power Point. Cependant, ces quelque lignes contiennent des erreurs, pourriez -vous me les indiquer et m' en donner les corrections :    
 
 
Set apppaint = CreateObject("powerpoint.application" )
Set textdansbox = apppaint.ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, 127.5, 474.125, 147.5, 28.875)
textdansbox.TextRange.Text = "Test"
 
 
Merci  

Salut,  
 
Avec un peu de recherche, je suis arrivé à ça :  
 
 
Dim apppaint As PowerPoint.Application
Dim paintpres As PowerPoint.Presentations
 
 
Set apppaint = CreateObject("PowerPoint.application" )
Set paintpres = apppaint.Presentations
 
apppaint.Activate
paintpres.Add
 
cpt = 10000
Do
DoEvents
cpt = cpt - 1
Loop Until cpt = -1000
cpt = 10000
Do
DoEvents
cpt = cpt - 1
Loop Until cpt = -1000
cpt = 10000
Do
DoEvents
cpt = cpt - 1
Loop Until cpt = -1000
cpt = 10000
Do
DoEvents
cpt = cpt - 1
Loop Until cpt = -1000
 
 apppaint.ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2" ).Select
  apppaint.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    apppaint.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
  apppaint.ActiveWindow.Selection.TextRange.Text = "Test"
 
 
La problème, c' est que la diapo ne se crée pas d' elle même, j' ai donc du rajouter des boucles pour donner le temps à l' utilisateur de la créer. Si vous voyez un problème à ça...
 
Merci