Contenu récent par job75

Voici une solution avec le FileSystemObject vous pouvez la tester : Option Explicit Const Feuil1$ = "DOVE" Const Feuil2$ = "Communication" Const col1% = 1 'colonne A Const col2% = 6 'colonne F Const crit1$ = "Véhicule :" Const crit2$ = "Vin :" Const crit3$ = "Battery Identification Number :"...

La méthode Dir stocke en mémoire le répertoire étudié, il est très lourd. Je crois qu'avec la méthode FileSystemObject ce n'est pas le cas, je vais voir.

Bonjour le forum, @dysorthographie l'expression Set wb = Workbooks.Open(chemin & fichier, UpdateLinks:=False, ReadOnly:=True, Notify:=False) ouvre physiquement le fichier. Chez moi l'ouverture et la fermeture du fichier du post #34 prennent 0,6 seconde. Donc l'ouverture et la fermeture de...

Bonsoir à tous, Ce n'est pas nécessaire, le débogage colore en jaune la ligne de code. A+

Deux remarques sur votre code : 1) n'utilisez pas On Error Resume Next, il ne doit pas y avoir d'erreur 2) Vous ne tenez pas compte de ce que j'ai dit au post #15. Donc utilisez ce code : Option Explicit Const Feuil1$ = "DOVE" Const Feuil2$ = "Communication" Const col1% = 1 'colonne A Const...

Bonjour auloin, S'il s'agit d'imprimer les zones orangées filtrez la colonne C par la couleur orange. A+

Bonjour, @wDog66 quand on signale du crossposting la moindre des choses est de mettre le lien pour qu'on aille voir ! A+

L'expression ExecuteExcel4Macro évalue des formules de liaison, elle n'ouvre pas les fichiers. Je note que la variable col2 ne semble pas utilisée dans votre code. Il est bien différent de celui que j'ai donné, je ne le teste pas.

C'est curieux car sur Win 11 Excel 2019 je n'ai pas ce problème. J'ai créé 9000 fichiers .xlsx identiques aux 3 du post #19, la macro s'exécute sans difficulté en 190 secondes (puis 230 secondes).

Bonjour le forum, Avec la solution que j'ai donnée les fichiers .xlsx ne sont jamais ouverts. Tout ce que je peux vous dire c'est qu'avec 6500 fichiers il n'y a pas de message d'erreur mais ça prend déjà beaucoup de temps. A+

Bonjour, Si Janvier est en tête : =SOMME(Janvier:Mars!A6) A+

Bonjour, Bien sûr il faut faire attention à la casse et écrire : If UCase(Worksheets("Feuil1").Range("E18")) = "OUI" Then A+

Bonjour le forum, NON. Il y a eu un autre fil avec une macro Worksheet_BeforeDoubleClik, pourquoi ne pas l'utiliser ? A+

Montre nous le fichier où tu es gêné.

Bonjour nabilexcel2007, Rappel de la Charte du forum : A+