Erreur de Select Range dans MACRO

bonjour Loup,

est que la macro est exécuté par un click sur un bouton ?

isabelle

Bonjour,

Voici une partie de ma macro :

Windows("DEVIS COMPLET.xls").Activate
Range("E67:J76").Select
Selection.Copy
Windows("Envoi.xls").Activate

Ensuite la ou je plante c'est sur le COLLER :
Methode 1 :
Sheets("Devis").Select
Range("E3").Select
Selection.PasteSpecial Paste:=xlValues,Operation:=xlNone,
SkipBlanks:= False, Transpose:úlse
==> il m'indique un erreur 1004
La méthode Select de la classe Range a échoué

J'ai trouvé sur Google une autre méthode :
Méthode 2 :

Sheets("Devis").Range("E3").Selection.PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:úlse, _
Transpose:úlse
==> il m'indique une erreur 438

Pourquoi cela ne veut pas marcher ??? snifff...
Merci de votre aide !!!

Oui, la macro est exécutée par un clic de bouton.
En quoi cela gêne ?

-----Message d'origine-----
bonjour Loup,

est que la macro est exécuté par un click sur un bouton ?

isabelle

Bonjour,

Voici une partie de ma macro :

Windows("DEVIS COMPLET.xls").Activate
Range("E67:J76").Select
Selection.Copy
Windows("Envoi.xls").Activate

Ensuite la ou je plante c'est sur le COLLER :
Methode 1 :
Sheets("Devis").Select
Range("E3").Select
Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone,

SkipBlanks:= False, Transpose:=False
==> il m'indique un erreur 1004
La méthode Select de la classe Range a échoué

J'ai trouvé sur Google une autre méthode :
Méthode 2 :

Sheets("Devis").Range("E3").Selection.PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
==> il m'indique une erreur 438

Pourquoi cela ne veut pas marcher ??? snifff...
Merci de votre aide !!!
.

si ce bouton provient de la barre d'outils contrôle, mais sa propriété
TakeFocusOnClick à false.

isabelle

Oui, la macro est exécutée par un clic de bouton.
En quoi cela gêne ?

-----Message d'origine-----
bonjour Loup,

est que la macro est exécuté par un click sur un bouton ?

isabelle

Bonjour,

Voici une partie de ma macro :

Windows("DEVIS COMPLET.xls").Activate
Range("E67:J76").Select
Selection.Copy
Windows("Envoi.xls").Activate

Ensuite la ou je plante c'est sur le COLLER :
Methode 1 :
Sheets("Devis").Select
Range("E3").Select
Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone,

SkipBlanks:= False, Transpose:úlse
==> il m'indique un erreur 1004
La méthode Select de la classe Range a échoué

J'ai trouvé sur Google une autre méthode :
Méthode 2 :

Sheets("Devis").Range("E3").Selection.PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:úlse, _
Transpose:úlse
==> il m'indique une erreur 438

Pourquoi cela ne veut pas marcher ??? snifff...
Merci de votre aide !!!
.

Merci pour ta réponse.
J'ai essayé puis retester avec les 2 méthodes mais
je tombe toujours sur les même erreur... ;(
Une autre idée ?

-----Message d'origine-----
si ce bouton provient de la barre d'outils contrôle, mais
sa propriété

TakeFocusOnClick à false.

isabelle

Oui, la macro est exécutée par un clic de bouton.
En quoi cela gêne ?

-----Message d'origine-----
bonjour Loup,

est que la macro est exécuté par un click sur un
bouton ?

isabelle

Bonjour,

Voici une partie de ma macro :

Windows("DEVIS COMPLET.xls").Activate
Range("E67:J76").Select
Selection.Copy
Windows("Envoi.xls").Activate

Ensuite la ou je plante c'est sur le COLLER :
Methode 1 :
Sheets("Devis").Select
Range("E3").Select
Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone,

SkipBlanks:= False, Transpose:=False
==> il m'indique un erreur 1004
La méthode Select de la classe Range a échoué

J'ai trouvé sur Google une autre méthode :
Méthode 2 :

Sheets("Devis").Range("E3").Selection.PasteSpecial _
Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, _

Transpose:=False
==> il m'indique une erreur 438

Pourquoi cela ne veut pas marcher ??? snifff...
Merci de votre aide !!!
.

.

bonjour Loup,

L'erreur 1004 signale l'impossibilité pour Excel d'exécuter une action
qui lui
est demandée. Il n'y a pas d'erreur de programmation (donc ça compile
sans
problème), plutôt une erreur due à une imprécision dans l'utilisation
des
objets, si bien qu'Excel essaye d'exécuter une action sur un objet qui
n'a pas
les méthodes ou propriétés nécessaires pour ça.
Un exemple classique est le lancement d'une macro par un CommandButton
dont la
propriété TakeFocusOnClick a la valeur True (en particulier avec Excel
97).
Le clic sur le bouton en fait l'objet actif et il le reste avec cette
propriété
à True. Si la macro cherche ensuite à agir sur un objet de la feuille de
calcul
sous-jacente sans lui avoir rendu le focus -> erreur 1004. Ça pourrait
être le
cas dans le code avec l'instruction. (Frédéric Sigonneau)

isabelle

Merci pour ta réponse.
J'ai essayé puis retester avec les 2 méthodes mais
je tombe toujours sur les même erreur... ;(
Une autre idée ?

-----Message d'origine-----
si ce bouton provient de la barre d'outils contrôle, mais
sa propriété

TakeFocusOnClick à false.

isabelle

Oui, la macro est exécutée par un clic de bouton.
En quoi cela gêne ?

-----Message d'origine-----
bonjour Loup,

est que la macro est exécuté par un click sur un
bouton ?

isabelle

Bonjour,

Voici une partie de ma macro :

Windows("DEVIS COMPLET.xls").Activate
Range("E67:J76").Select
Selection.Copy
Windows("Envoi.xls").Activate

Ensuite la ou je plante c'est sur le COLLER :
Methode 1 :
Sheets("Devis").Select
Range("E3").Select
Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone,

SkipBlanks:= False, Transpose:úlse
==> il m'indique un erreur 1004
La méthode Select de la classe Range a échoué

J'ai trouvé sur Google une autre méthode :
Méthode 2 :

Sheets("Devis").Range("E3").Selection.PasteSpecial _
Paste:=xlValues, Operation:=xlNone,
SkipBlanks:úlse, _

Transpose:úlse
==> il m'indique une erreur 438

Pourquoi cela ne veut pas marcher ??? snifff...
Merci de votre aide !!!
.

.