Problème pour créer une macro sous excel 2003 - Dispatch

[Résolu/Fermé]
Signaler
Messages postés
34
Date d'inscription
mercredi 17 avril 2013
Statut
Membre
Dernière intervention
19 novembre 2014
-
Messages postés
34
Date d'inscription
mercredi 17 avril 2013
Statut
Membre
Dernière intervention
19 novembre 2014
-
Bonjour,

Je viens de me lancer dans VBA, et ne souhaite pas avoir recours a l'enregistreur de macro qui a mon gout procure des codes peu clairs.

Je souhaite créer une macro qui dispatch mon fichier en plusieurs selon l'entité qui est concerné.

J'ai donc un fichier qui s'appelle Anomalies_To_Dispatch.xls qui possède une variante dans la colonne L.

Je souhaiterai que ma macro prennent toutes les lignes de mon fichier qui ont la même entité dans la colonne L et crée un fichier en copiant/collant chaque ligne sur le fichier qui s'appelera Anomalies_nom de l'entité.xls et que ce fichier soit enregistré dans le meme dossier ou se trouve le fichier Anomalies_To_Dispatch.

Bien entendu, les deux fichiers auront les memes intitulés de colonne et le copier coller se fera a partir de la deuxieme ligne.

Est-ce que vous pensez que c'est difficile a produire?
J'essaie depuis deux jours et je dois dire que mes compétences en VBA pour l'instant était plus sur les formats de fichiers que sur les créations de nouveaux fichiers.

Merci à l'avance de l'aide que vous voudrez bien m'apporter.
Nanoo


5 réponses

Messages postés
16526
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
22 octobre 2021
3 231
Bonjour,

combien de lignes utilisées ?

merci de joindre le classeur

pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse

Messages postés
34
Date d'inscription
mercredi 17 avril 2013
Statut
Membre
Dernière intervention
19 novembre 2014

Bonjour,

Le nombre de lignes peut varier énormément et ne sera jamais le meme.

Voici le lien : https://www.cjoint.com/?3DrsGsOwihu

J'ai reconstitué le fichier car je ne l'avais pas disponible a la maison

Donc le but est de créer un fichier par entité donc tout les lignes qui concerne Monaco dans un fichier a part et ainsi de suite.

Merci beaucoup
Nanoo
Messages postés
34
Date d'inscription
mercredi 17 avril 2013
Statut
Membre
Dernière intervention
19 novembre 2014

Ils sont disperse tout au long du fichier
Messages postés
16526
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
22 octobre 2021
3 231
Ok, merci
a demain
Messages postés
16526
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
22 octobre 2021
3 231
bonjour,

Patience, c'est bien avancé !!!
mais j'ai un petit contre-temps urgent
Messages postés
34
Date d'inscription
mercredi 17 avril 2013
Statut
Membre
Dernière intervention
19 novembre 2014

Pas de problème. C est deja tres gentil de m aider
Messages postés
34
Date d'inscription
mercredi 17 avril 2013
Statut
Membre
Dernière intervention
19 novembre 2014

Merci beaucoup c'est exactement ça.
Bonjour
Voila une approche
a toi de voir si ca te convient
J'ais pris la Colonne E a toi de modifier

http://cjoint.com/?CDslZdEFIK5

A+
Messages postés
34
Date d'inscription
mercredi 17 avril 2013
Statut
Membre
Dernière intervention
19 novembre 2014

Merci Maurice,

C'est à peu près ça, sauf qu'il y a tellement de lignes que je souhaiterai si possible que ça se fasse pour toutes les entites sans les sélectionner.
Bon jour

Voila une routine
Création d'un dossier par UE Name

http://cjoint.com/?CDtlLfXGtcQ

A+
Messages postés
34
Date d'inscription
mercredi 17 avril 2013
Statut
Membre
Dernière intervention
19 novembre 2014

Merci beaucoup !
Messages postés
16526
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
22 octobre 2021
3 231
Re,

ci joint proposition sur 2000 lignes Et 7 pays
https://www.cjoint.com/?3DtmEVny20n

remarque:
1/ bannir toutes fusion de cellules dans dans la feuille anomalie; c'est aussi une règle générale
2/ ton classeur est en xls; j'ai donc créé les classeurs pays en xls
si tu es bien en XL<2007, tu vas peut-être bugger sur cette ligne
 ActiveWorkbook.SaveAs Filename:=T_pays(Cptr) & ".xls", FileFormat:=xlExcel8 'fileformat peut -tre a supprimer


3: pas testé si un pays comporte plus de 1000 lignes




Michel