Discussion :

[anasscom]

Bonjour
je vous remercie d'avance , j'ai un code vba qui tourne super bien dans office 2003 quand je lui fait tournée en office 2010 rien ne marche j'ai changé les références qui manque , mais sa marche pas tjr

le programme consiste a lire un fichier PowerPoint et le remplir a partir un fichier excel je met un bout de code ou sa plante exactement et le message d'erreur .

Code :

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

1
2
3
4
'  Pres.Slides(1).Shapes("Group 165").Ungroup
 
    'Add the project name, the date, the sale aera and the EM name on the slide
    Pres.Slides(1).Shapes("Rectangle 96").TextFrame.TextRange.Text = projectname

Item RECTANGLE 96 not Found in the shapes collection

merci d'avance

[Invité]

Bonjour

A priori il ne trouve pas la forme rectangulaire nommée "Rectangle 96".

Regardes dans ton fichier PowerPoint si la forme n'aurait pas changer de nom.

Philippe

[anasscom]

merci pour ta réponse j'ai une question banal comment je peux connaitre la place de Rectangle 96

merc

j'ai autre question pouvez me conseillé la meilleur méthode que je peux utiliser pour migrer tout mes utiles qui sont développé en 2003 à 2010 .

merci

j'ai vérifié a l 'aide d'un code VBA tout les noms des objet qui sont pas renommer avant sa mtn m'affiche une erreur de type

Runtime error - (-2147467529 (80004005))
this member can only be accessed for a group

sur cette ligne

Code :

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

Pres.Slides(1).Shapes.Range("Group 165").Ungroup

[Didier Gonard]

Bonjour,

Vois dans ce fil les # 8, 16 et 18 entre autres, les règles de nommage des Shapes on évoluées, ça pourrait venir de là ?

bon cette soluce est valable en perso, si tu tombes sur un PPT où les shapes de commentaires ont été renommés où le sont en cours => boum
La preuve, si tu transposes le code dans un PPT 2007 ... d'où l'option mis en commentaire. Preuve puissance 2, si, au contraire, tu coupes colles tes dias 2003 dans un 2007 vierge ou non , les shapes commentaires gardent leur nom 2003 avec tout ce que ça entraîne...

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier