XL 2010 creer un classeur a partir d'un autre

ATHE RIOVELI · 6 Juillet 2016

BONJOUR le forum,
Je tient tout d'abord à remercier les créateurs de ce forum pour les efforts fournis dans l'amélioration du nouveau design de ce forum.
Permettez moi une fois de plus de solliciter votre aide.
Les macros et formules de ce classeur ont été possible grâce à vous. chapeau à job75 et à tous les autres membres.
Je souhaiterais rendre ce classeur plus professionnel.
Je m'explique :
le classeur actuel est un classeur source.
Un utilisateur qui utilise ce classeur pour la saisir de ces notes, lorsque celui ci à par exemple intervient dans deux écoles et à 2 classes chacunes des écoles donc en tout 4 classes, celui ci fais un copier coller du classeur 4 fois et renomme les fichiers en fonctions des classes et de l'établissement.
Je veux y remédier.
Alors voila que je souhaiterais :
Au niveau de la feuille accueille (feuille1), un bouton " CREER UNE NOUVELLE CLASSE".
Ce bouton permettra de créer une nouvelle classe (un nouveau classeur) qui contient les feuilles trim1, trim2 trim3 , bilan et Odmerite.
Dès qu'on clique sur ce bouton, un userform apparait on renseigne les champs :
Etablissement : ...........................................................
Classe: .........................................................................
Aussitôt les deux champs remplis, un nouveau classeur est ouvert : il est formé des feuilles trim1, trim2 trim3, bilan et Odmerite du classeur source.
Aiinsi l'utilisera ne fera plus de copier coller pour créer des classes.

JE NE SAIS PAS SI J'AI BIEN TRADUIT MES PENSEES, mais c'est un peu ce que je souhaite pour le moment.

MERCI POUR VOTRE AIDE.
A+
Ci joint le classeur : utilisateur et mot de passe sont ADMIN

djidji59430 · 6 Juillet 2016

Bonjour,
Il suffit peut etre de faire un modele.
Voir
https://support.office.com/fr-fr/ar...e-modèle-58c6625a-2c0b-4446-9689-ad8baec39e1e

job75 · 6 Juillet 2016

Bonjour ATHE RIOVELI, salut djidji59430,

Oui il faut créer un fichier modèle d'extension .xltm vierge de données.

Il y a sûrement des exemples sur le forum quant à la manière de l'utiliser.

Dans l'UserForm que vous aurez créé vous ouvrirez ce fichier et l'enregistrerez sous .xlsm pour créer une nouvelle classe.

Par ailleurs vous êtes têtu, vos formules des moyennes des trimestres sont fausses, je vous ai donné les bonnes.

De plus je vous ai dit de supprimer tous les objets de la feuille "OdMerite".

Au boulot ATHE RIOVELI, j'espère que pour une fois vous n'attendrez pas qu'on vous donne du tout cuit.

A+

ATHE RIOVELI · 6 Juillet 2016

BONSOIR job75, BONSOIR djidji59430,

Ok je consulte le lien donné par djidji59430.
JOb75, je vous demande de jeter un coup d'oeil sur les formules.
lorsque vous entrer coef 1, regardez un peu le tableau statistique en bas, la note est notée sur 10.
Les devoir de niveau ont un coefficient qui est toujour égal à 2.
Les devoir de classe coeficient égal à 1
les interrogations écrite de coef égal 1 (noté sur 10). OK, on garde vos formules. J’essayerai de les comprendre cette nuit?

OK, sans faute je suis au boulot.
Pour une fois, je ne vais pas demander du tout à cuit.
Mais comment
créer un fichier modèle d'extension .xltmvierge de données?

ATHE RIOVELI · 6 Juillet 2016

OK djidji59430, OK job75,
je vois comment créer le classeur modèle.
Je vais essayer et vous envoyer le fichier.
Mais avant je vais regarder encore les formules des trimestres proposés par maître job75.
MERCI A+

job75 · 6 Juillet 2016

Re,

Pour terminer ATHE RIOVELI (car je ne pense pas aller plus loin) il est fort possible qu'en Côte d'Ivoire l'Education Nationale mette à la disposition des professeurs un logiciel pour entrer les notes des élèves et les appréciations, et qui calcule automatiquement les moyennes.

En France un tel logiciel existe depuis une vingtaine d'années, renseignez-vous.

A+

ATHE RIOVELI · 6 Juillet 2016

BONSOIR job75,
ce logiciel coûte plus de 500 000 mille francs CFA. Très cher. il n(est donc pas accessible à tous les établissement privé.
On a presque fini, pourquoi vous allez m'abandonner en si bon chemin?
- Le LOGICIEL de l'éducation national ne gère pas les tableaux statistiques comme c'est le cas ici.
- il ne permet pas d'éffectuer le classement par odre de mérite comme c'est le cas ici.
- il ne permet donc pas à l'enseignant de faire un véritable compte rendu des notes après un devoir.
Quand on consulte le cahier de note d'un enseignant, on devrait automatiquement avoir une idée du niveau de sa classe à travers les bilan des différents bilan des notes.
Malheureusement en cote d'ivoire, aucun logiciel ne permet de faire cela. C'est la véritable raison pour laquelle j'ai décidé depuis maintenant deux ans de faire ce classeur avec excel. il a été tester dans plusieurs établissement privés. aucun problème pour l'heure dans les calculs.

Je ne fais que dire ici les préoccupation de ces enseignants.
OK, si vous décider d'abandonner, on n’arrête ici.
Moi je ne suis pas en expert en macro.

Je finis donc en vous disant GRAND MERCI, job75
MERCI à tous ces gens qui ont bien voulu apporter un plus à ce classeur.

MERCI A+

job75 · 7 Juillet 2016

Bonjour ATHE RIOVELI, le forum,

C'est vrai que je ne peux pas vous abandonner comme ça

Alors voyez les fichiers joints avec ce code dans UserForm2 :

Code:

Private Sub CommandButton1_Click() 'Valider
TextBox1 = Application.Trim(TextBox1): TextBox2 = Application.Trim(TextBox2)
If TextBox1 = "" Then TextBox1.SetFocus: Exit Sub
If TextBox2 = "" Then TextBox2.SetFocus: Exit Sub
If ComboBox1.ListIndex = -1 Then ComboBox1.DropDown: Exit Sub
Dim chemin$, modele$, fich$
chemin = ThisWorkbook.Path & "\" 'à adapter
modele = "Modele.xltm"
fich = chemin & ComboBox1 & " " & TextBox1 & " Classe " & TextBox2 & ".xlsm" 'à adapter
If Dir(fich) <> "" Then MsgBox "Cette classe a déjà été créée !", 48: Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error Resume Next
With Workbooks.Open(chemin & modele)
  With .Sheets("1er Trim")
  .[B1] = TextBox1
  .[Q4] = TextBox2
  .[P3] = ComboBox1
  End With
  .SaveAs fich, FileFormat:=xlOpenXMLWorkbookMacroEnabled '52
  .Close
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
If Dir(fich) <> "" Then MsgBox "La classe de " & TextBox2 & " a bien été créée..."
End Sub

Private Sub UserForm_Initialize()
Dim i%
For i = 2015 To 2024
  ComboBox1.AddItem i & " - " & i + 1
Next
End Sub

Pour tester mettez les 2 fichiers dans le même répertoire (le bureau).

Je vous laisse supprimer les objets de la feuille "OdMerite"...

A+

ATHE RIOVELI · 7 Juillet 2016

BONJOUR job75,
C'est parfait ce fichier.
Il est idéal ce fichier.
C'est exactement ce que je recherchais.
Je ne peux que vous dire MERCI.
MERCI pour ce cette oeuvre.

Vous voyez, vous êtes d'une générosité sans limite.
Vous faites partie des personnes qui n'abandonnent jamais un être sans défense.

A propos de la feuille OdMerite, de quels objets parlez vous ? Le tableau statistique? je ne sais comment enlever la zone d'impression.
Ne dite pas que je suis têtu. Je veux savoir?

MERCI A+

job75 · 7 Juillet 2016

Re,

J'ai légèrement modifié le code précédent avec Application.Trim (SUPPRESPACE).

Les objets ce sont les Zones de texte et autres Shapes.

Il faut que les données soient toutes dans des cellules, la feuille "OdMerite" est à revoir.

A+

ATHE RIOVELI · 7 Juillet 2016

BONJOUR job75,
OK je comprend maintenant.
J'était justement en train de les enlever.
MERCI A+

ATHE RIOVELI · 7 Juillet 2016

BONJOUR Job75,
Lorsqu'on clique sur le bouton créer une classe, effectiviement l'userform s'affiche (parfait)
mais lorsqu'on fini de renseigner les champs et qu'on clique sur valider, rien.
Alors :
Comment savoir que la classe à été créer?
Comment consulter la classe ainsi créer pour saisir des notes?
J'espère que je ne suis pas en train de tout melanger.
Mais je souhaiterai qu'a l'ouverture, seule la feuille 1 s'affiche.
Ainsi après un clique sur le fameux bouton " CREER UNE CLASSE" et après remplissage des champ de l'useform2, le bouton VALIDER permet donc l'affichage des feuilles autorisées pour cette nouvelle classe.
Pardonnez job75, ne vous fachez pas.

MERCI A+

job75 · 7 Juillet 2016

Re,

Avec le code que j'ai donné le fichier de la classe créée est fermé par .Close

Il n'est pas du tout souhaitable de neutraliser cette instruction.

L'utilisateur doit rechercher et rouvrir le fichier créé car il faut le mot de passe...

A+

ATHE RIOVELI · 7 Juillet 2016

Job75,
Si je comprend, il y aura plusieurs fichiers en fonction du nombre de classe?
Et donc pour consulter la classe, il faudra rechercher le fichier?

On ne pourrait pas avoir un seul fichier avec qui on travail, et qui contiendrait toutes les données?
Essayer s'il vous plait de voir ceci:
Ainsi après un clique sur le bouton " CREER UNE CLASSE" et après remplissage des champ de l'useform2, le bouton VALIDER permet donc l'affichage des feuilles autorisées pour cette nouvelle classe.
Après on ferme le classeur et cette classe est enrégistrée. L'utilisateur poura revoir ces notes s'il clique sur un autre bouton "SAISI DE NOTES" en ce moment l'userform apparait et l'utilisateur choisit la l'établissement puis la classe en question et saisi ses notes.

C'est un peu ce que je souhaiterais.
MERCI A+

job75 · 7 Juillet 2016

ATHE RIOVELI à dit:
Si je comprend, il y aura plusieurs fichiers en fonction du nombre de classe?
Et donc pour consulter la classe, il faudra rechercher le fichier?

Eh oui et vous avez semble-t-il oublié le titre du fil :

CREER UN CLASSEUR A PARTIR D'UN AUTRE

Bon maintenant ATHE RIOVELI travaillez pour finaliser votre projet, moi j'arrête là.

Bon courage et A+

XL 2010 creer un classeur a partir d'un autre

ATHE RIOVELI

XLDnaute Occasionnel

Pièces jointes

djidji59430

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

ATHE RIOVELI

XLDnaute Occasionnel

ATHE RIOVELI

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

ATHE RIOVELI

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

ATHE RIOVELI

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

ATHE RIOVELI

XLDnaute Occasionnel

ATHE RIOVELI

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

ATHE RIOVELI

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires