VBA : Mise à jour de plusieurs liens d'accès au fichier automatique

**remy.edf** · 22/05/2017, 12h08

Bonjour,

Je cherche depuis plusieurs jours et je ne trouve pas de solutions à mon problème.

J'ai un fichier Excel et un fichier Powerpoint. J'ai lié plusieurs tableaux et graphiques du Excel sur le Powerpoint.
Malheureusement, ces fichiers sont destinés à plusieurs personnes. Je dois donc copier le fichier Excel et le fichier Powerpoint. Une fois ces fichiers copiés, je me rends compte que le fichier Powerpoint ainsi copié est toujours lié au fichier Excel original. Ayant des dizaines et des dizaines de liens, je ne peux pas passer par la modification de la source lien par lien.

C'est pourquoi je viens vers vous pour savoir si vous pouviez m'aider à créer un code VBA pour que tous les liens se mettent à jours automatiquement svp sans devoir faire la manoeuvre lien par lien svp?

De plus, ces fichiers seront surement mis sur un serveur commun, donc chaque utilisateur devra copier ces fichiers à partir du serveur local et activer ce code VBA.

Je vous remercie d'avance,

Rémy.

**Jean-Philippe André** · 23/05/2017, 11h36

Salut,

quels sont les essais VBA que tu as deja essaye de tenter ?

A la volee, ca peut donner quelque chose comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Piou()
Dim shp As Shape
Dim sld As Slide
 
'boucle sur tous les slides
  For Each sld In ActivePresentation.Slides
'boucle sur tous les shapes
    For Each shp In sld.Shapes
        shp.LinkFormat.BreakLink
    Next shp
  Next sld
End Sub

**remy.edf** · 23/05/2017, 12h00

Salut,

Le code que tu m'as envoyé m'indique un code erreur :

"Erreur d'exécution '2147188160 (80048240)':
LinkFormat (unknwon member) : Invalid request. This operation requires a linked object."

Mes essais ont été :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub HyperLinkSearchReplace()
 
    Dim oSl As Slide
    Dim oHl As Hyperlink
    Dim sSearchFor As String
    Dim sReplaceWith As String
    Dim oSh As Shape
 
    sSearchFor = InputBox("What text should I search for?", "Search for ...")
    If sSearchFor = "" Then
        Exit Sub
    End If
 
    sReplaceWith = InputBox("What text should I replace" & vbCrLf _
        & sSearchFor & vbCrLf _
        & "with?", "Replace with ...")
    If sReplaceWith = "" Then
        Exit Sub
    End If
 
    On Error Resume Next
 
    For Each oSl In ActivePresentation.Slides
 
        For Each oHl In oSl.Hyperlinks
            oHl.Address = Replace(oHl.Address, sSearchFor, sReplaceWith)
            oHl.SubAddress = Replace(oHl.SubAddress, sSearchFor, sReplaceWith)
        Next    ' hyperlink
 
        ' and thanks to several astute user suggestions, let's fix OLE links
        ' and movie/sound linkes too
        For Each oSh In oSl.Shapes
           If oSh.Type = msoLinkedOLEObject _
            Or oSh.Type = msoMedia Then
              oSh.LinkFormat.SourceFullName = _
                   Replace(oSh.LinkFormat.SourceFullName, _
                   sSearchFor, sReplaceWith)
           End If
       Next
 
    Next    ' slide
 
End Sub

Mais ce dernier fonctionne une fois sur 20000 mille, à chaque fois qu'il ne marche pas il m'indique qu'Excel ne peut pas ouvrir deux fichiers du même nom...

- j'ai essayé la fonction "Cherche & Remplace" mais aucun succès non plus...

**Jean-Philippe André** · 23/05/2017, 12h05

OK,

je ne procede pas comme ca mais faute de temps je te propose le bourrin

Code :

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

1
2
3
4
On Error Resume Next
For Each shp In sld.Shapes
        shp.LinkFormat.BreakLink
    Next shp

**remy.edf** · 23/05/2017, 12h11

La fonction Breaklink va juste écraser mes liens et non me les modifier comme il le faut non?

**Jean-Philippe André** · 23/05/2017, 12h16

Oui, mais tes liens en "local" ca signifie quoi exactement pour toi ?

En fait tu veux faire une copie des donnees (comme un copier coller par valeur sous Excel), non ?

**remy.edf** · 23/05/2017, 12h29

En fait, j'ai un fichier Excel et un fichier Powerpoint qui sont liés par des tableaux et des graphiques (j'ai utilisé la fonction collage spéciale, collage lié) dans un dossier appelé A. Lorsque je copie ces deux fichiers dans un dossier appelé B, le fichier Powerpoint du dossier B est toujours rattaché au fichier Excel du dossier A.

J'aimerai qu'une macro puisse m'aider à changer directement la source des liaisons pour que le fichier Powerpoint du dossier B soit lié au fichier Excel du dossier B et non plus à celui du dossier A. Je sais que l'on peut le faire lien par lien mais comme il y a une centaine de lien, c'est trop long et trop fastidieux.

Merci d'avance pour ton aide.

Rémy.

**Jean-Philippe André** · 23/05/2017, 12h36

OK, je comprends mieux

regarde en partant vers ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim sld As Slide
dim shp As Shape
For each sld in ActivePresentation.Slides
For each shp in sld.Shapes
With shp
If .Type = msoLinkedOLEObject Then
With .LinkFormat
.SourceFullName = NouveLienExcel
.AutoUpdate = ppUpdateOptionManual
End With
End If
End With
Next 'shp
Next 'sld

**remy.edf** · 23/05/2017, 12h45

Je t'ai mis le code erreur que cela m'affiche en pièce jointe

Merci

**Jean-Philippe André** · 23/05/2017, 12h50

Certes, mais ton lien Excel NouveLienExcel a-t-il au moins ete correctement renseigne ?

https://msdn.microsoft.com/fr-fr/lib.../ff745161.aspx

**remy.edf** · 23/05/2017, 12h56

Oui et cela m'ouvre une fenêtre Excel m'indiquant (voir pièce jointe)

**Jean-Philippe André** · 23/05/2017, 13h04

OK, en fermant ton fichier Excel en question sous Excel ?

Sinon faudra aller changer les cles de registre.

**remy.edf** · 23/05/2017, 14h02

En fait quand je lance la macro elle tourne en boucle sans s'arrêter même au bout de 5 min, ce qui me paraît long...
Quand j'ouvre Excel, ça m'affiche qu'Excel ne peut pas ouvrir deux fichier de même nom...
Peut-être faut-il que mon fichier Excel dans le dossier B ne doit pas avoir le même nom que le fichier Excel du dossier A non?

**remy.edf** · 23/05/2017, 14h06

Même en changeant de nom ça ne fonctionne pas ...

**Jean-Philippe André** · 23/05/2017, 14h09

Puis je te suggerer de virer les liens et de passer a un copier coller du tableau dans le slide ?

Je passe par un Copy cote Excel et un

Code :

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

PPTApp.CommandBars.ExecuteMso ("PasteExcelTableDestinationTableStyle")

cote PPT.

**remy.edf** · 23/05/2017, 14h11

Désolé je n'ai pas compris...

**Jean-Philippe André** · 23/05/2017, 14h27

Actuellement tu mets des liens de fichiers Excel.

Ce lien est-il une absolue necessite ou bien une recopie des tableaux/graphes depuis Excel vers PPT ferait l'affaire ?

**remy.edf** · 23/05/2017, 14h35

C'est une absolue nécessité puisque le but étant de gagner du temps à ne pas remplir le fichier Powerpoint après c haque modification sur Excel mais que ceci se fasse automatiquement