Macro select copy probleme

[MARIE74]

Bonjour a toutes et a tous
Météo beau soleil 18° mais a cette heure il fait nuit

Petit souci avec cette macro

J'ai le massage erreure 1004
La methode select de la classe range a echoué

Pourquoi SVP je ne sai pas

Voila la macro:

Private Sub CommandButton1_Click()
'
' MAJRPTSDOUBLE Macro
' Macro enregistrée le 07/11/2006 par BK
'

'
Windows("RPTS2f05 .xls").Activate
Range("D821").Select
Selection.Copy
Windows("TF TRAP E MAIL .xls").Activate
ActiveWindow.SmallScroll Down:=9
Range("E27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub



D'avance Merci MARIE

 

[michel_m]

Re : Macro select copy probleme

Bonsoir Marie

dans:
Range("D821").Select

ne manque t il pas la lettre de la colonne devant 21?

Bonne soirée

 

[Dan]

Re : Macro select copy probleme

Bonsoir,

Je t'ai modifé le code comme suit :

Windows("RPTS2f05 .xls").Activate
sheets("nom de ta feuille").Range("D8 : D21").Copy
Windows("TF TRAP E MAIL .xls").Activate
Sheets("nom de ta feuille").Range("E27").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

vérifie :
- qu'il n'ya pas d'espace entre le .xls et le nom de ton fichier
- il te faut le nom de ta feuille devant les instructions "Range..." --> exemple : sheets("tata").Range("D8 : D21").Copy

NB : j'ai mis des espaces avant et après les ":" ; supprime les dans ta macro.

A te lire

 

[MARIE74]

Re : Macro select copy probleme

Bonjour a toute et a tous
Météo -1° ciel bleu (région megeve 74)


Merci a DAN et michel_m



Bonne journée

 

[MARIE74]

Re : Macro select copy probleme

Re a toutes et a tous


Petit probleme DAN et michel_m

Lorsque le classeur RPTS2F05 est fermé la macro ne fonctionne pas ??

SVP Merci de votre aide

la macro

Private Sub CommandButton1_Click()
'
' MAJRPTSDOUBLE Macro
' Macro enregistrée le 07/11/2006 par BK
'


Windows("RPTS2f05 .xls").Activate
Sheets("Tarif Euro").Range("D8 : D21").Copy
Windows("TF TRAP E MAIL .xls").Activate
Sheets("Double Filet").Range("E27").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub


Le debogueur met en jaune la premier ligne mais aucune indication d'erreur


D'avance Merci

 

[RICO1972]

Re : Macro select copy probleme

Salut MARIE74:


Private Sub CommandButton1_Click()
'
' MAJRPTSDOUBLE Macro
' Macro enregistrée le 07/11/2006 par BK
'
Workbooks.Open Filename:="C:\xxxx\RPTS2f05 .xls.xls"

' il faut remplacer xxxxxx par le chemin complet

Windows("RPTS2f05 .xls").Activate
Sheets("Tarif Euro").Range("D8 : D21").Copy
Windows("TF TRAP E MAIL .xls").Activate
Sheets("Double Filet").Range("E27").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

@+
RICO

 

[MARIE74]

Re : Macro select copy probleme

Re a tous

Mreci RICO1972 je test et et tient au courant


A+