Discussion :

[Eiselk]

Recoucou, j'énonce mon 2ème problème qui est +- réglé, mais il me manque une ou deux infos.

Voilà j'explique donc ça , j'ai besoin qu'il vienne copier une sélection d'un classeur, dans la sheet d'un autre puis sauvegarder > fermer.

Voici le code que j'ai fais,

Sub VisuserviceT()
'
' VisuserviceT Macro
'
Range("I102:Z117").Select
Selection.Copy
Workbooks.Open Filename:= _
"****"
Sheets("Rst").Select
Range("D1:U15").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Donc dans l'ensemble ça fait ce que je voudrais, mais cette sheet là va venir récupérer ce bloc là à chaque fois (qui sera différent donc) et je voudrais que ça check la/les lignes pour venir coller une fois qu'il y a de la place à la ligne suivante, des idées?
Je suppose que l'idéal serait de faire la séléction en elle même (l'a délimitée) puis de venir check de ligne par ligne pour coller la sélection? Dites moi si je me gourres d'idées.

EDIT : Je viens de tester, et j'ai rajouter ça, il me manque encore un petit truc pour revenir à la ligne et le copier à la bonne colonne-ligne pour bien commencer l'indexation.
Sheets("Rst").Select
Sheets("Rst").Cells(Rows.Count, 1).End(xlUp)(2) = Cells(Rows.Count, 1).End(xlUp)

Merci à vos futures réponses, et de votre aide !
Eiselk

[Menhir]

Je suppose que l'idéal serait de faire la séléction en elle même

Dans la plupart des cas, faire une sélection est inutile en VBA.
Il est préférable d'appliquer directement la Propriété ou la Méthode voulue sur la plage concernée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Source As Range
Set Source = Range("I102:Z117")
Workbooks.Open Filename:="****"
Source.Copy Sheets("Rst").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
ActiveWorkbook.Save
ActiveWorkbook.Close

PS : pour afficher un code, utilise les balises CODE (icone #) et non les balises QUOTE.

[Eiselk]

Tip top, pile ce que je cherchais :o !! Merci bien pour ta rapidité, (sorry pour mes questions bêtes x)) !!