Discussion :

[mormic]

Bonjour à tous

J'ai besoin de charger par VBA dans une feuille Excel une image de fond qui contiendrait des zones de saisie.
Cette image pourrait être dans un autre classeur.
J'ai essayé par une copy globale de la feuille: l'image est bien copiée mais pas les champs de saisie.
Est-ce possible de faire cela ?
Si quelqu'un a une idée, merci de bien vouloir m'aider.

Michel

[Daniel.C]

Bonjour,

Je ne comprends pas trop ce que tu entends par "image de fond qui contiendrait des zones de saisie". Essaie avec l'enregistreur de macros.

[mormic]

C'est une image qui a été chargée par l'utilitaire de dessin dans laquelle il y a des zones de saisie.

[Marc-L]

Bonjour, bonjour !

Une image n'est pas un formulaire, elle ne peut donc contenir une zone effective de saisie !

C'est comme appuyer sur le bouton d'une sonnette en photo, jamais elle ne sonnera …

[mormic]

Bonjour Marc-L

Merci pour votre réponse mais j'ai bien une image dans laquelle il y a des zones de saisie. Une d'entre-elles s'appelle "DateJour" et par programme j'y charge la date du jour.
En suivant les conseils de Daniel-C, j'ai utilisé l'enregistreur de macro et j'ai trouvé l'instruction suivante:
Shapes.Range(Array("DateJour","Nom","Groupe1").copy
Je vais essayé de l'intégrer dans mon programme.

Salutations
Michel

Je reviens vers vous car je n'arrive pas à trouver la bonne syntaxe
J'ai écrit ceci:

Code :

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

1
2
3
4
5
 Dim Fic As Object
    Set Fic = GetObject(RepMasks & "MMenuMasques.xls")
      Fic.Sheets(NomPage).Shapes.Range(Array("Masque1", "Dat", "Nom", "Sem")).Copy Destination:=Sheets(NomPage).Range("A1") <<< = 'ERREUR ICI 
    Fic.Close
    Set Fic = Nothing

et j'ai une erreur d'exécution 438 "Propriété ou méthode non gérée par cet objet"

Quelqu'un connaîtrait-il la bonne syntaxe ?
Merci
Michel

[Daniel.C]

Tu copies trois formes (pas une image) :

Code :

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

1
2
3
4
Fic.Sheets(NomPage).Shapes.Range(Array("Masque1", "Dat", "Nom", "Sem")).Select
Selection.Copy
Range("A1").Select
Sheets(NomPage).Paste

[mormic]

Merci pour cet aide.
Malheureusement, bien que le programme ne se plante plus, rien n'apparaît sur la feuille. Je ne comprends pas!
Alors, je viens de trouver une solution qui fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
Dim Fic As Object
 Dim sh As Shape 
 Fic = GetObject(RepMasks & FicMaskPere)
 For Each sh In Fic.Sheets(MaskPere).Shapes
      sh.Copy
      Sheets(NomPage).Paste 
 Next .sh 
 Fic.Close 
 Set Fic = Nothing

C'est moins élégant mais cela solutionne mon problème.
Si vous avez une idée pourquoi les "shapes" ne se recopient pas avec votre syntaxe ?
Merci encore.
Michel

[Daniel.C]

Ca fonctionne avec Excel 2013. Sans ddoute une différence de version.