Discussion :

[JuBDL]

Bonjour à tous!

Premier sujet après avoir depuis pas mal de temps consulté ces forums et j'ouvre cette discussion afin de vous demander un peu d'aide car j'arrive au bout des possibilités...
J'ai un problème sur un ordinateur en particulier (et seulement celui-ci) lorsque je lance la macro suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Test()
Dim cht As ChartObject
 
Set cht = ThisWorkbook.Worksheets(1).ChartObjects.Add(Left:=100, Width:=100, Top:=100, Height:=100)
 
End Sub

Je ne peux pas faire plus simple comme code :/
Et je reçois pourtant systématiquement la Run Time Error 1004: Application-defined or object-defined error - cht = Nothing

Point interessant: ce problème ne se produit pas sur un autre ordinateur avec mon compte windows, ni sur mon ordinateur lorsque quelqu'un d'autre se log avec son compte windows...
Pouvez-vous m'éclairer?

Windows 10
Excel 2016 / Office 365*
References: Visual Basic / Excel 2016 Object Library / OLE Automation / Office 2016 Object Library



D'avance merci!

[joe.levrai]

Bonjour,

et en déclarant cht en type Object, ça ne passe toujours pas ?

Si ça passe, ça veut dire qu'il y a un problème de librairie sur le PC incriminé
Si ça passe pas ... on verra après avoir testé le type Object

[JuBDL]

Bonjour joe.levrai,

Merci pour cette réactivité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim cht As Object

Renvoie la même erreur - cht = nothing :/

[joe.levrai]

Et "Dim cht" sans fournir le type ... histoire de tester le Variant ?

[JuBDL]

aussi mais cht = empty maintenant

[JuBDL]

Bonjour,

D'autres idées?

Merci pour vos réponses.