copie de cellule

[Manporta]

Bonjour et meilleurs voeux à tous,

Soit avec 2013, je fatigue ou je deviens vieux, mais je cherche un petit bout.(pas celui que vous pensez.)

Sub Macro1()

tmois = Range("a1") 'je dénomine le mois
tbureau = Range("b1") ' je dénomine le site

tselection = range(("A6")&("range("g65536").End(xlup).offset(0,1)) 'je dénomine la plage a copier, qui est de A6 à H en rapport la derniere cellule non vide de G

J'ai une erreur pour "Tselection"
Workbooks.Open Filename:="truc1" & tbureau & "truc2.xls"
Sheets("tmois").Range("tselection").Copy

End Sub

un œil exercé pourrait m'aider.

Merci

 

[JCGL]

Re : copie de cellule

Bonjour à tous,

Sous réserve...
Peux-tu essayer ceci :

Sub Macro1()
tmois = Range("a1") 'je dénomine le mois
tbureau = Range("b1") ' je dénomine le site
tselection = Range("A6:H") & Range("G65536").End(xlUp).Row 
Workbooks.Open Filename:="truc1" & tbureau & "truc2.xls"
Sheets("tmois").Range("tselection").Copy
End Sub

A + à tous

 

[Manporta]

Re : copie de cellule

JCGL,
Merci pour ta réponse

tselection = Range("A6:H") & Range("G65536").End(xlUp).off 'je dénomine la plage a copier, qui est de A6 à H en rapport à la derniere cellule non vide de G

erreur '1004'
la méthode 'Range' de l'objet'_Global à échoué

j'ai pensé à ca mais ça fonctionne pas non plus

tselection = Range("A6:g") & Range("G65536").End(xlUp).Offset(0, 1) 'je dénomine la plage a copier, qui est de A6 à H en rapport à la derniere cellule non vide de G

Une autre idée peut etre

 

[JCGL]

Re : copie de cellule

Bonjour à tous,

Où ai-je écrit .off ?

A + à tous

 

[Manporta]

Re : copie de cellule

JCGL,
Toutes mes excuses, j'ai testé ta suggestion, comme tu me l'a suggeré. malheureusement en retour j'ai fait une mauvaise manipulation
j'ai testé
tselection = Range("A6:H") & Range("G65536").End(xlUp).Row

erreur '1004'
la méthode 'Range' de l'objet'_Global à échoué

un bout de code a été collé en même temps, j'essayai autre chose
J’ai plus d'idée, un indice???

Merci à vous

 

[JCGL]

Re : copie de cellule

Bonjour à tous,

Peux-tu essayer :

Range("A6:H" & Range("G65536").End(xlUp).Row)

A + à tous

 

[Manporta]

Re : copie de cellule

JCGL,
merci pour ta patience.
J'ai testé
Sub Macro1()
tmois = Range("a1") 'je dénomine le mois
tbureau = Range("b1") ' je dénomine le site
tselection = Range("A6:H" & Range("G65536").End(xlUp).Row) 'je dénomine la plage a copier, qui est de A6 à H en rapport à la derniere cellule non vide de G
Workbooks.Open Filename:="H:\" & tbureau & ".xls"
Range("tselection").Copy
End Sub

Resultat: erreur '1004'
la méthode 'Range' de l'objet'_Global à échoué

 

[JCGL]

Re : copie de cellule

Bonjour à tous,

Faire un test en cliquant sur le GO...
Tu verras que la plage est bien sélectionnée.

A + à tous

 

[Manporta]

Re : copie de cellule résolu

JCGL,
Merci tout fonctionne.
bonne soirée