Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    août 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 24
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : août 2018
    Messages : 4
    Points : 7
    Points
    7

    Par défaut Changer la source de données de toutes les liaisons Excel/Powerpoint

    Bonjour à tous.

    J'ai lié un fichier Excel à ma présentation PowerPoint de sorte à ce que les mises à jour du fichier EXCEL aillent automatiquement dans le PowerPoint.
    Cependant, Je veux changer le fichier Excel lié. Quand je fais fichier -> Informations -> Modifier les liens d'accès aux fichiers , je dois changer les liaisons une par une or j'en ai pas mal.

    Je me demande donc s'il est possible de changer le nom du fichier source uniquement pour qu'il prenne en compte toutes les liaisons. Puisque les feuilles Excel ainsi que les cellules que j'ai liées ne changent pas.

    Merci pour votre aide.

  2. #2
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    août 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 24
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : août 2018
    Messages : 4
    Points : 7
    Points
    7

    Par défaut RESOLU

    Le problème est résolu.

    J'ai utilisé du VBA sur le ppt pour remplacer l'ancien nom du fichier source par le nouveau.
    Toute fois, s'il y'a une solution plus simple sans macro elle serait la bienvenue.

    Voici le code que j'ai utilisé:

    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
     
     
    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, "V20180920", "V20181010") 'pour le remplacement
                sNewFile = ActivePresentation.Path & sNewOLE
                Shpe.LinkFormat.SourceFullName = sNewFile
             End If
          Next Shpe
       Next Slde
       MsgBox sNewFile
    End Sub
    Merci.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 18
    Dernier message: 26/07/2018, 21h05
  2. Changer la source de données d'une Connexion
    Par Harry dans le forum WinDev
    Réponses: 1
    Dernier message: 09/08/2007, 16h54
  3. changer la couleur de mon Form1 toutes les secondes
    Par stacker_junior dans le forum C++Builder
    Réponses: 9
    Dernier message: 10/05/2006, 20h36
  4. Réponses: 11
    Dernier message: 04/05/2006, 12h50
  5. Actualiser les données de toutes les cellules d'1 colonne
    Par beurnoir dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 21/12/2005, 11h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo