Modifier des liens Excel-Pptx par messageBox

Version imprimable

Bonjour le forum,

J'ai récupéré un bout de code pour pouvoir modifier le nom du fichier en lien avec powerpoint.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub ChgLiaisonOle() Dim Slde As Slide, Shpe As Shape, lNucar As Long, sNewFile As String, sFichierOLE As String, sNewOLE As String For Each Slde In ActivePresentation.Slides For Each Shpe In Slde.Shapes If Shpe.Type = msoLinkedOLEObject Then sFichierOLE = Mid(Shpe.LinkFormat.SourceFullName, InStrRev(Shpe.LinkFormat.SourceFullName, "\")) sNewOLE = Replace(sFichierOLE, "FichierA", "Fichier1") 'pour le remplacement sNewFile = ActivePresentation.Path & sNewOLE Shpe.LinkFormat.SourceFullName = sNewFile End If Next Shpe Next Slde MsgBox sNewFile End Sub
Je souhaiterais pouvoir faire le "Replace" par messageBox pour que chaque utilisateurs puisse faire la modification sans rentrer dans VBA.

Ce que je souhaite au final :
Je renomme mon "FichierA" en "Fichier1" (donc je perds le lien vers pptx). [Il existe aussi un fichierB, fichierC...qu'il faudra aussi renommer fichier2, fichier3...]
Je lance une macro qui m'ouvre un messageBox avec : "De quel fichier voulez-vous modifier le lien ?" (la réponse dans ce cas sera "FichierA" ou "FichierB"...) / "Comment voulez-vous renommer votre lien" (Là on saisie "Fichier1" ou "Fichier2"...).
En validant par OK, la macro remplace tous les liens s'apellant "FichierA" par "Fichier1"...

Je précise que ne suis pas programmeur (vous vous en doutez !) mais que à force de lire des bouts de codes j'arrive (plus ou moins) à adapter (des fois...).
Mais je ne sais pas faire de messageBox avec question/réponse...Et surtout, je ne sais pas si dans ce cas-là il faut mieux la macro sur Excel ou sur Pptx ???
Dans le cas du code ci-dessus, c'est sur pptx, mais est-ce la meilleur solution ?

Merci à vous de prendre le temps de me lire.
Cordialement,

Gilles

15/10/2019, 10h31
Menhir

Citation:

Envoyé par Bob182

je ne sais pas faire de messageBox avec question/réponse...

Les MsgBox ne contiennent qu'un message et des boutons. https://docs.microsoft.com/fr-fr/off...sgbox-function
Elles ne permettent pas de saisie.

Si on veut ajouter une saisie, il faut passer par une InputBox. https://docs.microsoft.com/fr-fr/off...utbox-function
Mais ceci non plus ne correspond pas à ton besoin car une InputBox ne peut avoir qu'un seul champ de saisie.
Et faire plusieurs InputBox à la suite, ce n'est pas très ergonomique.

Si tu veux plusieurs champs de saisie, il faudra passer par un UserForm.
Lire ceci : http://silkyroad.developpez.com/VBA/UserForm/
15/10/2019, 10h44
Bob182

Bonjour et merci Menhir,

Je vais lire ça...

1ère question qui me vient :
Lorsqu'on à rempli le UserForm comment dit-on "dès que je valide par OK, la macro reprend" ?

Cordialement,
Gilles
15/10/2019, 11h24
Menhir

En fait, c'est le bouton Ok (ou autre nom) qui lancera le traitement.
Regarde le chapitre IV-H du lien que je t'ai indiqué.

Les UserForm, ce n'est pas ma spécialité. Je n'en utilise jamais. Je ne suis donc pas le mieux placer pour te renseigner sur ce sujet.
Personnellement, je trouve les UF de VBA assez laids et peu ergonomiques et je préfère utiliser directement un onglet "paramètres" dans lequelle la macro vient piocher ses données.

Autre chose : essaye de consacrer plus 10 min à la lecture des liens donnés avant de poser une question. :?
15/10/2019, 11h26
Bob182

Je suis en train de me documenter sur les UserForms.

Mais :

Comment remplir un Combobox avec la liste des classeurs qui sont liés à un PowerPoint ?

L'idée étant : Dans mon combobox1 je choisi le nom du classeur que je veux modifier dans une liste de noms (ex : "FichierA") et dans un combobx2 je renseigne le nouveau nom que je veux lui donner (ex : "Fichier1").

Merci.

Cordialement,
Gilles
15/10/2019, 11h29
Bob182

@Menhir :

Je lis, je lis... Mais je suis au boulot et je fais plein de truc en même temps et j'ai pleins de questions que me viennent au fur et à mesure que je découvre...Désolé.

Merci.

Cordialement,
Gilles
15/10/2019, 11h43
Menhir

N'oublie pas aussi d'aller visiter l'aide VBA concernant les UserForm : https://docs.microsoft.com/fr-fr/off...icrosoft-forms

OK.
Je laisse de côté les UserBox pour le moment et je passe par un InputBox (merci Menhir).

Voilà où j'en suis :

Code:

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
Sub ChgLiaisonOle()
 
   Dim Slde As Slide, Shpe As Shape, lNucar As Long, sNewFile As String, sFichierOLE As String, sNewOLE As String, _
   Obj As Control, reponse As String, Message, Default, MyValue
 
   For Each Slde In ActivePresentation.Slides
      For Each Shpe In Slde.Shapes
         If Shpe.Type = msoLinkedOLEObject Then
            sFichierOLE = Mid(Shpe.LinkFormat.SourceFullName, InStrRev(Shpe.LinkFormat.SourceFullName, "\"))
 
 
            Message = "Entrer le nom du PDV étudié :"
            Title = "InputBox Demo"
            Default = "PDV"
 
            MyValue = InputBox(Message, Title, Default)
 
 
            sNewOLE = Replace(sFichierOLE, "BASE", MyValue) 'pour le remplacement
            sNewFile = ActivePresentation.Path & sNewOLE
            Shpe.LinkFormat.SourceFullName = sNewFile
         End If
      Next Shpe
   Next Slde
   MsgBox sNewFile
End Sub

Cela fonctionne bien.
Je souhaiterais l'améliorer car je dois renseigner le nom du PDV pour chaque Shapes.

Comment adapter pour que je ne renseigne le nom du PDV qu'une seul fois ?
Et que ça me change TOUS les noms de fichier contenant "BASE" par le nom du PDV que je renseigne dans l'InputBox...

Merci.

Cordialement,
Gilles

15/10/2019, 16h59
Menhir

Citation:

Envoyé par Bob182

Comment adapter pour que je ne renseigne le nom du PDV qu'une seul fois ?

En plaçant le InputBox (et les lignes de codes qui vont avec) avant le début de la boucle.

:oops: heu... Effectivement...:oops:

Merci Menhir !

Jusqu'à maintenant j'ai fais mes test dans un fichier contenant seulement 2 liens.
Ça fonctionne.
Je viens de placer ce code dans un fichier contenant près de 40 liens. (mon vrai fichier de travail)

Et là... j'ai une erreur.

Code:

Shpe.LinkFormat.SourceFullName = sNewFile

Citation:

Erreur d'execution '-2147467259 (800004005)':
La méthode 'SourceFullName' de l'objet 'LinkFormat' a échoué

Bizarre...
Evidemment, si je supprime cette ligne, le code tourne mais ne me remplace plus rien.

Je regarde ça demain.
Merci Menhir.
Merci le forum.

Cordialement,
Gilles
Code:

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 Sub ChgLiaisonOle() Dim Slde As Slide, Shpe As Shape, lNucar As Long, sNewFile As String, sFichierOLE As String, sNewOLE As String, reponse As String, Message, Default, MyValue Message = "Entrer le nom du PDV étudié pour modifier le lien :" Title = "Répondre" Default = "PDV" MyValue = InputBox(Message, Title, Default) For Each Slde In ActivePresentation.Slides For Each Shpe In Slde.Shapes If Shpe.Type = msoLinkedOLEObject Then sFichierOLE = Mid(Shpe.LinkFormat.SourceFullName, InStrRev(Shpe.LinkFormat.SourceFullName, "\")) sNewOLE = Replace(sFichierOLE, "BASE", MyValue) 'pour le remplacement sNewFile = ActivePresentation.Path & sNewOLE Shpe.LinkFormat.SourceFullName = sNewFile End If Next Shpe Next Slde MsgBox sNewFile End Sub

15/10/2019, 17h25
Menhir

Citation:

Envoyé par Bob182

Et là... j'ai une erreur.

Code:

Shpe.LinkFormat.SourceFullName = sNewFile

Erreur d'execution '-2147467259 (800004005)':
La méthode 'SourceFullName' de l'objet 'LinkFormat' a échoué

Commence par analyser les éléments de la ligne, en particulier le contenu des variable avec la fenêtre de variables locales.
Une fois que tu sais quelle Shape pose problème, vérifie s'il contient bien un lien.
16/10/2019, 09h35
Bob182

Bonjour le Forum,
Bonjour Menhir, et re-re-re-re merci !

Effectivement en suivant ta méthode j'ai réalisé que le nouveau nom de fichier n'était pas un fichier existant (à 1 caractère près).
donc...Plantage.
Si le fichier existe, ça passe.

Je vais donc rajouter des lignes pour dire que "si le fichier renommé n'existe pas alors message puis on renvoie l'Inputbox pour renseigner comme il faut ou annuler si on doit sortir pour modifier un excel."

Si vous avez des pistes à me proposer, sinon je plancherai dessus asap.

Cordialement,
Gilles
16/10/2019, 13h40
Bob182

Sinon, je me suis rendu compte que la ligne

Code:

Shpe.LinkFormat.SourceFullName = sNewFile

"ouvre" les fichiers Excel. (Je mets ouvre entre " " car en fait ça ne les affiche pas. c'est juste ouverture/fermeture)
Le pb est que mes fichiers sont lourds (long à ouvrir = perte de temps) et que comme ils sont en lecture seule, j'ai un message à valider x fois.
Si j'execute la macro avec tous mes excel ouverts, ça passe comme dans du beurre...

Mais je voudrais eviter ça (le fichier est destiné à d'autres utilisateurs).

Mes questions :
1 Pourquoi ça fait ça ?
2 Comment faire en sorte que la macro n'appelle pas les excel ?

J'ai essayé des trucs genre Upgrading: False... sans succès.

Merci.

Cordialement,
Gilles

Bonjour le Forum,

Voilà où j'en suis rendu :

Code:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub ChgLiaisonOle()
 
Dim Slde As Slide
Dim Shpe As Shape
Dim sNewFile As String
Dim sFichierOLE As String
Dim sNewOLE As String
Dim Message As String
Dim Default As String
Dim MyValue As String
Dim Rep As Integer
 
 
            'Pour renseigner le nouveau nom du fichier
 
            Message = "Entrer le nom du PDV étudié pour remplacer le texte entre ( ):"
            Title = "AUDIT PDV"
            Default = "PDV"
            MyValue = InputBox(Message, Title, Default)
 
 
            'Parcours chaque objets et si trouve BASE remplace par nouveau nom
 
   For Each Slde In ActivePresentation.Slides
      For Each Shpe In Slde.Shapes
         If Shpe.Type = msoLinkedOLEObject Then
            sFichierOLE = Mid(Shpe.LinkFormat.SourceFullName, InStrRev(Shpe.LinkFormat.SourceFullName, "\"))
            sNewOLE = Replace(sFichierOLE, "BASE", MyValue) 'Remplace "BASE" par le nouveau nom
            sNewFile = ActivePresentation.Path & sNewOLE
 
 
 
        On Error GoTo MessageError
            Shpe.LinkFormat.SourceFullName = sNewFile       'Met à jour le nom et ouvre les fichiers !!! A modifier
 
            'S'il n'existe pas de fichier avec le nouveau nom :
 
MessageError:
            MsgBox "Le fichier " & MyValue & " n'existe pas !"
 
         End If
      Next Shpe
   Next Slde
 
   MsgBox "Modification des liens terminée !", vbInformation, "AUDIT PDV"
 
   Rep = MsgBox("Voulez-vous mettre à jour les liaisons ?", vbYesNo, "AUDIT PDV")
 
            'Si la réponse est "oui" met à jour les liaisons
 
   If Rep = vbYes Then
      ActivePresentation.UpdateLinks                        'Ouvre les fichiers Excel !!! A modifier
        MsgBox "Les liens ont été mis à jour.", vbInformation, "AUDIT PDV"
            Else
                Exit Sub
 
   End If
 
End Sub

Reste 2 problématiques :
1/ Shpe.LinkFormat.SourceFullName = sNewFile
"ouvre" les fichiers Excel. (Je mets ouvre entre " " car en fait ça ne les affiche pas. c'est juste ouverture/fermeture)
Le pb est que mes fichiers sont lourds (long à ouvrir = perte de temps) et que comme ils sont en lecture seule, j'ai un message à valider x fois.

2/ ActivePresentation.UpdateLinks
Me renvoie le fameux message "...le fichier XXX est déjà ouvert. Voulez-vous l'ouvrir..." et il faut valider x fois.
J'ai testé Application.DisplayAlerts = False sans succès...

Merci pour votre aide sur ces 2 points qui dépassent mes compétences.

Cordialement,
Gilles

28/10/2019, 09h57
Bob182

Bonjour le Forum,

Je me permet de relancer ce sujet car je ne peut pas le passer en "résolu" tant que les 2 points persistent car mon fichier est inutilisable en l'état :

Citation:

Reste 2 problématiques :
1/ Shpe.LinkFormat.SourceFullName = sNewFile
"ouvre" les fichiers Excel. (Je mets ouvre entre " " car en fait ça ne les affiche pas. c'est juste ouverture/fermeture)
Le pb est que mes fichiers sont lourds (long à ouvrir = perte de temps) et que comme ils sont en lecture seule, j'ai un message à valider x fois.

2/ ActivePresentation.UpdateLinks
Me renvoie le fameux message "...le fichier XXX est déjà ouvert. Voulez-vous l'ouvrir..." et il faut valider x fois.
J'ai testé Application.DisplayAlerts = False sans succès...

Merci pour votre aide.
Codialement,
Gilles
17/12/2019, 11h04
Bob182

Up ! :(
;) ?
Merci.