Salut,
Voici la macro je te laisse te débrouiller avec car j'ai vraiment peux de temps, la partie cherche fonctionne mal car je sais pas pourquoi le format de date se transforme en format anglais et cherche le format européen.
désolée de pas aidée plus.
Sub Copy_Info_Facture()
Dim Nom As String
Dim Total As Variant
Dim Chemin As String
Dim Dat As Date
Dim rgFound As Range
'Enregistre les valeurs dans des variable
Dat = Range("Date").Value
Dat = Format(Dat, "dd.mm.yyyy")
Nom = Range("NomClient").Value
Total = Range("Montant").Value
Chemin = ThisWorkbook.Path & "\" 'chemin du fichier encour d'utilisation
'Ouvre le fichier Base de donnée
Workbooks.Open Chemin & "Base de donées.xlsx"
' récupère le numéro de la dernière ligne vide dans la colonne A.
Lig = Range("A" & Rows.Count).End(xlUp).Row + 1
If Range("A2") = "" Then Lig = 2
'cherche si date +heure deja exitant
Set rgFound = Range("A1:A1000").Find(Dat, LookAt:=xlWhole)
If rgFound Is Nothing Then
'Copy les valeurs les cellules
Range("A" & Lig) = Format(Now, "dd.mm.yyyy")
Range("B" & Lig) = Nom
Range("C" & Lig) = Total
'Sauvegarde et fermeture
Application.DisplayAlerts = False
Workbooks("Base de donées.xlsx").Save
Workbooks("Base de donées.xlsx").Close
Application.DisplayAlerts = True
'Ecrase la date dans le fichier Facture
Range("Date") = Format(Now, "dd.mm.yyyy")
'Message fin dexecution
MsgBox "Enregistrement terminée"
Else
Debug.Print "Name found in :" & rgFound.Address
Application.DisplayAlerts = False
Workbooks("Base de donées.xlsx").Close
Application.DisplayAlerts = True
MsgBox "Enregistrement déja exitant"
End If
'vidage des variables
Set rgFound = Nothing
End Sub