Discussion :

[arnold1807]

Bonjour à toutes et à tous

C'est la première fois que je poste un message alors je vais essayer d'être le plus précis possible.

J’ai 2 fichiers, un catalogue produit et un fichier de suivi des références, qui reprend toutes les lignes du catalogue, en triant les produits en fonction du code produit et de la date de publication du catalogue (par exemple, le produit « 180787 » aura 5 lignes à la suite, une par édition du catalogue).
Dans les 2 fichiers, les produits sont nommés sous la même réf.
Le but de ma démarche est de copier-coller les lignes du catalogue et de les insérer à la suite des produits qui sont déjà dans le fichier de suivi des références, et pour les références qui sont nouvelles à la première ligne vide du fichier.

Débutant sur VBA (c’est que ma 4ème macro) grâce à ce forum, j’ai réalisé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Option Explicit
 
Sub ImportDonnéesFromFABDISToSuiviRefs()
 
'Declaration des variables
 
Dim CATALOG As Workbook
Dim COMMERCE As Worksheet
Dim Code_article As Worksheet
Dim Chemin CATALOG As String
Dim REFCIALE As Range
Dim REFARTICLE As Range
 
Dim SuiviRefs As Workbook
Dim Total_pro As Worksheet
Dim CheminSuiviRefs As String
Dim Code_article1 As Range
 
'initialisation des variables
 
Set CATALOG = ThisWorkbook
Set COMMERCE = CATALOG.Sheets("01_COMMERCE")
Set Code_article = CATALOG.Sheets("Code_article")
Chemin CATALOG = "D:\arnold\Documents\Macro\Nouveau dossier\"
Set REFCIALE = CATALOG.Sheets("Code_article").Columns("A").Offset(1, 0)
Do While REFCIALE <> ""
Set REFARTICLE = CATALOG.Sheets("01_COMMERCE").Columns("E:E").Range
 
CheminSuiviRefs = "D:\arnold\Documents\Macro\Nouveau dossier\"
Set SuiviRefs = Workbooks.Open("D:\arnold\Documents\Macro\Nouveau dossier\") & "\" & "Suivireférences.xlsm"
Set Total_pro = SuiviRefs.Sheets("Total_pro")
Set Code_article1 = SuiviRefs.Sheets("Total_pro").Columns("C:C").Offset(1, 0)
 
'Début de la macro
 
Set REFARTICLE = Code_article1.Find(what:=REFCIALE, after:=Range("C3"), searchorder:=xlByColumns, searchdirection:=xlPrevious)
 
If REFARTICLE = Code_article1.Find(what:=REFCIALE, after:=Range("C3"), searchorder:=xlByColumns, searchdirection:=xlPrevious) Then
 
Sheets("01_COMMERCE").Range("E").End(xlToRight).Row.Select
Selection.Copy
 
    If REFARTICLE = Code_article1.Find(what:=REFCIALE, after:=Range("C3"), searchorder:=xlByColumns, searchdirection:=xlPrevious) Then
 
    Selection.Insert shift:=xlDown
 
    Else
 
    MsgBox "1+1"
 
    End If
 
End If
 
Loop
 
End Sub

En exécutant le code le message suivant apparait « Erreur d'exécution '1004' : Erreur définie par l'application ou par l'objet », j’ai beau lire toutes les explications, je ne comprends absolument pas.

Si vous comprenez ce qui se passe je suis preneur

Merci beaucoup