Bonjour,
Grâce à Hasco j’ai pu résoudre mes problèmes de ComboBox et ListBox. Qu’il en soit remercié ici.
Prochain challenge pour moi comparer la liste des clients stockée dans le premier fichier (en jaune)
https://www.excel-pratique.com/~files/doc/test_remplissage_listbox3.xls
avec celle de référence qui sera stockée dans un second fichier (en vert dans le fichier suivant)
https://www.excel-pratique.com/~files/doc/test_liste_reference_clients.xls
sur un serveur à un endroit précis et tenu à jour par une personne unique.
Je souhaiterais donc :
- pouvoir aller charger le second fichier à partir du premier
- qu’une comparaison soit effectuée entre les contenus respectifs des 3 colonnes
- qu’un message d’alerte soit généré :
o si pas de différences = OK
o si différences = « voulez-vous mettre à jour la liste sur votre fichier local ? »
Pour l’ouverture du fichier j’ai trouvé une macro qui pourrait faire l’affaire (elle aura par contre besoin d’être complétée et je ne sais pas comment; voir ci-dessous). Par contre pour les deux autres fonctions je sèche.
Merci d’avance pour vos lumières,
Pierre
Private Sub btn_OpenFile_Click()
Dim lsOpenFileName As String
Dim Wsht As Worksheet
Dim SLookfor As String
Dim SFoundIt As String
Dim lsOrinalWorkbookName As String
Dim basebook As Workbook
Dim mybook As Workbook
lsOrinalWorkbookName = ThisWorkbook.Name
lsOpenFileName = RetrieveFileName
Set basebook = ThisWorkbook
If Trim(lsOpenFileName) = "" Then
Exit Sub
Else
Application.ScreenUpdating = False
Workbooks.Open Filename:=lsOpenFileName