Appareil photo en macro

[Temjeh]

Bonjour et merci d'avance

Avec l'option appareil photo si je veux automatisé avec une macro (l'enregistreur) ca bug sur la 3ème ligne.
Je l'enregistre et l'exécute et BUG.

Selection.Copy
Sheets("Dessin carton").Select
ActiveSheet.Shapes.AddShape(, 69#, 29.25, 80.25, 80.25).Select
ActiveSheet.Shapes.Range(Array("Picture 14")).Select
Application.CutCopyMode = False

Avez-vous une piste?

Merci

Temjeh

 

[Pierrot93]

Re : Appareil photo en macro

Bonjour,

A priori l'argument "type" de la méthode "AddShape" est obligatoire, essaye ainsi, non testé...

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 69#, 29.25, 80.25, 80.25)

bonne journée
@+

 

[Temjeh]

Re : Appareil photo en macro

Rebonjour

J'ai ceci qui ferait mon affaire même si ce n'est pas une photo mais comment rendre les cells variable:

Sheets("Dessin carton").Select
ActiveSheet.Shapes("Image 2").Select
Selection.Formula = "Dessins!F52:AA68"
Selection.Formula = ""

J'aimerais qu'il regarde de "F" & Activecell.row : "AA" & Activecell.row + 12

Merci beaucoup

Temjeh

 

[Temjeh]

Re : Appareil photo en macro

Merci Pierrot mais il y a erreur (code reste rouge dans VB)

J'ai lu sur d'autre post que c'est ptêtre impossible appareil ...macro

Alors de l'aide juste sur mon Selection.Formula = "Dessins!F52:AA68" serait cool
A+

Temjeh

 

[Softmama]

Re : Appareil photo en macro

bonjour,

comme ceci :

Selection.Formula = "Dessins!F" & ActiveCell.Row & ":AA" & ActiveCell.Row + 16

 

[Temjeh]

Re : Appareil photo en macro

Merci beaucoup mais je ne comprend plus rien (Merci pour le dernier code il n'y a plus de bug)

Plus rien ne fonctionne!
Si vous avez une idée (GRRRR) ce que je cherche avec ma plage variable est:
La copier
Sur autre feuille la coller en image mais cette image remplace la "Image 2" qui est bien placée pour le print


Désolé si je ne suis pas assez clair

Temjeh

 

[Temjeh]

Re : Appareil photo en macro

Ok merci beaucoup c'est parfait j'avais mal fait

Good j'adapte le tout

Temjeh