créer un fichier d'après des onglets et d'un modèle

grotsblues

XLDnaute Occasionnel
Bonsoir

J'ai 2 fichiers
1 nommé "onglets".xlsx qui détient plusieurs feuilles
1 nommé "maquette import 2067".xlsm qui est le modèle

Je souhaiterai qu'elle copie les cellules du fichier "onglets".xlsx feuille 123 et 124 vers le fichier "maquette import 2067".xlsm feuille "convert"

cellules F4 et G4 "feuille 123 dans cellule B3 "convert"
cellules H4 "feuille 123 dans cellule C3 "convert"
cellules K4 "feuille 123 dans cellule K3 "convert"
et une fois la feuille 123 copiée, elle l'enregistre au nom de la cellule A3 puis elle passe à l'onglet suivant.....

j'ai trouvé sur les forums un code vba mais je n'arrive pas à l'adapter

Je joint un fichier comme exemple pour plus de compréhension

Merci à tous pour vos réponses


Sub CreationSynthese()
' Initialisation
' --------------
Cells.Delete
Range("A1") = "noms onglets"
Range("B1") = "nom"
Range("C1") = "prenom"
Range("D1") = "emploi"
Range("E1") = "brut secu"
JaunePale = 13434879
Range("A1:C1").Interior.Color = JaunePale
Range("A1:C1").Font.Bold = True

' Parcours de tous les fichiers
' -----------------------------
ChDir "E:\2067 2015"
onglets = Dir("E:\2067 2015\onglets.xlsx")
While Len(onglets) > 0
Workbooks.Open onglets
AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count - 1
Range("A2:B" & AvantDerniereLigne).Copy
Workbooks("maquette import 2067.xlsm").Activate
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Range("B" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste
Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = onglets
Workbooks(onglets).Close
onglets = Dir
Wend


End Sub
 

Pièces jointes

  • ONGLETS.xlsx
    19.5 KB · Affichages: 40
  • Maquette import 2067.xlsm
    16.1 KB · Affichages: 45
  • ONGLETS.xlsx
    19.5 KB · Affichages: 48
  • Maquette import 2067.xlsm
    16.1 KB · Affichages: 38

Lone-wolf

XLDnaute Barbatruc
Re : créer un fichier d'après des onglets et d'un modèle

Bonsoir grotsblues,

De grotsblues
Je souhaiterai qu'elle copie les cellules du fichier "onglets".xlsx feuille 123 et 124 vers
le fichier "maquette import 2067".xlsm feuille "convert"

cellules F4 et G4 "feuille 123 dans cellule B3 "convert"
cellules H4 "feuille 123 dans cellule C3 "convert"
cellules K4 "feuille 123 dans cellule K3 "convert"
et une fois la feuille 123 copiée, elle l'enregistre au nom de la cellule A3 puis elle passe à l'onglet suivant


Tu es en ai vraiment sûr?? Parce-que d'après la macro, il me semble que ce n'est pas le cas. Une autre chose aussi que je ne comprends pas pourquoi supprimé aussi les entêtes??? Il suffirait de faire Range("a2:az65536").ClearContents.

Et ceci ça correspond à quoi?

Code:
Range("A1") = "noms onglets"
Range("B1") = "nom"
Range("C1") = "prenom"
Range("D1") = "emploi"
Range("E1") = "brut secu"
JaunePale = 13434879
Range("A1:C1").Interior.Color = JaunePale
Range("A1:C1").Font.Bold = True

Par exemple ceci dans "Onglets" Range("A1:C1"), sont en colonnes Y à AA??. L'idéal c'est que toutes les colonnes des deux fichiers soient identiques. De plus, pourquoi tous ces doublons(en image) ?? :confused:

colonnes.jpg

Dernière chose: tu demande à enregistrer l'onglet sous le nom de la cellule A3. Moi je ne vois pas du tout à quoi elle correspond. Au nom de l'onglet? De la société? De M ou Mme XY? :confused:
 

Pièces jointes

  • colonnes.jpg
    colonnes.jpg
    30.2 KB · Affichages: 42
Dernière édition:

grotsblues

XLDnaute Occasionnel
Re : créer un fichier d'après des onglets et d'un modèle

Bonsoir et merci
Il faudrait enregistrer le fichier "maquette import 2067" au nom de la cellule A3, apres qu'il soit remplie avec le fichier "onglet"
Les colonnes des 2 fichiers ne peuvent pas etre identique car un des 2 fichiers arrivent part email, c'est pour cela que je voudrais que le fichier "maquette import 2067" soit alimente par le fichier "onglets"
De fait ce code n'est pas adapte mais étant débutante je pensai me servir que de la partie ´parcours de tous les fichiers' et modifier la première partie du code merci pour votre aide
 

Lone-wolf

XLDnaute Barbatruc
Re : créer un fichier d'après des onglets et d'un modèle

Bonjour grotsblues,

étant donné que tu ne donnait pas de nouvelles, j'ai fait à ma sauce. Dis-moi si ça joue.

Avant de lancer la macro, change les chemins dans le module.
 

Pièces jointes

  • Maquette Import.zip
    217.5 KB · Affichages: 31
  • Maquette Import.zip
    217.5 KB · Affichages: 27
Dernière édition:

grotsblues

XLDnaute Occasionnel
Re : créer un fichier d'après des onglets et d'un modèle

Bonjour

J'ai teste le code mais il ne transfere pas les onglets dans convert.
Comme je l'ecrit dans mon mail précedent (à21h45) les entêtes de la feuille convert ne peut pas être modifiées, donc il faut que onglets par onglets on vienne alimenté convert et une fois fait enregistré le convert au nom de la cellule A3.xlsx.
J'espere avoir été un peu plus claire
merci de votre retour
 

Lone-wolf

XLDnaute Barbatruc
Re : créer un fichier d'après des onglets et d'un modèle

Bonjour grotsblues,

d'accord. Et ceci dois-je le rajouter ou pas?

Code:
Range("A1") = "noms onglets"
Range("B1") = "nom"
Range("C1") = "prenom"
Range("D1") = "emploi"
Range("E1") = "brut secu"
JaunePale = 13434879
Range("A1:C1").Interior.Color = JaunePale
Range("A1:C1").Font.Bold = True

Et ceci: cellules F4 et G4 "feuille 123 dans cellule B3 "convert", ça ne serait pas B3:B4? Copier deux cellules en une c'est pas possible. Tu veux copier ligne par ligne ou toute la plage? Est-ce que le classeur Maquette est dans le même dossier ou pas?

De plus, si tu veux créer un classeur pour chaque nom il faut qu'ils soient renommés différemment.
Dans ONGLETS, enlève-moi tous ces X (même si on est sur XLD), et met 2 ou trois données correctes, pour que je puisse voir le résulat à la fin des enregistrements.
 
Dernière édition:

grotsblues

XLDnaute Occasionnel
Re : créer un fichier d'après des onglets et d'un modèle

Bonjour et merci de m'aider

Je te met les 2 fichiers avec des données, j'ai remplie le classeur "maquette import 2067" pour que tu puisse voir le résultat attendu, et après le classeur "maquette import 2067" rempli, il faut que le code créer un classeur au nom de "FR1T0".xlsx et qu'il boucle sur tous les feuilles du classeur "onglets".
merci
 

Pièces jointes

  • ONGLETS.xlsx
    20.9 KB · Affichages: 39
  • Maquette import 2067.xlsm
    16 KB · Affichages: 32
  • ONGLETS.xlsx
    20.9 KB · Affichages: 40
  • Maquette import 2067.xlsm
    16 KB · Affichages: 44

Lone-wolf

XLDnaute Barbatruc
Re : créer un fichier d'après des onglets et d'un modèle

Re,

ce n'est pas ce que tu as dis dans le 1er message je te signale :mad:
et une fois la feuille 123 copiée, elle l'enregistre au nom de la cellule A3 puis elle passe à l'onglet suivant.....
ONGLETS à Maquette; ça c'est de 1.

2- A quoi ça te sert de créer un 3ème classeur, vu que tu as déjà Maquette???

3- Et c'est la 3ème fois que je te le demande: tu veux enregistrer le classeur par groupe oubien un pour titi, l'autre pour toto et un un'autre pour tata? Parce-que si c'est le cas tu ne peux pas enregistrer le classeur sous FR1T0 pour chaqu'un d'eux. C'est FR1T0 -FR1T1-FR1T2. Tu comprends ça??


Voici un exemple en PJ
 

Pièces jointes

  • Maquette Import.zip
    35.7 KB · Affichages: 27
  • Maquette Import.zip
    35.7 KB · Affichages: 24
Dernière édition:

grotsblues

XLDnaute Occasionnel
Re : créer un fichier d'après des onglets et d'un modèle

Bonsoir oui je veux enregistrer un classeur qui s appellera titi puis un autre tâta etc, je crois avoir dit tout au long de mes messages la même chose, bref si tu es un pro de VBA je t en félicité ce qui n'est pas mon cas, c est pour cela que je fais appel à excel downloads,
Bonsoir et merci encore
 

Lone-wolf

XLDnaute Barbatruc
Re : créer un fichier d'après des onglets et d'un modèle

Par grosblues
Message #1
Je souhaiterai qu'elle copie les cellules du fichier "onglets".xlsx
cellules F4 et G4 "feuille 123 dans cellule B3 "convert"
cellules H4 "feuille 123 dans cellule C3 "convert"
cellules K4 "feuille 123 dans cellule K3 "convert"
et une fois la feuille 123 copiée, elle l'enregistre au nom de la cellule A3 puis elle passe à l'onglet suivant.....


Message #3
Il faudrait enregistrer le fichier "maquette import 2067" au nom de la cellule A3

Message #5
il faut que onglets par onglets on vienne alimenté convert et une fois fait enregistré le convert au nom de la cellule A3.xlsx

Message #7
Il faut que le code créer un classeur au nom de "FR1T0".xlsx et qu'il boucle sur tous les feuilles du classeur "onglets".

Et maintenant
je veux enregistrer un classeur qui s appellera titi puis un autre tâta etc


Il faudrait savoir ce que l'on se veux dans la vie. Sujet clot pour moi.
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 885
Membres
101 830
dernier inscrit
sonia poulaert