Importer seulement les nouvelles données.

[geekpok]

Bonjour,

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.

Merci

 

[fanfan38]

Bonjour
Un fichier est TOUJOURS le bienvenu...
Y a t'il une référence unique genre ID, Noms, etc?
A+ François

 

[geekpok]

Désolé mais il y a pas mal de données a masquer pour le rendre plus neutre.
Alors l'onglet à importer se nomme HERIN et il il a une colonne nommé CaseID avec un numéro unique. c'est par rapport à cela qu'il faut vérifier si le ligne est déjà existante.
Je te rajoute le fichier en pièce jointe

 

[fanfan38]

Ci joint ma solution
A+ François

 

[geekpok]

Merci beaucoup mais je ne vois pas comment vous avez fait je vois pas de VBA ou Macro.
Comment puis je le remettre dans mon fichier de base

 

[geekpok]

J'ai trouvé le code merci je regarde et je vous redis

 

[geekpok]

Pour que je test avec mon fichier le problème est que ma source est dans un autre fichier excel est ce que le code comme il est va fonctionner ou il faut rajouter une ligne du faite que je vais ouvrir un fichier à un endroit et ensuite je copie les données manquantes

 

[fanfan38]

Bonjour
ci joint la macro modifiée qui doit être sur ta feuille

Private Sub CommandButton1_Click()
  Dim derlig As Long, i As Long, dl As Long, maplage As Range
  derlig = Range("A" & Rows.Count).End(xlUp).Row
  With Sheets("Feuil1").Select 'nom de la feuille qu'ouvre ce bouton
  dl = .Range("A" & Rows.Count).End(xlUp).Row
   Set maplage = .Range("A2:A" & dl)
  End With
  Workbooks.Open Filename:="F:\Documents\nomdufichier.xlsx"
 Sheets("HERIN").Select 
  For i = 2 To derlig
    If Application.WorksheetFunction.CountIf(maplage, Range("A" & i).Value) = 0 Then
     Sheets("Feuil1").Range("A" & dl + 1).Value = Range("A" & i).Value
    End If
  Next
End Sub

A+ François

 

[geekpok]

Bonjour François j'ai modifié la Macro pour l'adapté à mon fichier 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 du effectuer une erreur dans le code
Merci à toi.

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

 

[fanfan38]

Bonjour
Ci joint la macro simplifiée et modifiée....

Private Sub CommandButton1_Click()
  Dim derlig As Long, i As Long, dl As Long, maplage As Range
  Workbooks.Open Filename:="S:\Repair\INFOS COMMUNES\HERIN 2\HERIN2.xlsm"
  derlig = Sheets("HERIN2").Range("B" & Rows.Count).End(xlUp).Row
  dl = Sheets("HERIN").Range("B" & Rows.Count).End(xlUp).Row
  Set maplage = Sheets("HERIN").Range("B2:B" & dl)
  For i = 2 To derlig
   If Application.WorksheetFunction.CountIf(maplage, Sheets("HERIN2").Range("B" & i).Value) = 0 Then
     dl = dl + 1
     Sheets("HERIN").Range("B" & dl).Value = Sheets("HERIN2").Range("B" & i).Value
   End If
  Next
end sub

A+ François

 

[geekpok]

Merci bcp à toi
j'ai cette erreur lorsque le fichier d'importation s'ouvre

 

[fanfan38]

Tu te mets sur la feuille HERIN (normalement c'est là qu'est le bouton)
Ensuite tu vas sur la macro
tu appuies sur f8 autant de fois que nécessaire
pour avoir le message d'erreur et tu me dis quelle ligne est en erreur
A+ François

 

[geekpok]

J'ai cette ligne en jaune

dl = Sheets("HERIN").Range("B" & Rows.Count).End(xlUp).Row

 

[fanfan38]

Ta feuille s'appelle bien HERIN tout en majuscule?
A+ François

 

[geekpok]

LA nouvelle feuille sur laquelle j'importe les données se nomme bien HERIN et celle source HERIN2