IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Création Macro et Userform


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Mars 2011
    Messages : 21
    Par défaut Création Macro et Userform
    Chers amis,

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

    Actuellement, je rencontre deux problèmes.

    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,

    Cameleon1970

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, de la lecture ici et ici

  3. #3
    Membre expérimenté Avatar de L'Albatros
    Homme Profil pro
    Chercheur en économie - statistique
    Inscrit en
    Avril 2012
    Messages
    150
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chercheur en économie - statistique
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2012
    Messages : 150
    Par défaut
    Bienvenue !

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

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 ?

  4. #4
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Mars 2011
    Messages : 21
    Par défaut RE:Création Macro et Userform
    Bonjour Albatros,

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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]

  5. #5
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Mars 2011
    Messages : 21
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

    Cameleon1970

Discussions similaires

  1. Création macro word pour copier-coller
    Par marmi dans le forum VBA Word
    Réponses: 2
    Dernier message: 18/04/2017, 09h26
  2. [OL-2010] Création d'un userform par macro
    Par marauth dans le forum VBA Outlook
    Réponses: 3
    Dernier message: 09/04/2015, 15h34
  3. Réponses: 7
    Dernier message: 04/07/2014, 15h55
  4. [XL-2007] Création d'un userform depuis une macro
    Par david_atx dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 17/09/2012, 14h33
  5. création macro "parcourir
    Par marie100282 dans le forum Access
    Réponses: 3
    Dernier message: 05/05/2006, 15h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo