Bonjour a tous,
Je cherche comment modifier un logo inseré dans des documents word 97 en raffale...
J ai plus de 5000 documents concernés, nous venons de changer le logo, l ancien était intégré au document et non lié..
J avais trouvé ce code, mais le probleme c est que je ne connais pas le nom de la shape qui contient l image, j ai juste le nom des 2 textbox.
Mon entete est composée d une image et de 2 textbox
Sub ReplacePicture(WhereIsPicture As String)
Dim obj As Shape
' Cette Macro Détruit l'image ("Picture 3") sans lien et Insere l'image défine par l'argument WhereIsPicture
With ActiveDocument.ActiveWindow.View
.SeekView = wdSeekCurrentPageFooter
End With
On Error GoTo GestErr
ErrSw = False
For Each obj In Selection.HeaderFooter.Shapes
MsgBox obj.Name
Next
Selection.HeaderFooter.Shapes("TextBox 1").Delete
If ErrSw = False Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.InlineShapes.AddPicture FileName:=WhereIsPicture, LinkToFile:=True, SaveWithDocument:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End If
GoTo fin
GestErr:
Err.Source = "ReplacePicture"
ErrSw = True
Resume Next
fin:
Merci d avance pour votre aide ;)
A +