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

patricktoulon

XLDnaute Barbatruc

• 7 Novembre 2023

• #2

Bonsoir

VB:

Option Explicit
Sub ExportImage()
    Dim Plage As Range, NomImage$, Repertoire$, cheminX, Graph
    Repertoire = ActiveWorkbook.Path & "\Images\"
    If Dir(Repertoire, vbDirectory) = "" Then MkDir Repertoire
    If Dir(Repertoire & "Cartes\", vbDirectory) = "" Then MkDir Repertoire & "Cartes"
    Sheets("ImprimeJPG").Select
    NomImage = "EssaiImage"
    cheminX = Repertoire & "Cartes" & Application.PathSeparator & NomImage & ".jpg"
    If Dir(cheminX) <> "" Then MsgBox "ce nom de fichier est dejà utilisé": Exit Sub
    Set Plage = Range("A1:L59")
    Plage.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
    Set Graph = Plage.Parent.ChartObjects.Add(0, 0, 0, 0).Chart
    Plage.Parent.Shapes(Graph.Parent.Name).Line.Visible = msoFalse
    With Graph.Parent
        .Width = Plage.Width: .Height = Plage.Height: .Left = Plage.Left:
        '.Select
        Do: DoEvents
            .Chart.Paste
        Loop While .Chart.Pictures.Count = 0
        '************************************************************
        .Chart.Export cheminX, "jpg"
    End With
    Graph.Parent.Delete
End Sub

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 8 Novembre 2023

• #3

Bonjour Merci Patrick Pour ta réponse.
Mais j'ai le même problème avec ton code



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)

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.
Erreur 438 ALD 5 ?

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2023

• #4

re
a mon avis ton install de la nouvelle version c'est mal passée

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 8 Novembre 2023

• #5

Re Bonjour et Re Merci.
Effectivement, je viens de faire un test sur un autre PC avec exactement la même version D'Excel et là ça marche.
Je vais désinstaller Office et le réinstaller.
Je mettrais le résultat de cette manip.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2023

• #6

hah!! à la bonne heure 😉 👍

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2023

• #7

tu es un fan de la nature toi à ce que je vois
magnifique ces orchidées on dirais qu'il y a un nounours posé dessus 🤣
la nature nous fait de belle choses
il est un tord de croire que l'on puisse faire mieux

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 8 Novembre 2023

• #8

la nature nous fait de belle choses
il est un tord de croire que l'on puisse faire mieux

Cliquez pour agrandir...

Merci Patrick, Oui la nature me passionne. non seulement l'homme ne fait pas mieux, mais il détruit ce que la nature à fait.

Pour revenir sur mon problème :
Voila je viens de désinstaller Office 365 avec l'application SetupProd_OffScrub.exe qui semble faire une désinstallation plus complète.
Puis réinstallation. Manip faite deux fois avec une fois réinstallation via le site Microsoft et comme il y avais toujours l'erreur j'ai redésinstallé et réinstallé via SetupProd_OffScrub.exe. Mais rien n'y fait.
Je suis en Windows 11, comme je ne pouvais pas aller en arrière je suis allé en avant avec une M a J de Windows 11 version 23H2.

Ne marche toujours pas, même message d'erreur sur le même fichier qui marche sur un PC et pas sur l'autre.
Config PC Qui Marche :
Édition Windows 10 Famille Version 22H2 et Microsoft® Excel® pour Microsoft 365 MSO (Version 2310 Build 16.0.16924.20054) 64 bits
Config PC Qui Ne Marche Pas :
Windows 11 version 23H2. Microsoft® Excel® pour Microsoft 365 MSO (Version 2310 Build 16.0.16924.20054) 64 bits

Je me pose la question d'un virus ? Est-ce possible ?
Si pas d'autre solution je ferais une réinitialisation complète du PC, mais en attendant si vous avez d'autres piste, je suis preneur.
Merci

 

Dernière édition: 8 Novembre 2023

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2023

• #9

re
le fait que ca fonctionne sur pc avec la même version de excel veut dire qu'il faut chercher ailleurs
alors soit les mises ajour l'ors de l’installation de sont pas les même quand un windows et l'autre
soit il y a un soucis avec ton windows
je vais regarder si j'ai bien fait tout mes déclarations d'api
a tu regardé si tu a l'option activer les macros 4 dans tes options

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 8 Novembre 2023

• #10

Je pense que Oui, puisse que je fais du VBA depuis longtemps. Mais pour vérifier c'est où dans option. J'ai pas trouvé ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2023

• #11

c'est quoi que tu a comme Excel 2016 , 2019 , 2021

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 9 Novembre 2023

• #12

Dernière version Office 365 ==> Microsoft® Excel® pour Microsoft 365 MSO (Version 2310 Build 16.0.16924.20054) 64 bits
Mais sur le forum Microsoft j'ai eu une réponse qui m'a bien aidé ICI pour ceux qui peuvent.
En fait le problème vient du compte utilisateur. J'ai fais une réinstallation Office 365 a partir d'un autres compte utilisateur et là pas de problème sur ce compte. Si je reviens sur mon compte le problème persiste.

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 10 Novembre 2023

• #13

Bonjour,
Merci pour votre aide.
J'ai fini par faire une réinitialisation du PC et tous semble être rentré dans l'ordre.

 

Vote positif 0 Vote négatif