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
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