Nom de fichier après fragmenation

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Z
Zimbas
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 6 août 2018
Version d'Excel : 2007

Message par Zimbas » 17 janvier 2020, 23:24

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
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'978
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 18 janvier 2020, 00:13

Bonsoir,

sur base de ce que tu as voulu nous montrer de la macro.
wb.SaveAs (MonRepertoire & "\" & critere_courant & " " & mid(nomFichier,3)
Z
Zimbas
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 6 août 2018
Version d'Excel : 2007

Message par Zimbas » 18 janvier 2020, 00:23

Merci,

Cela m'indique une erreur de compilation.

Vous faut il tout e la macro ?
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'978
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 18 janvier 2020, 00:59

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))
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message