Résultats de la recherche

Bonjour Milan, Peut être comme ceci. Sub Macro1() Columns("A:A").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$A$7").AutoFilter Field:=1, Criteria1:="<>*E*", _ Operator:=xlAnd End Sub

Bonjour Don Julio, Oui je l'avais vu, mon problème est que j'additionne les quantités de toutes les référeces et les compare à la quantité par palette. Donc pour F = 36 pour une quantité par palette de 20 donc je regroupe pas alors que je pourrais regrouper A11 et A13. Je regarde comment je...

Bonsoir Don Julio, Voici ton fichier en retour. Affiche cases à transérer en M et quantité en N @+

Bonjour Moon, chez moi les 4 tableaux sont bien imprimés. @+

Pardon Staple, je n'avais pas rafraichi la page. Mais comme je le dis dans mon post précédent, je vais redérouler tout le module et ton astuce de Msgbox va m'être très utile. Merci à toi. @+

Bonsoir à vous deux, Jean-Claude c'est une erreur de frappe, je corrige le commentaire. Lone, tu as raison entre le moment où j'ai commencé à écrire ce code, il y a plusieurs années, il y a des choses incohérentes. Je vais reprendre tout le déroulé. Je reviens vers vous. Merci de votre aide. @+

Bonjour à toutes et à tous, J'ai un module qui créé un dossier et sous dossier si il(s) n'existent pas. Pour certains il me donne une erreur à la création du sous répertoire avec message : " Chemin d'accès introuvable erreur 76" alors que le module est identique pour tous les fichiers. Voici...

Oups, pardon Job je n'avais pas vue la ligne Merci

Bonjour Job, oui je veux exécuter le module 3 de tous les fichiers. Par contre je ne pas exécuter cette partie du code car déjà fait With .VBProject .VBComponents.Remove .VBComponents("Module2") .VBComponents.Import(CheminInitial & "Module2.txt").Name = "Module2"...

bonsoir Job, le forum, Avec votre code j'ai pu modifier la totalité des fichiers (3506). j'essaie maintenant sur le même principe d'exécuter le module 3 sur tous les fichiers. J'ai écrit ceci mas cela ne fonctionne pas. Option Explicit Dim CheminInitial$, fso As Object 'mémorisation des...

Bonjour Job, le forum, Un grand merci Job pour ce code. Cela répond exactement à ce que je voulais. Bonne soirée à vous;) @+

Bonne fin de soirée:(

Re, Oui je comprends bien, mais ce que je veux dire, sf est un dossier qui est dans le chemin et f est un sous dossier de sf dans lequel il y a les fichiers .xls. Dans votre exemple dossier 2 n'est pas un sous dossier de dossier 1 . En tous les cas merci de votre aide, @+

Re, je viens de m'en apercevoir. Il y a un autre soucis, le code boucle bien sur f mais quand c'est terminé il ne remonte pas sur sf, il repart sur f. Merci de votre aide, @+

Bonjour Job, le forum, Un grand merci pour ce code qui fonctionne à merveille. Bonne journée.

Les amis, pas d'idée ?

Bonsoir à toutes et à tous, impossible d'ouvrir le classeur erreur 1004. A noter que par rapport à mon premier post, j'ai rajouté l'ouverture de sous répertoires. Merci de votre aide @+

Bonsoir Stape, j'ai toujours le même message. Il semblerait que cela vienne de la ligne fich = Dir(f2) , si je la supprime le fichier s'ouvre. Merci de ton aide @+

Bonsoir à toutes et à tous, J'ai de nouveau une erreur 1004 dans mon code à la ligne Set wb = Workbooks.Open(fich) Option Explicit Sub test() Dim Fso As Object, MonRepertoire As String Dim f1 As Object, f2 As Object Dim chemin$, fich$ Dim wb As Workbook Dim VBProj As Object Dim oldMod As Object...