Problème pour créer une macro sous excel 2003 - Dispatch Résolu/Fermé

Question

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


Configuration: Windows XP / Internet Explorer 8.0

michel_m · Answer

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

nanoo79 · Answer

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

Maurice · Answer

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+

Maurice · Answer

Bon jour

Voila une routine 
Création d'un dossier par UE Name

http://cjoint.com/?CDtlLfXGtcQ

A+

michel_m · Answer

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