Bonjour Max, le Forum
Tu ne m'embêtes pas, pas de souci si je peux t'aider, c'est volontier ! Tu es sympa et poli.
Pour :
c'est pour tout les années en cours.
Ben c'est ce que tu avais demandé il me semble :
Est-ce possible d'avoir que les données de fichiers dont la date de modification correspond à l'année en cours ?
Dans la v03, pour tester, j'écris une Date en dûr dans le Code :
MyDate = #7/23/2020# '<<< Attention Format Américain MM/DD/YYYY
Et ensuite je filtre comme suit :
If CDate(FileItem.DateLastModified) >= MyDate Then
Pour :
Je pense modifié mon besoin,par un nouveau pour éviter l'erreur "dépassement capacité".
Déclarées en "Long" tu ne devrais plus dépasser... Capacité chiffre entier de -2,147,483,648 à 2,147,483,647 !!! (mais ca risque de prendre des heures LoL !
Pour :
L'idée serai de copier que les derniers fichiers arrivés ( nouveau fichier arrive tout les jours dans le répertoire) et garder les anciens dans mon fichiers excel
Ok la v03 devrait faire ça...
Pour :
Et une autre petite question: dans le tout premier fichier que tu m'avais envoyé qui compte bien les "1" et "2". Je remarque que la macro récupère la dernière colonne du fichier ".ASC", si dans certains fichiers la donnée se trouve dans une autre colonne ( la 2 ème par exemple), quelle info faut-il changer dans la macro?
Humm non, depuis qu'on est passé sur un fichier "structuré ASC, je ne fais plus cette méthode "Instr" sur toute la ligne... En effet tu as des "2" de partout, exemple :
Donc NON !!! Pour modifier la colonne recherchée c'est ici :
Container = Split(Record, Chr(9)) '<<<< CHR(9) = Tabulation
Container(UBound(Container)) = 1 '<<<< Là je cherche la dernière colonne (Ubound)
Mais si tu veux, tu peux chercher dans la colonne
4 par exemple :
Container(Container(
3)) '<<< NB Container est une Array (Tableau simple dimension) en
Base Zéro
Donc 4 = 0,1,2,3...
Voilà, j'espère t'avoir aidé.
Bonne Journée
@+Thierry