Erreur d'exécution 5 argument ou appel de procédure incorrect avec ActiveSheet.ChartObjects.Add()

Anonyme
2023-11-07T10:49:45+00:00

Bonjour,

J'utilise le code ci-dessous pour créer des images jpg.

Il fonctionnait très bien sur plusieurs fichier jusqu'à fin octobre environ.

Mais maintenant il ne fonctionne plus avec Erreur d'exécution 5 argument ou appel de procédure incorrect.

Je suis en Office 365 avec mise à jour des version automatique. Est-ce que ça pourrais venir de la dernière version ???

Merci d'avance pour votre aide.

Patrick

Option Explicit

Sub ExportImage()

Dim Plage As Range

Dim NomImage As String

Dim Repertoire

Repertoire = ActiveWorkbook.Path & ""

If Dir(Repertoire & "Images", 16) = "" Then MkDir Repertoire & "Images"

Sheets("ImprimeJPG").Select

NomImage = "EssaiImage"

Set Plage = Range("A1:L59").Cells

Plage.CopyPicture Appearance:=xlPrinter, Format:=xlPicture

With ActiveSheet.ChartObjects.Add(Left:=Plage.Left, Top:=Plage.Top, Width:=Plage.Width, Height:=Plage.Height) 

.Name = "ExportImage" 

.Activate 

.Border.LineStyle = xlNone

End With 

ActiveChart.Paste

ActiveSheet.ChartObjects("ExportImage").Chart.Export Repertoire & "Cartes" & Application.PathSeparator & NomImage & ".jpg", "jpg"

ActiveSheet.ChartObjects("ExportImage").Delete

End Sub

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
DanielCo 107.7K Points de réputation
2023-11-09T18:15:29+00:00

Pour le fichier .xlb, pas de souci. S'il est supprimé, il est recréé au prochain redémarrage d'Excel. Pour le reste, je crois davantage à la suppression / recréation du compte.

Daniel

Cette réponse a-t-elle été utile ?

1 personne a trouvé cette réponse utile.
0 commentaires

14 réponses supplémentaires

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Hecatonchire 53,950 Points de réputation Modérateur bénévole
    2023-11-08T10:01:06+00:00

    Bonjour,

    Vérifies si des références sont marquées MANQUANTES

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2023-11-08T09:59:24+00:00

    La macro fonctionne bien chez moi (Version 2310 16924.20124 sous Windows 10)

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. Anonyme
    2023-11-08T09:20:18+00:00

    Merci Daniel pour ta réponse.

    Idem avec un fichier Vierge.

    Ce qui est bizarre c'est qu'il y a un mois se code marchait très bien. C'est pourquoi Je reprécise que j'ai la dernière version Excel

    (Microsoft® Excel® pour Microsoft 365 MSO (Version 2310 Build 16.0.16924.20054) 64 bits)

    Daniel, as tu la même version

    Je viens de voir qu'un autre code d'un fichier qui n'est pas de moi me pose le même problème. Alors qu'il fonctionnait bien il y a un mois

    Sur la ligne de code ActiveWorkbook.ActiveSheet.Status = "Attente"

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. DanielCo 107.7K Points de réputation
    2023-11-07T20:27:08+00:00

    Bonjour,

    Bizarre, le code fonctionne chez moi. Essaie de le faire fonctionne sur un classeur vierge.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires