Mise à jour d'un fichier Excel

Bonjour,

J'aimerais bien mettre à jour d'une feuille d'un fichier excel a partir d'un autre feuille d'un autre fichier excel . C'est a dire : comparer les colonnes des deux fichiers et ajouter une modification si la modification a été faite et noter les mise a jour dans une autre feuille .

Bien cordialement

Youssef

Bonjour

Joins ton fichier et on verra ce qu'on peut faire...

Bye !

Bonjour,

J'ai résolu le problème .

Merci Bcp

Sub Update()

Dim x As Integer
Dim i As Integer
Dim j As Integer
Dim nom_fichier As String

nom_fichier = Application.GetOpenFilename("Classeurs Excel(*.xlsx),*.xlsx, Macros complémentaires (*.xla),*.xla")
'If nom_fichier = False Then
 'MsgBox Fichier

nom_fichier = Mid(nom_fichier, InStrRev(nom_fichier, "\") + 1, InStrRev(nom_fichier, ".") - InStrRev(nom_fichier, "\") - 1)
Var_Chemin = nom_fichier
Fichier1 = ActiveWorkbook.Name
Workbooks.Open Var_Chemin, 0, ReadOnly:=False
Fichier2 = ActiveWorkbook.Name

   For i = 3 To 100
        For j = 1 To 100
            If Workbooks(Fichier2).Sheets("WU lifecycle").Cells(i, j).Value <> Workbooks(Fichier1).Sheets("WU lifecycle").Cells(i, j).Value Then
                'Workbooks("Excel1.xlsm").Sheets(1).Range("A" + CStr(i)).Value <> Workbooks("Excel2.xlsm").Sheets(1).Range("A" + CStr(i)).Value Then
                Workbooks(Fichier1).Sheets("WU lifecycle").Activate
                 'Worksheets("Feuil1").Range("A" & CStr(i) & "B" & CStr(i) & "B" & CStr(i)).Select
                Workbooks(Fichier2).Sheets("WU lifecycle").Cells(i, j).Copy (Workbooks(Fichier1).Sheets("WU lifecycle").Cells(i, j))
                Workbooks(Fichier1).Sheets("Report").Select
                Range("A" & i).Value = "line :" & i & " cell : " & j
            End If
        Next j
   Next i

   Workbooks(Fichier1).Sheets("Report").Select
   For x = 3 To 500
   If Range("A" & x) = " " Then
       Range("A" & x).Delete shift:=xlUp
   End If
   Next x

End Sub