Contenu récent par bouchard

Bonjour, je n'ai pas tout compris sur les formules en place. ex comment change t'on de mois? à quoi sert l'onglet liste planning ? cependant pour le problème évoqué de sauvegarde je verrai bien trois procédures SauvegardeMoisEnCours avec un changement de structure 'data'...

Bonjour, c'est un projet intéressant réalisable en excel et vba sans difficulté majeure. il demandera un certain temps... Il est sans doute possible de trouver des applis qui cochent quelques critères demandées, mais je n'en ai pas sous le coude qui pointe toutes les exigences. La priorité est...

pourquoi faire simple alors qu'il était possible de faire compliqué! je ne comprends pas votre démarche, le code présenté ne répond pas vraiment à votre demande de départ. l'ordre des colonnes résultat diffère, la condition est différente la position de colonne de condition était différente...

c'est parce que vous avez déclaré 'Option Explicit' Toutes les variables doivent être déclarées Je fais le choix contraire et ne déclare que les variables qui ont une portée autre que la procédure...

Avec les corrections pour obtenir le résultat souhaité. Sub Concat() Set ww = Workbooks("classeur(1).xlsx") Set ra = ww.Sheets("A").Cells(2, 1) Set rb = ww.Sheets("B").Cells(2, 1) Set wx = ww.Sheets("X").Cells(100000, 13).End(xlUp).Offset(1, 0) Do While ra & ra.Offset(0, 1) <> "" If...

les premières lignes sont incomplètes, voici la synthaxe pour espérer le faire tourner Set ra = Sheets("A").Cells(2, 1) Set rb = Sheets("B").Cells(2, 1)

Bonjour Jeff, c'est pas très clair ton histoire. je te propose quand même un code . le code tient compte des colonnes fusionnées et je ne connais pas les conditions. il manquera quand même un flag qui dira si la lignes est déjà copiée ou non pour les relances. *j'ai pas testé, j'ai pas de...

Excusez-moi, j'avais cru lire moteur de recherche,userform,trouver très facilement des documents dispatchés dans notre arborescence. sélectionner un document qui s'ouvre via un bouton de commande ... je vous laisse, bon codes

Suite... Une autre manière d'aborder le sujet serait de considérer deux actions distinctes. une première , enregistrer la liste des noms ( chemin+nom ) de fichier des documents dans un support ( fichier index) par un traitement récursif répertoires sous répertoires. A relancer périodiquement Une...

Bonjour, je pense que le problème est mal posé, faire une recherche à la façon de l'explorateur de windows sera vite très long et peu intuitif. Une autre manière d'aborder le sujet serait de considérer deux actions distincts.

Bonsoir, Quand vous dites ne fonctionne pas, je dois comprendre n'est pas activé. En effet la condition est que nomf soit vide, or vous le forcé à G8, donc pas souvent vide... Par ailleurs en vous relisant, votre souhait est de se servir du fichier de base en modèle, alors vous pouvez écrire...

Bonsoir, je note une anomalie dans le code, mais ça vient de ma réponse précédente. il fallait écrire VREP = MsgBox( nomf & " n'existe pas. Création du fichier ?", vbYesNo). pour l'erreur (1004 que l'on retrouve partout sans vouloir dire grand chose...) je ne vois pas d'erreur dans le...

bien sûr, ça donnerait a peu près ceci Sub UneSolution() chemin = "C:\Users\6810558F\OneDrive - SNCF\Documents\0-Loc Ng\04-Tournées Realisées\" FichierDeBase = "MonFichierDeBase.xls" nomF = InputBox("Saisir le nom du fichier sans extention", "Ouvrir fichier") If nomF <> "" Then fichier =...

Bonjour Pelerin65 voici un début de solution, à adapter... Sub UneSolution() chemin = "C:\Users\6810558F\OneDrive - SNCF\Documents\0-Loc Ng\04-Tournées Realisées\" FichierDeBase = "MonFichierDeBase.xls" nomF = InputBox("Saisir le nom du fichier sans extention", "Ouvrir fichier") If nomF <> ""...

Bonjour, une demande sans réponse ne doit pas le rester. L'idée est bonne et réalisable. Cependant, je pense qu'il est plus simple de mettre en oeuvre des codes barres plutôt que des QRcodes et ils auront la même utilisation. Les codes barres ne nécessitent qu'une police de caractères adaptée...