Discussion :

[alpilon]

Bonsoir

Voila je n'arrive pas à copier cette première cellule sur la premiere ligne vide de Wbk2
Il me copie la cellule dans le bonne colonne mais sur la ligne 5160 alors qu'il n'y a rien entre cette ligne et la deuxième !?
Qu'est-ce qui cloche ? dois-je mettre un Target quelque part ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Copy_Tab()
Dim chem1 As String
Dim Wbk1 As Workbook
Dim Wbk2 As Workbook
Dim Derlig1 As Long
 
chem1 = Application.GetOpenFilename
Derlig1 = Cells.Find("*", , , , , xlPrevious).Row
 
    Set Wbk1 = ThisWorkbook
    Set Wbk2 = Workbooks.Open(Filename:=chem1)
        Wbk1.Worksheets("AMANDA").Range("B1").Copy Destination:=Wbk2.Worksheets("Feuil1").Range("B" & Derlig1 + 1)
 
End Sub

Merci de votre aide

[jfontaine]

Bonjour,

Juste une idée,

dans ton code,tu ne spécifies pas la feuille, du coup il ne cherche peut etre pas sur le bon onglet

Code :

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

Derlig1 = Cells.Find("*", , , , , xlPrevious).Row

Essaie comme ca

Code :

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

Derlig1 = Wbk2.Sheets("nomFeuille").Cells.Find("*", , , , , xlPrevious).Row

NB : pas testé le code, mais c'est dans l'idée

[alpilon]

Bonsoir jfontaine

C'est nickel chrome

Voici le code Résolu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Copy_Tab()
Dim chem1 As String
Dim Wbk1 As Workbook
Dim Wbk2 As Workbook
Dim Derlig1 As Long
 
chem1 = Application.GetOpenFilename
 
    Set Wbk1 = ThisWorkbook
    Set Wbk2 = Workbooks.Open(Filename:=chem1)
    Derlig1 = Wbk2.Worksheets("Feuil1").Cells.Find("*", , , , , xlPrevious).Row
        Wbk1.Worksheets("AMANDA").Range("B1").Copy Destination:=Wbk2.Worksheets("Feuil1").Range("B" & Derlig1 + 1)
 
End Sub

Bonne soirée et merci