XL 2010 Problème avec GetOpenFilename

[CestPasMoi]

Bonjour,

Je suis un novice total en VBA, bien qu'un gros utilisateur d'Excel. Je n'ai aucune formation informatique mais à force de surfer sur les forums, j'arrive par tâtonnement à faire petites choses avec mes macros (à mon niveau).
Mais là, je suis bloqué.
Cela doit être certainement d'une grande simplicité pour vous, je m'excuse par avance si ma problématique vous parait enfantine.

Bref, voici mon problème:
Je souhaite mettre en place un bouton sur mon fichier Excel pour permettre à l'utilisateur de mettre son logo en entête gauche de la feuille active. En recherchant sur le Web, j'ai trouvé le code suivant qui fonctionne très bien:

Sub IncrementationLogo()
With ActiveSheet.PageSetup.LeftHeaderPicture
.Filename = Application.GetOpenFilename
End With
ActiveSheet.PageSetup.LeftHeader = "&G"
End Sub

Sauf que si l'utilisateur clique sur "Annuler" alors que la boite de sélection de l'image s'est ouverte, j'ai une erreur qui apparait. Je tente depuis plusieurs jours de modifier les lignes en fonction de ce que je trouve sur le Net, en vain. Soit ça ne marche pas, soit je ne comprends pas les explications données car bien au dessus de mon niveau.

Je vous remercie donc par avance pour ceux qui prendront le temps de m'aider.

Cordialement

 

[JCGL]

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit
Sub IncrementationLogo()
On Error Resume Next
    With ActiveSheet.PageSetup.LeftHeaderPicture
        .Filename = Application.GetOpenFilename
    End With
    ActiveSheet.PageSetup.LeftHeader = "&G"
End Sub

A+ à tous

 

[CestPasMoi]

Merci beaucoup, ça marche impeccable !!!
J'apprends tous les jours. La nouveauté du jour sera "On Error Resume Next"
Merci encore.