copier un objet

Le
Bonjour

A ce jour je copié de la manière comme ci-dessous

Sheets("feuil1").Select
ActiveSheet.Shapes("Image 6").Select
Selection.Copy

Sheets("feuil2").Select
Range("I42").Select
ActiveSheet.Paste

Auriez vous une manière plus orthodoxe à me soumettre et qui me permettrais
d'eviter les erreurs du type (si la feuille est masquée)

Merci par avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Hervé
Le #21168201
Bonjour,

Evite de sélectionner les feuilles et cellules (d'où l'erreur si elles sont
cachées). Une sélection n'est pas utile pour inscrire des valeurs ou faire
des collages et bien d'autres choses encore :

Sheets("feuil1").Shapes("Image 6").Copy
Sheets("feuil2").Range("I42").PasteSpecial

Hervé.


a écrit dans le message de
news:
Bonjour

A ce jour je copié de la manière comme ci-dessous

Sheets("feuil1").Select
ActiveSheet.Shapes("Image 6").Select
Selection.Copy

Sheets("feuil2").Select
Range("I42").Select
ActiveSheet.Paste

Auriez vous une manière plus orthodoxe à me soumettre et qui me
permettrais d'eviter les erreurs du type (si la feuille est masquée)

Merci par avance



Publicité
Poster une réponse
Anonyme