Bonjour tout le monde,
Je suis entrain de bosser sur une macro word en VB (développer par une autre personne dans mon entreprise il y a quelques temps) et j'ai quelques soucis par rapport a une sélection d'image et l'utilisation de la variable sélection dans la foulée.
Voici le bout du code qui génère l'erreur :
If DessinFound Then ' Variable booléenne = a true si le dessin est trouvé
For Each ImageDessin In DocModele.Shapes
If VBA.Left (ImageDessin.Name, 4) = "DSI_" And VBA.Mid (ImageDessin.Name, 5) = VBA.Mid (Dessin.Name, 5) Then
Set ItemModele.ImageDessin = New clsImageDescr
DocModele.UndoClear
ImageDessin.Select
'ici je n'ai pas d'erreur
Selection.Copy
'la je n'y passe pas...
Exit For
End If
Next
End If
Le message d'erreur que j'obtiens est :
"Cette méthode ou propriété n'est pas disponible car aucun texte n'a été sélectionné"
Merci d'avance de votre aide !
Azr@ël