Résolu macro copier coller

[aude2111]

Bonjour
jai 2 fichiers excel comment peut t'on faire une macro en vba copier coller qui me permet de copier les colonne A B C D de ma feuille 4 du ficher 1 et qui le colle dans le fichier 2 dans la colonne H I J
merci de votre aide

 

[aude2111]

Sub Tb()

Dim Numero_Police As Range 'base sinistre
Dim Numero_Contrat As Range 'tableau de bord
Dim dernligne, dernligne2 As Long

    With Worksheets("TCT")
        dernligne2 = .Range("A" & .Rows.Count).End(xlUp).Row
        Set Numero_Contrat = .Range("B3:B" & dernligne2)
    End With

    With Worksheets("Sinistre")
        dernligne = .Range("A" & .Rows.Count).End(xlUp).Row
        Set Numero_Police = .Range("A2:A" & dernligne)
    End With
    
    For i = 2 To dernligne 'base sinistre
        For j = 3 To dernligne2 'tdb
            If Worksheets("Sinistre").Cells(i, 1).Value = Worksheets("TCT").Cells(j, 2).Value Then
            'effectuer les macros
            'voir si on peut faire appel a une macro
            End If
        Next j
    Next i
    
    ' L’instruction pour copier coller une feuille est
    Worksheets("Sinistre").Sheets("Feuil4").Range("A2:F2").Copy 'copier la colonne A B C D E F de la feuille 4 du fichier sinistre
    Worksheets("TCT").Range("AI2:AN2").Paste 'coller dans la feuille Tct


End Sub

 

[drul]

Salut:
Worksheets("Sinistre").Sheets("Feuil4"), petit problème structurel, une "sheet" ne contient pas de "sheet"

Range("A:F") représente les colonnes entières

La méthode copy est de préférence à utiliser de la manière suivante:
source.copy destination
afin de ne pas utiliser le presse papier

 

[aude2111]

comment faire du coup si je veux la feuille 4 du fichier sinistre

 

[drul]

il est ouvert le fichier sinistre ?
mais ce sera:

 workbooks("sinistre").sheets(4).range(A:F).copy thisworkbook.Sheets("TCT").range("AI:AN")

N.B. quand on travail avec plusieurs workbook, il est fortement de TOUJOURS spécifié lequel on utilise !