Créer automatiquement fichier Excel selon base de données

Pimpon974 à dit:

Je souhaite à l'aide d'un bouton (lié à un code macro) que toutes les feuilles de suivi administrative (Tableau) soient créées pour chaque personne concernée et enregistrées dans le même classeur.

Cliquez pour agrandir...

Bonjour,
Je ne suis pas sûr que tu ais choisi la formule la plus adaptée.
Plutôt que de créer un tableau par formateur, je verrais plutôt un onglet où tu saisirais tes journées de formation et en choisissant le formateur dans ton tableau toutes les dates s'afficheraient.
Cela allégerait ton classeur et permettrait d'obtenir de nombreux résultats sur la durée.
C'est une suggestion et si elle te parle je peux t'aider à la générer.

Bonjour gbinforme,

Merci pour ce retour.
La nécessité de un tableau par formateur me permet d'effectuer l'émargement de l'état de présence (signature via stylet)

Pourrait t'on retrouver la forme de mon tableau avec ta suggestion ?
En choisissant le formateur dans le tableau, toutes les dates s'afficheraient ainsi que la signature de présence et les heures.

Merci pour ton aide.

Cordialement,

Bonsoir,

J'ai pu créer une avancée.
Ma Macro génère le nombre de feuille(avec le nom en onglet) selon de nom des formateurs qui est rentré.

Nouveau casse tête : Si je suis amené à rajouter un ou plusieurs formateurs, je voudrais que se génère QUE ces ajouts et non que cela me refasse des onglets (en plus faussé) sur les noms déjà existant.

Help ! )))

Merci par avance

bonjour
A tester
En suivant ta logique

JM27,
Merci beaucoup pour ce complément. J'ai juste eu à modifier une ligne (en gras)
Sinon avec le 0 cela effaçait les création dans l'élan.


Je peux passer à l'étape suivante :
Ramener les infos de chaque formateur (Statut, centre, grade, nom, prénom) dans les tableau créés lors du lancement du macro.

Je reste preneur de tes bons conseils tout en continuant à chercher.
C'est addictif ces choses là

Sub GénérerFeuilleFormateur()

Dim nom As String 'déclare la variable des noms formateur
Dim c As Range 'déclare la variable Liste desformateurs


For Each c In Range("ListeFor")
nom = c.Value
If nom <> "" Then

Sheets("Tableau").Copy After:=Sheets(Worksheets.Count)
On Error Resume Next
ActiveSheet.Name = nom

If Error <> "" Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End If

On Error GoTo 0
End If
Next

MsgBox "Onglets générés !" 'message de validation de l'action

End Sub

bonjour
non je persiste!
il faut

pas compris

Sinon avec le 0 cela effaçait les création dans l'élan.

Cliquez pour agrandir...

le reste : a tester

Bonjour Jean-Marcel,

A nouveau de vous remercie pour ce retour.

Sur le premier jet, je ne sais pour quelle raison, avec la formule quand je l'activais elle me créait bien les onglets avec le nom mais elle le supprimait ensuite.
Bref.
Ce que vous m'avez renvoyé ce jour fonctionne parfaitement

Je vais demander à mon administration une formation Excel pour ces choses là. Je trouve le VBA très intéressant.

Je vous remercie encore pour votre temps et votre partage.

Bonne fin de journée à vous Jean-Marcel