Macro ne fonctionne pas lorsque utilisée sur un autre PC

Bonjour à tous,

Je m'arrache les cheveux sur le code suivant. Il marche parfaitement sur mon ordi mais dès qu'il tourne sur un autre ordi, apparait une runtime error 1004, object-defined or application-defined etc.

Les version d'Excel sont les mêmes, 2013, v64 bits, 15.0. Les références sont les mêmes. La sécurité est la même.

Cette macro vise à créer un ppt à partir d'excel comme vous le verrez.

Elle crash uniquement sur certains graphs, sans raison apparente. Je ne peux pas vous joindre le fichier, il contient des données confidentielles. J'espère que vous pourrez m'aider.

J'ai l'impression que c'est dû au fait que lorsque le fichier excel est ouvert sur un autre ordi, les graphs ne sont plus tous reconnus, un problème que je pensais avoir contourné en les nommant spécifiquement.

Pouvez-vous m'aider?

Merci!

Edit: je n'ai mis qu'une partie du code

Sub ModifierPresentationExistante()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Test, location As String

Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\Users\***\***\***\Clients\***\***\****\***\***.pptx")

With PptDoc

    Dim Path As String
    Path = InputBox("Enter the path")
    Test = "Baseline Deck - " & Worksheets("Intro").Range("c7")
    'sauvegarde la présentation
    PptDoc.SaveAs Filename:=Path & "\" & Test

    'copie le 3ème Graph de la feuille active
     Worksheets("Spend overview").ChartObjects("Spendbycountry").Copy
    'Effectue un collage dans la 4eme diapositive
    .Slides(4).Shapes.Paste

     With .Slides(4).Shapes(.Slides(4).Shapes.Count)
        .Name = "SpendbyCountry" 'personnalise le nom
        .Left = 42 'définit la position horizontale dans le slide
        .Top = 89 'définit la position verticale dans le slide
        .Height = 209 'hauteur
        .Width = 663 'largeur
    End With

    'copie le 1ème Graph de la feuille active
     Worksheets("Spend overview").ChartObjects("Sbr").Copy
    'Effectue un collage dans la 4eme diapositive
    .Slides(4).Shapes.Paste

    With .Slides(4).Shapes(.Slides(4).Shapes.Count)
        .Name = "SpendbyRegion" 'personnalise le nom
        .Left = 37 'définit la position horizontale dans le slide
        .Top = 298 'définit la position verticale dans le slide
        .Height = 209 'hauteur
        .Width = 221 'largeur
End With

    'copie le 5ème Graph de la feuille active
     Worksheets("Spend overview").ChartObjects("Spendbyft").Copy
    'Effectue un collage dans la 4eme diapositive
    .Slides(4).Shapes.Paste

     With .Slides(4).Shapes(.Slides(4).Shapes.Count)
        .Name = "Spendbyflighttype" 'personnalise le nom
        .Left = 258 'définit la position horizontale dans le slide
        .Top = 298 'définit la position verticale dans le slide
        .Height = 209 'hauteur
        .Width = 221 'largeur
    End With

    'copie le 6ème Graph de la feuille active
     Worksheets("Spend overview").ChartObjects("Spendbyrt").Copy
    'Effectue un collage dans la 4eme diapositive
    .Slides(4).Shapes.Paste

         With .Slides(4).Shapes(.Slides(4).Shapes.Count)
        .Name = "Spendbyroutetype" 'personnalise le nom
        .Left = 493 'définit la position horizontale dans le slide
        .Top = 298 'définit la position verticale dans le slide
        .Height = 209 'hauteur
        .Width = 221 'largeur

    End With

End With

MsgBox "Your deck was created successfully !"

End Sub

Bonjour,

tout dépend de la ligne déclenchant l'erreur, du contexte, …

Sans fichier de notre côté, tu es le seul à pouvoir tracer la source du problème !

Si je ne donne pas une ligne en particulier c'est bien parce que le problème est global et qu'il ne s'explique pas pour une ligne en particulier .

La question est pourquoi dans le cadre d'une macro qui génère un powerpoint depuis excel en copiant collant des graphiques comportant un nom spécifique, cette macro crash lorsqu'elle n'est pas exécutée sur l'ordi qui a créé la macro car elle ne reconnait pas un des graphs qui est contenu dans le fichier excel?

J'ai donné l'erreur qui s'affiche, je ne peux pas donner plus d'éléments!