Discussion :

[geekpok]

J'ai une base de données qui est rempli par les technicien et je souhaite importer cette base de données et ensuite j'ai des macro qui tourne dessus.
Le problème est que j'ai des formule de calculs dans mon fichier à mois qui calcul le prix des pièces en tant réelle donc je ne souhaite pas important la totalité de la base de données à chaque fois mais juste les dernière données.

En gros je souhaite que ma macro regarde ce que j'ai déjà dans mon onglet et compare avec l'onglet dans le fichier des technicien les données et m'importe juste ceux que je n'ai pas.
Sachant que j'ai une colonne avec un ID unique.

J'ai ce début de code mais cela ne fonctionne pas.

La macro ouvre bien le fichier et semble compté mais les nouvelles lignes ne sont pas importé.

Voici mon code actuelle :
Sachant que mon Onglet à importer se nomme "HERIN2" et on importe les nouvelle données dans l'onglet "HERIN".

J'ai surement dû effectuer une erreur dans le code
Merci à toi.

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
Private Sub Importation_Click()
 
Dim derlig As Long, i As Long, dl As Long, maplage As Range
derlig = Range("B" & Rows.Count).End(xlUp).Row
With Sheets("HERIN").Select 'nom de la feuille qu'ouvre ce bouton
    dl = Sheets("HERIN").Range("B" & Rows.Count).End(xlUp).Row
    Set maplage = Sheets("HERIN").Range("B2:B" & dl)
End With
Workbooks.Open Filename:="S:\Repair\INFOS COMMUNES\HERIN 2\HERIN2.xlsm"
Sheets("HERIN2").Select
For i = 2 To derlig
    If Application.WorksheetFunction.CountIf(maplage, Range("B" & i).Value) = 0 Then
        Sheets("HERIN2").Range("B" & dl + 1).Value = Range("B" & i).Value
    End If
Next
End Sub

[Menhir]

Je pense que ton analyse est fausse. A mon avis, chaque fois que tu lances ta macro, il y a insertion d'une seule nouvelle ligne, non ?

Dans ta boucle For, tu n'incrémentes pas la variable dl, ce qui fait que chaque nouvelle insertion de ligne écrase la précédente.

[riaolle]

Bonjour,
Tu t'emmêles les pattes entre les fichiers et avec les Select.
Select/ Activate et Cie => à bannir, car ça entraîne souvent des problèmes (comme ici).
Dans la continuité, tes variables sont tantôt utilisées dans un fichier, tantôt dans l'autre. Par exemple dl : tu le définis comme étant la dernière ligne de HERIN, puis tu l'utilises pour compléter HERIN2.
Regarde aussi comment utiliser With...End With, tu l'utilises mal.

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
Private Sub Importation_Click()
 
Dim dlSynth As Long, i As Long, dlSource As Long, maplage As Range
Dim shSource As Worksheet
Dim shSynthese As Worksheet
 
Workbooks.Open Filename:="S:\Repair\INFOS COMMUNES\HERIN 2\HERIN2.xlsm"
Set shSource = Workbooks("HERIN 2").WorkSheets("HERIN2")
Set shSynthese = ThisWorkbook.WorkSheets("HERIN")
 
dlSynth = shSynthese.Range("B" & Rows.Count).End(xlUp).Row + 1        'première ligne vide du fichier synthèse
dlSource = shSource.Range("B" & Rows.Count).End(xlUp).Row         'dernière ligne du fichier source
 
Set maplage = shSynth.Range("B2:B" & dlSynth)
 
For i = 2 To dlSource             'boucle sur le fichier source
      If Application.WorksheetFunction.CountIf(maplage, shSource.Range("B" & i).Value) = 0 Then        'SOMME.SI pour voir si la valeur du fichier source existe déjà dans le fichier synthèse
            shSynthese.Range("B" & dlSynth).Value = shSource.Range("B" & i).Value          'on recopie la valeur
            dlSynth = dlSynth +1        'on rajoute +1 pour la prochaine valeur à copier (en-dessous)
      End If
Next
End Sub

Est-ce que tu comprends ? Et est-ce que tu vois comment adapter ?

[geekpok]

Je débute donc j'analyse petit à petit mais ca m'a l'air un peu plus clair, merci de ton aide
Par contre lorsqu'il ouvre le fichier source j'ai une erreur d'execution 9

[Menhir]

Par contre lorsqu'il ouvre le fichier source j'ai une erreur d'execution 9

Quelle ligne de code est désignée par le débugage ?

[geekpok]

Voici la ligne en jaune dans le débogage

Code :

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

Set shSource = Workbooks("HERIN2").Worksheets("HERIN2")

[riaolle]

Fais bien attention à tes noms de classeurs et feuilles.
D'après ce que j'ai compris, ton classeur s'appelle HERIN 2 (avec un espace), alors que ta feuille s'appelle HERIN2 (sans espace). Il faut que tout soit cohérent avec ton code.