Excel création de feuille et copie automatiqu

bonjour à tous

un début avec ventilation des données dans des "feuilles villes"

https://www.cjoint.com/?3HyqFPlJKjp

bonne suite

bonjour

ajouter cette procedure au Module 1 du fichier "pays"

Public Sub CreationFichiers()
Dim chemin As String
Dim nomF As String, nuF As Long, nbF As Long
Dim nomFVille As String
Application.ScreenUpdating = False
' chemin du fichier complet
chemin = ActiveWorkbook.Path
' nombre de feuilles du fichier
nbF = ActiveWorkbook.Sheets.Count
' creation des fichiers "villes"
For nuF = 1 To nbF
  nomFVille = ActiveWorkbook.Sheets(nuF).Name
  ActiveWorkbook.Sheets(nuF).Select
  Cells.Copy
  Workbooks.Add
  ActiveSheet.Paste
  ActiveWorkbook.SaveAs Filename:=chemin & "\" & nomFVille
  ActiveWorkbook.Close
Next nuF
Application.ScreenUpdating = True
End Sub

bonne suite

bonjour

c'est possible
https://www.cjoint.com/?3IfroiJ4eqp
RQ1. je n'ai pas compris puis création pour chaque feuille le fichier correspondant.avec deux boutons pour chaque manoeuvre
on n'a pas besoin de bouton pour déclencher la création du fichier "ville"
RQ2. tu peux toujours créer tous les fichiers "villes" en bloc lorsque les feuilles "villes" ont été créees et modifier

bonne suite

comme ça? https://www.cjoint.com/?3IfsFDl3aE9

RQ. quand tu as dit : Une fois les feuilles prêtes là je dois créer les fichiers un à un. j'ai pensé que tu voulais créer les fichier un par un !!!

bonne suite

Sinon au lieu des feuilles un classeur pour chacun des site.

Merci encore

Bonjour,

Normalement en faisant Ctrl+clic maintenu sur l'onglet à reproduire+déplacer vers la droite avant de tout relâcher çà ne devrait pas endommager les mises en forme de l'original

Salut,
je me suis mal exprimé en fait (j'ai cru ajouter mon pb à la suite d'une autre discussion)

Bref

J'ai un fichier Excel avec une feuille contenant plus de 2000 lignes de données sur plusieurs colonnes.

les données sont relatives à des sites (villes) bien précis.

Nom_Ville|Nbr_contact|Ressource_M|Ressources_H|Adresse|date|etc

Je veux créer des classeurs autant de fois qu'il y a de ville;

avec le nom de fichier correspondant au nom de la ville(champs ville)+la date (champs date);

(avec la même mise en forme) et;

les données qui vont avec chaque ville.

Voilà.

Merci

j'ai posté plus d'explication plus en bas
pouvez vous y jeter un coup d'oeil?
Merci bcp

Bonjour,

Tu devrais déposer un fichier exemple avec 3 villes et qcq données par ville...
cjoint.com et coller ici le lien fourni
Mais si tu as attends encore 10 jours pour répondre pas la peine...

eric

Voilà
http://cjoint.com/12au/BHypOHatWHp.htm
c'est juste un exemple
le nombre de ville peut atteindre 80 sites

Pas bonjour non plus,

15 jours pour avoir un premier suivi de ta part, ensuite 3 mois pour le 2nd suivi.
Tu crois que c'est sérieux et que ça donne envie de te consacrer du temps ?
Et bien sûr pas de bonjour ni de merci... Tu as été élevé où ?

eric

les titres dans les cellules fusionnées n'étaient pas prévus,
quoi qu'il il soit, fusionner des cellules, ça ne fait pas bon ménage en général et c'est à proscrire avec VBA

bonne fin de journée

Merci encore.

Bonjour,
ça marche à merveille.
Mais est-il possible de compléter le fichier que tu m'as déjà envoyé:

C-à-d création tout d'abord des feuilles et puis création pour chaque feuille le fichier correspondant.avec deux boutons pour chaque manoeuvre.

Car quand je créé les feuilles, j'insère une une dizaine de lignes correspondant à l'en tête pour chaque ville, d'un seul tenant (avec la sélection de toutes les feuilles). Une fois les feuilles prêtes là je dois créer les fichiers un à un.

Voilà, j'espère que je n'abuse pas.
Merci

Bonjour, merci pour ta réaction.
J'ai consulter ton fichier: dans ce cas je suis obligé d'aller dans chaque feuille et cliquer Ctrl+K pour créer son ficher.

Or ce que j'ai expliqué, c'est de pouvoir faire ceci en une seule fois, après avoir effectué toutes les modifs sur mes feuilles.
d'où ma requête mal comprise "....deux boutons pour chaque manoeuvre .."

C'est à dire cliquer sur le bouton (dans ton fichier) "OK":
1-->ce qui donne lieux à la création des différentes feuilles;
2-->effectuer les modif de forme.
puis un autre bouton (depuis Feuil1) pour pouvoir créer tous les fichiers correspondants à chaque feuille.
Merci beaucoup.

Bonjour ccm81.
C'est exactement ce que je voulais.

Géant merci.

Bon courage surtout.