Set ComDlg = CreateObject("MSComDlg.CommonDialog")

bonjour le forum

j'ai une erreur avec cette macro je comprends pas pourquoi merci de votre aide

Public Function coll()

With ComDlg

.CancelError = True

.Color = RGB(255, 0, 0)

.Flags = cdlCCFullOpen Or cdlCCRGBInit

'Appel de la boite couleur

On Error Resume Next

.ShowColor

If Err.Number <> cdlCancel Then Exit Function

End With

coll = ComDlg.Color

End Function

Bonjour,

Commence peut-être par modifier l'initialisation de ComDlg !?

Set ComDlg=CreateObject("MSComDlg.CommonDialog.1")

Cdlt.

Merci mais j'ai toujours la même erreur sur

Set ComDlg=CreateObject("MSComDlg.CommonDialog.1")

avec un message erreur d'exécution 2147221164 80040154

je pense que ma version excel est trop obsolète version 2013