Gestion de flotte vehicule
Bonjour à tous,
J'écris ce message car je rencontre un problème avec un fichier EXCEL sur lequel j'aurais besoin de faire une analyse et je ne sais pas comment m'y prendre.
En effet, mon tableau se construit comme suit (Je vous joint un exemple):
Colonne A : Date
Colonne A : Immatriculation
Colonne A : Kilométrage
Je souhaiterais obtenir dans un tableau récapitulatif m'indiquant le dernier kilométrage saisie par immatriculation.
Immatriculation - Date - Kilométrage
AB-001-AB - 19/03/2020 - 3065
EB-002-AB - 17/12/2019 - 59367
EJ-004-AB - 03/01/2020 - 17238
FG-003-AB - 11/03/2020 - 52735
Je vous remercie par avance pour vos aides/retours,
Stymzup
Bonjour Pierre,
Merci pour ta solution, le fait est que le fichier que j'ai envoyé est un très gros récapitulatif de l'original qi possède plus de 40k lignes (Et ne va faire qu'augmenter drastiquement avec le temps) et au vu des performances de mon PC il serait compliqué d'ouvrir le fichier et lancer la macro.
Existerait-il une ou plusieurs fonctions avancées de type formule de calcul qui pourrait faire exactement ce résultat (Merci encore) mais sans alourdir trop le fichier ?
Merci d'avance pour votre aide,
Bonjour,
Avec le même code dans un nouveau fichier on peut tout à fait interroger un fichier excel externe sans toucher aux données originales.
Voici la modif :
Connect_xls ThisWorkbook.Path & "\KMS VEHICULES.xlsx"Et voici le fichier "d'interrogation" à placer dans le même dossier que le fichier "KMS VEHICULES.xlsx"
Pierre
Edit de 11h00 : avec amélioration requête pour résultats plus justes
Bonjour Pierre,
Merci pour tous ces efforts !
Je t'avoue ne pas m'y connaitre énormément en MACRO.
J'ai bien placé en début de la MACRO :
Connect_xls ThisWorkbook.Path & "\KMS VEHICULES.xlsx"
Mais le fait est que, mon fichier de base possède bien plus de colonnes et je n'arrive pas à adapter ta macro sur le fichier original…
Un erreur ressort à chaque fois.
Je me permets de te joindre les en-tête du fichier original si jamais tu as le temps de regarder
Avec le grand-confinement on a du temps!
Alors voici une version 3, j'ai essayé de simplifier au maximum :
* on place ce nouveau fichier dans le même dossier que celui "à lire"
* on écrit le nom du fichier "à lire" en A1 (au cas ou différent de "KMS VEHICULES.xlsx")
* on écrit le nom de l'onglet "à lire" en C1 (au cas ou différent de "Feuil1")
* il suffit alors de cliquer sur le bouton!
Pierre
C'est vrai qu'il faut tuer le temps
Malheureusement l'erreur suivante s'affiche :
[Microsoft][Pilote ODBC Excel]Erreur générale Impossible d'ouvrir la clé de registe "Temporary (volatile) Ace DNS for process 0x3d20 Thread 0cde8 DBCX 0c22971034
Lorsque je clic sur le débogage, voici ce qui est surligné dans Visual Basics :
Cnx.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
"DBQ=" & Ndf & "; ReadOnly=False;"
J'ai bien respecté les process suivants :
* Placer le nouveau fichier dans le même dossier que celui "à lire"
* Ecrire le nom du fichier "à lire" en A1
* Ecrire le nom de l'onglet "à lire" en C1
Probablement pb de configuration.
Tout fermer, éventuellement redémarrer Windows, ouvrir uniquement le fichier démo (sans le fichier de données)
Si toujours erreur, je ne peux rien faire.
Pierre
Ps : fonctionne sous PC Windows 10 64 bits + Office 2016 32 bits
et PC Windows 10 32 bits + Office 2007 32 bits
Bonjour Pierre,
j'ai redémarré le PC et tout fonctionne, j'ai quelques valeurs étranges et quelques unes en doublon mais peut-importe je m'en accommoderai, c'est bien mieux que rien du tout !
Je te remercie encore pour ton temps et aide sur le sujet!
Bonjour,
Pour les données "en doublon" il faut vérifier que certaines données saisies ne contiennent pas d'espaces inutiles, par exemple la valeur 'AB-001-AB' n'est pas égale à 'AB-001-AB ' (cf espace à la fin)
Pour les "valeurs étranges", si ce sont des dates, il suffit de formater la colonne réceptrice au format adéquat
Pierre