Bonjour,
J'ai un souci de macro, je ne comprends absolument pas ce qu'il se passe. J'ai créée une macro qui a pour but d'importer des données d'un fichier à un autre. Elle marchait très bien jusqu'à présent, et là, plus rien. Elle bug apparemment au niveau de la ligne surlignée ci-dessous. Si vous pouviez m'aider..
Merci
Sub ImporterAttributs()
Dim i As Integer
Dim j As Integer
Dim LastRowA As Integer
Dim LastRowS As Integer
LastRowA = ThisWorkbook.Worksheets("Actuel").Range("A65536").End(xlUp).Row
Application.Workbooks.Open "C:\Users\mnino\Desktop\POST_SV3.xlsx"
LastRowS = Workbooks("POST_SV3").Worksheets("PROD + Pré-renta").Range("A65536").End(xlUp).Row
For i = 5 To LastRowA
For j = 3 To LastRowS
If ThisWorkbook.Sheets("Actuel").Cells(i, 4).Value = Workbooks("POST_SV3").Sheets("PROD + Pré-renta").Cells(j, 2).Value Then
'Type of Products
Workbooks("POST_SV3").Sheets("PROD + Pré-renta").Activate
Cells(j, 1).Select
Selection.Copy
ThisWorkbook.Sheets("Actuel").Activate
Cells(i, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Item Name
Workbooks("POST_SV3").Sheets("PROD + Pré-renta").Activate
Cells(j, 3).Select
Selection.Copy
ThisWorkbook.Sheets("Actuel").Activate
Cells(i, 6).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exit For
End If
Next j
Next i
End Sub