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.

[joe.levrai]

Bonjour,

autre test :

Code :

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

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

lance la procédure en pas à pas afin de dérouler la macro ligne par ligne
si ça plante, indique sur quelle ligne ça plante.
Si ça ne plante pas, tu obtiens une boite de dialogue indiquant le nom de la forme qui vient d'être crées.


Par ailleurs, tes tests préliminaires ne sont pas complets :

1) Toi sur ton poste = OK
2) Un autre sur ton poste = OK
3) Toi sur un autre poste = OK

Mais du coup, aucun test de ce genre :

1) Toi sur le poste incriminé = ?
2) Un autre utilisateur sur le poste incriminé = ?
3) L'utilisateur habituel du poste incriminé = KO


Il semblerait qu'une réparation de la suite Office soit également à envisager (ou une réinstallation)

[JuBDL]

Bonjour,

Merci pour la réponse
Le code renvoie toujours la même erreur Run-time '1004' Application-defined or object-defined error sur la ligne contenant ChartObjects.Add :/

En ce qui concerne les test effectués, le poste incriminé est en fait le mien
Donc ça donne:

1) Moi sur mon poste et mon windows login = Error
2) Un ami sur mon poste et son windows login = OK
3) Moi sur un autre poste et mon windows login = OK

A noter, j'ai aussi tenté:
a/ Une réinstallation complète de la suite Office 365 après avoir constaté que la réparation ne changeait rien
b/ Supprimer les imprimantes du gestionnaire de periph (tips récupéré sur un autre forum)
c/ Jouer avec les clés registre windows en suivant ces indications (depuis rétabli les valeurs par défaut): https://support.microsoft.com/en-us/kb/215573

Merci pour ta persévérance