Discussion :

[Elouan.pecheur]

Bonjour,

Vous trouverez ci-joint mon fichier

But du classeur: creer une base de donnees avec les informations de mes employes.

feuille Sommaire:
- Permet de creer une nouvelle feuille par Employe (Neu)
- Un link est cree vers l employe a chaque nouvelle creation

Feuille Blankotermin (fonctions principales)
- Insertion des donnees du nouvel employe (Start)
- Permet d´exporter les dates importantes vers Outlook (Outlook)
- Permet de lister les documents importants en pdf du dossier de l´employe et de creer un link vers ce fichier

Probleme1:
J ai creer 2 Userform Usfnew et Usfnew2 (Personalfragebogen) qui permet d avoir les renseignements de l employe et devrait remplacer a terme les inputbox (c est en Allemand desole)

Une macro permet d afficher le userform en cliquant sur l image avec les feuilles.

Je souhaiterai que ce userform soit copier en meme temps que la feuille losque je cree un nouvel employe. A chaque employe son Userform. Comment faire?

Probleme 2:
le bouton export "CommandButton5_Click" devrait permettre d´exporter les donnees du userform dans la feuille active dans la cellule indiquee via:

ActiveSheet.Range("A2").Value = TextBox5.Value

Malheureusement j ai une erreur de compilation "variable non definie"
Comment corriger cette erreur?

Probleme 3:
Je cherche une macro qui me permetterai d exporter mon Userform en pdf, de l enregistrer où l utilisateur le souhaite et une autre macro qui me permetterai d envoye ce pdf par mail.

Quelqu un peut m aider?

ps: desole, presques tous les textes sont en Allemand, je suis francais mais travaille en Allemagne...

[keygen08]

Bonjour
Désolé de ne pas avoir une reponse pour chaque question mais

Probleme 2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("A2").Value = TextBox5.Value

le commandbutton5 fait partie de usfnew2, hors textbox5 n'existe pas dans usfnew2, si tu veux recuperer la valeur de txtbox5 qui se trouve dans usfnew alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("A2").Value = usfnew.TextBox5.Value

Je ne comprend pas l'idée d'un userform par employé. un userform est un masque qui tire ces données d'un tableau en fonction de critere etabli. Il faudrai donc, d'aprés moi, ajouter une feuille dans ton classeur pour stocker les données entrer dans ton formulaire.
1- je rempli la fiche(userform)
2-enregistrer les donnée dans un tableau
3-rappeler les données pour modification ou autre

[lelensois16]

Bonsoir,

Pour créer un nouveau userform : suivez à la lettre ce tutorial : http://support.microsoft.com/kb/204330/fr
La conversion en format pdf devient alors intuitive via la commande PrintOut ( après ca dépend si vous avez bien positionné les userform ).

Et l'envoi par mail, des recherches avec le mot clef "CDO Excel" sont conseillées.

Cordialement,

PS : pour moi, il n'est pas normal que vous utilisiez Excel, Access me semble plus approprié nan ?