CestPasMoi
XLDnaute Nouveau
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
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