Création Macro et Userform

:coucou:Chers amis,

Je suis débutant dans ce forum et je m'adresse donc à vous.:ave:

Actuellement, je rencontre deux problèmes.:mur:

Je dois importer des données provenant d'un rapport effectué en ACCESS 2010. Ce rapport est généré via l'exécution d'un Formulaire.
Bref, une fois fait, je fais un "COPIER / COLLER" de ce tableau et je le colle dans Execel car malheureusement la fonction d'Export ne fonctionne pas bien.

Dans un premier temps, dans EXCEL 2010, j'ai créé une Macro "FORMAT" me permettant de reformater les champs, de déplacer les colonnes, d'en supprimer et de les renommer.

Cette Macro est sauvegardées actuellement dans un fichier "MACRO.XLSB".

Pour une question de facilité, j'aimerais avoir accès à ces possibilités :

- Lorsque j'ouvre Excel, pouvoir disposer d'un répertoire ou un onglet reprenant toutes mes Macros et ce, sans que je doive systématiquement ouvrir mon fichier "MACRO.XLSB"

- Programmer une deuxième Macro qui successivement me crée un nouveau fichier Excel, me le sauvegarde immédiatement à la date du jour (Exemple : "migration20120418.xls". ) sur le bureau ou, dans un dossier réseau spécifique et m'affiche un UserForm.

- Ce UserForm devrait comprendre 3 boutons :

1. Un bouton permettant de coller mon rapport généré par le formulaire Access (Tâche de copie effectuée précédemment manuellement)
2. Un fouton reprenant la Macro "FORMAT"
3. Un bouton de sauvegarde

Voilà, je continue à travailler dessus et je compte vraiment sur vous tous pour m'aider à m'ameliorer.

Bonne journée à vous tous, :D:coucou:

Cameleon1970

Salut, de la lecture ici et ici

Bienvenue !

Ce bout de code te permettra d'enregistrer ton classeur comme tu veux, à adapter:

Code:

---

1 2 3 4 5 6 7

Dim NomSource$, CheminDest$, NomDest$ Dim VBC As Object MaDate = Format(Now, "DD-MM-YY h-mm-ss") NomSource = "MonClasseur.xls" CheminDest = "O:\gnagnagnaa\_Jean-Baptiste\" NomDest = "Migration du " & MaDate & ".xls" Workbooks(NomSource).SaveAs CheminDest & NomDest

---

Pour que l'UerForm s'affiche dès que tu ouvres le classeur, tu colles ceci dans le "ThisWorkbook":

Code:

---

1 2 3 4

Sub Workbook_open() UserForm1.Show Application.Visible = False End Sub

---

Ca ira, ou bien tu as d'autres besoins précis ?

Bonjour Albatros, :D

Désolé pour le délai de réponse.
J'ai essayé ton code mais soit il refuse le "Now dans Format, soit il refuse le mo format. Erreurs de compilation :(

Je suis en train de chercher la raison.
A propos, pq déclarer DIM VBC as object, si je puis me permettre ?

Et enfin, pourquoi créer un "Nom source" ?
Je n'en ai pas besoin. Je veux juste créer un nouveau fichier Excel et l'enregister sur un nom X ou Y.

Merci de ta réponse.

Bien à toi,

Bertrand....

Code:

---

1 2 3 4 5 6 7

Dim NomSource$, CheminDest$, NomDest$ Dim VBC As Object MaDate = Format(Now, "DD-MM-YY h-mm-ss") NomSource = "MonClasseur.xls" CheminDest = "O:\gnagnagnaa\_Jean-Baptiste\" NomDest = "Migration du " & MaDate & ".xls" Workbooks(NomSource).SaveAs CheminDest & NomDest

---

Ca ira, ou bien tu as d'autres besoins précis ?[/QUOTE]

Chers,

J'ai réussi à bricoler deux macros qui ont l'air de fonctionner
A force de me casser la tête, et de faire des recherches, tout en ne comprenant rien au VBA, je finis par apprendre certaines choses.

Je suis technicien informatique et non programmeur.
C'est ce que j'aime ... chercher et trouver ... MAIS BREF !

Est-il possible de me clarifier l'info suivante :

Code:

---

1 2 3 4

Sub Workbook_open() UserForm1.Show Application.Visible = False End Sub

---

Tu me dis de l'implémenter dans "This Workbook".
Le problème, est que chaque jour, une nouvelle feuille doit se créer et se formater (mes deux macros).

Donc, ce que je veux, c'est que lorsque j'ouvre Excel, il ouvre par défaut mon Perso.XLSM (Macros activées) et que, mon Userform apparaisse.

A ce moment, il effectuera les tâches demandées.
- Premier Bouton : Création d'un nouveau document Excel"
- Deuxième Bouton : "Mise en forme de ce document Excel"

Est-ce faisable ?

Merci d'avance. :D:P

Cameleon1970