Probleme après reformatage disque dur

Bonjour à tous

Le PC sur lequel je bosse à mon travail a été reformaté suite à problème .

De 2000 , il est passé à XP et Office à été ré-installé avec mises à jour .

Excel est passé à la version 2002 10.6501.6714 SP3 , VB6.3 version 9969 , VBA 6.4.8869 , Forms3 11.0.5709

Depuis , une partie du code que j'utilisais pour envoyer une image par mail ne fonctionne plus avec la nouvelle installation (pas de problème avec un autre PC ayant la version 2002 10 2614.2625 sans SP3 , VB6.3 version 9108 , VBA 6.3.8866 , Forms3 2.01.

Chez moi , j'ai Excel 2002 10.6584.6845 SP3 et ça marche .

Le code : (pompé à droite et à gauche sur le forum puis adapté à mon cas)

Range("A1:l50").CopyPicture Appearance:=xlScreen, Format:=xlBitmap

Dim mes As Range, monImage As String, Sh As Shape, m As String
Set NewSheet = Sheets.Add(Type:=xlWorksheet)

    With Sheets("Feuil1")
        .Paste
        Set Sh = .Shapes(.Shapes.Count)
        monImage = "C:\temp\" & "etat" & ".jpg"
        With .ChartObjects.Add(0, 0, Sh.Width, Sh.Height).Chart
           .Paste
            .Export monImage, "JPG"
       End With
       .Shapes(.Shapes.Count).Delete
    End With

Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Etat "
        .To = "adresses e-mail"
        .CC = ""
        .BCC = ""
        .TextBody = " "
        .AddAttachment monImage
        .Send
    End With

    Application.ScreenUpdating = True

    Set CdoMessage = Nothing
Application.DisplayAlerts = False
Sheets("Feuil1").Delete
Kill monImage

En pas à pas , ça plante juste après CreateObject.("CDO.message") et en visualisant les variables locales , cdomessage="nothing" alors qu'avec la version fonctionnelle , le corps du message est créé .

Quelqu'un pourrait il m'aider à résoudre ce problème ?

Merci d'avance

Bonsoir,

Dire que ça plante, c'est bien, dire quelle est l'erreur, et surtout le message d'erreur, c'est mieux....

A tout hasard, sur ton PC refait à neuf, as-tu bien ajouté la référence à µSoft CDO?

Dans le VBE, Outils/Références, tu coches "Microsoft CDO for Windows xx Library"...

A tout hasard.....

Ooops !!!

Effectivement , j'ai oublié de préciser l'erreur :

Erreur d'execution '91' : variable objet ou variable de bloc With non définie

(je suppose que c'est parce que cdomessage =nothing)

En tous cas , merci pour la réponse , Cousinhub .

J'essaie lundi ce que tu proposes .

Bonjour

Après avoir coché la case qui va bien , Cdomessage = nothing et toujours l'erreur 91.

Autre idée ?

Merci

Bonjour

Je continue à chercher de mon coté et me dirige plutôt vers un problème lié à Createobject qui ne créé rien .

A +

Plus la peine de chercher , j'ai trouvé .

C'est Kaspersky qui bloquait l'exécution des macros VBA (pas toutes , mais au hasard celle là) .

Option désactivée , tout marche bien .

Fallait y penser .

Merci au forum pour son aide .