Nom de fichier après fragmenation
Bonsoir,
J'aurais souhaité un petit coup de pouce suite à l'utilisation d'une macro (domaine que je ne maîtrise absolument pas)
Pour fragmenter un fichier en plusieurs suivant un critère
J'ai un fichier client pour chaque département avec adresse, code postal et commune et d'autres infos sur plusieurs colonnes
COL A Code postal
COL B Commune
COL C Adresse
COL D Nom
j'ai récupéré via ce forum une macro me permettant de fragmenter ce fichier afin d'en avoir un avec tous les clients pour chaque commune et ca fonctionne très bien
Lors de l'utilisation de cette macro, ca me crée un fichier avec comme nom "le code postal , l'heure, le fichier source"
Ex " 34000 2020-01-17 34Herault"
Dont voici la ligne de commande
' sauvegared du fichier
wb.SaveAs (MonRepertoire & "\" & critere_courant & " " & Format(Now(), "yyyy-mm-dd") & " " & nomFichier)
xl.SheetsInNewWorkbook = 3 ' On remet la propriété de l'application à 3 (par défaut)
xl.Quit
ligne_courante = LigneFin(critere_courant, Range(critere & "1").Column) + 1
Serait il possible et du coup comment avoir les fichier nommé avec le code postal (Colonne A qui sert a la fragmentation) suivi de la commune (Valeur de la colonne B) ?
Exemple 34000 MONTPELLIER.xls
En vous remerciant d'avance
Bonsoir,
sur base de ce que tu as voulu nous montrer de la macro.
wb.SaveAs (MonRepertoire & "\" & critere_courant & " " & mid(nomFichier,3)Merci,
Cela m'indique une erreur de compilation.
Vous faut il tout e la macro ?
bonsoir,
Vous faut il toute la macro ?
ben oui et même un fichier exemple représentatif de ton fichier, merci de relire les règles du forum.
ceci dit, j'ai oublié une parenthèse
wb.SaveAs (MonRepertoire & "\" & critere_courant & " " & mid(nomFichier,3))