répartir des données sur plusieurs classeurs

[sniper2002]

Bonjour je souhaite répartir les données d'un onglet en créant pour chaque développeur (colonne C) un classeur dans un emplacement définit par défaut (C:\)

exemple :
Dans le fichier ci joint dans la colonne C on trouve 4 développeurs (DEV1; DEV2...), je souhaite à travers une macro qui générée un répertoire dans (C:\) nommé avec la date du jour et dans lequel on viendra enregistrerles 4 classeurs chacun avec le nom du développeur (DEV1; DEV2 ..) et chacun contient uniquement les données du développeurs

je tiens à préciser que le nombre de développeurs (Colonne C) peut varier!

==> c'est l'équivalant d'insérer un filtre (ligne 1) ==> sélectionner le premier développeur de la liste (Dev 1) ==> copier ==> Nouveau fichier ==> coller la sélection dans le nouveau classeur ==> enregistrer sous ==> crée un répertoire dans (C:\21 03 2010) ==> nommer le fichier DEV 1 ==> enregistrer dans (C:\21 03 2010)

Cette manipulation me prend un temps fou! Vu que ma liste de développeurs peu aller jusqu' a 50

ci joint un exemple simplifié pour mon problème

Merci d'avance pour votre aide

 

[JNP]

Re : répartir des données sur plusieurs classeurs

Bonjour Sniper2002 🙂,
C'était pas évident, mais je pense que le résultat te conviendra 😛.
Sub Test à lancer dans la pièce jointe.
Bon dimanche 😎

 

[sniper2002]

Re : répartir des données sur plusieurs classeurs

bonjour JNB
merci pour ton aide, ta marco reparti seulement sur plusieur feuil après ça bug
sur cette partie "MkDir Chemin"

merci d'avance pour ta réponse

 

[JNP]

Re : répartir des données sur plusieurs classeurs

Re 🙂,
MkDir crée le répertoire au niveau du C:

"C:/" & Year(Now) & "-" & Format(Month(Now), "00") & "-" & Format(Day(Now), "00")

sous la forme 2010-03-21 pour aujourd'hui.
Si ça plante, 2 possibilités :
Tu as déjà un répertoire de ce nom (il suffit de le supprimer et tout rentrera dans l'ordre).
Tu n'as pas les droits sur C: (si tu n'es pas administrateur, ou si tu es sur Vista il me semble). Si tu as 2 partitions, essaie d'écrire sur le D:/ en modifiant Chemin dans la macro.
A te lire 😎

 

[sniper2002]

Re : répartir des données sur plusieurs classeurs

toujours le même probleme! le repertoire se cree mais il ya rien de dans ! donc je supprime le répertoire je relance la macro !!! le même probleme !!

même en changeant l'emplcement ça ne marche pas !

merci pour ta réponse


et encore une fois merci pour ton aide et ton implication

 

[JNP]

Re : répartir des données sur plusieurs classeurs

Re 🙂,
Sur quelle version es tu ? Si tu es en 2003 ou antérieure, le problème vient peut-être que j'ai fait un enregistrement format 97-2003 depuis 2007

        Workbooks(NomFichier).SaveAs Filename:=Replace(Chemin, "/", "\") & "\" & NomFeuille & ".xls"[COLOR=red][B], _[/B][/COLOR]
        [B][COLOR=red]FileFormat:=xlExcel8[/COLOR][/B]

essaie de mettre simplement

        Workbooks(NomFichier).SaveAs Filename:=Replace(Chemin, "/", "\") & "\" & NomFeuille & ".xls"

c'est ça qui doit coincer.
A + 😎