Discussion :

[PhilC]

Bonjour à tous,
Je viens de découvrir que l'enregistreur de macro d'Excel 2007 ne prenait pas en compte les insertions d'images ou graphismes.
Celui-ci les ignore totalement maintenant, ce qui n'était pas le cas dans les verisons précédentes!
Quelqu'un a t'il rencontré ce problème? Est-ce un Bug de cette version?
Comment contourner ce problème?
D'avance merci.

[ouskel'n'or]

On peut déjà te passer le code utilisé sur 2003

Code :

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

1
2
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\ousk'\Mes documents\Mes images\Bêê.gif").Select

En attendant que tu aies ta réponse...

[PhilC]

Je te remercie de ta réponse.
Par contre, peux-tu me dire si cela fait partie des bugs de la nouvelle version qui a mon sens est devenue allègrement plus restrictive que les précédentes.
Je viens de trouver un autre problème sous Word : on ne peut plus insérer le chemin et le nom du fichier dans les entêtes / pieds de page, etc....
Microsoft régresse...!!!

[ouskel'n'or]

Désolé mais je ne peux pas t'aider pour la version 2007.

on ne peut plus insérer le chemin et le nom du fichier dans les entêtes / pieds de page

L'insertion de champs n'est-elle plus possible ? Tu n'as plus de menu Insertion ?
Je pense que tu peux ajouter les différents menus dans le Bandeau... si j'ai bien compris... mais c'est pas sûr Alors tu devras attendre qu'un "espécialiste" version 2007 passe par là. Désolé (re)

[fred65200]

bonsoir philC
effectivement sur Excel 2007 pas possible d'enregistrer l'insertion d'image avec l'éditeur de macro. Je n'ai malheureusement pas de solution à te proposer.

pour le nom du fichier dans Word, j'ai trouvé ceci

Word 2007 - Créer un entête ou pdp personnalisé Comment créer, avec Word 2007, un entête ou pied de page personnalisé ?

Word 2007 contient un certain nombre de galeries qu'il est possible de personnaliser.
Voici comment créer un nouvel en-tête ou un nouveau pied de page :

- Sous l'onglet Insertion, groupe En-tête et pied de page, cliquez sur l'un des boutons En-tête ou Pied de page, et choisir (tout en bas) Modifier l'ent-ête (ou Modifier le pied de page).

- Créer son proppre en-tête ou pied de page.
Utiliser éventuellement le bouton Quickpart, puis Champ, situé sous l'onglet Insertion, groupe Texte, pour insérer un champ de type {FILENAME p) qui donne le nom et l'emplacement du fichier, un champ {CREATEDATE} pour insérer la date de création du document, etc. Ces champs peuvent aussi être rentrés manuellement (les { } s'obtiennent par les touches Ctrl + F9).

- Sélectionner tout l'en-tête ou tout le pied de page, puis cliquer à nouveau sur le bouton En-tête (ou Pied de page) et choisir cette fois l'option Enregistrer la sélection dans la galerie d'en-têtes (ou pieds de page).

- Dans la boîte de dialogue Créer un nouveau bloc de construction, mettre un nom pour son nouvel en-tête (ou pied de page), créer éventuellement une catégorie si on a l'intention de créer toute une série d'en-têtes ou de pdp qui serait divisée en sous catégories, mettre une description et cliquer sur OK.

- Quitter l'en-tête ou le pied de page et vérifier la galerie : l'en-tête ou le pdp personnalisé s'y trouvent, placé en premier.

- Cet en-tête ou pdp sera accessible depuis n'importe quel document.

cordialement
fred65200

[fred65200]

bonjour,
avec le code suivant, tu peux insérer une image avec VBA et Excel 2007

expression.AddPicture(NomFichier, LienVersFichier, EnregistrerAvecDocument, Gauche, Haut, Largeur, Hauteur)

expression.ScaleHeight(Facteur, ProportionnelÀTailleInitiale, Échelle)

expression.ScaleWidth(Facteur, ProportionnelÀTailleInitiale, Échelle)

Code :

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

1
2
3
4
 
Set myShape = ActiveSheet.Shapes.AddPicture("C:\Users\xxxx\Pictures\monImage.png", True, True, 100, 100, 0, 0)
myShape.ScaleHeight 1, msoTrue
myShape.ScaleWidth 1, msoTrue

cordialement