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 :

[VBA-E]{débutant} Importation de données avec menu déroulant


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    208
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 208
    Par défaut [VBA-E]{débutant} Importation de données avec menu déroulant
    Bonjour

    je suis un débutant en VB et excel
    mon patron me demande de créer une application qui pour lui est simple

    je dois faire apparaitre dans une colonne un nom de produits que je dois allez chercher dans un dossier ou j'ai plusieurs fichier excel
    tous ca en menus deroulants

    dans un second temps dans une autre colonne
    faire apparaitre des parametres de ce produits qui ce trouve dans son fichier

    et en dernier le numéro de ce lot qui ce trouve dans le fichier


    Pour certain ces simples mais ca fait depuis 3 jours que j'essaye avec aides en ligne et tutoriels et je n'y arrive pas

    est ce possible d'avoir un coup de main SVP


    Ps:je suis stagiaire et les seules notions que j'ai c'est du GW basic

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2007
    Messages
    64
    Détails du profil
    Informations personnelles :
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Février 2007
    Messages : 64
    Par défaut
    Citation Envoyé par Thomas69
    est ce possible d'avoir un coup de main SVP
    si tu veux tu peux m envoyer les fichiers et je verrais ce que je peux faire

  3. #3
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    208
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 208
    Par défaut
    ben je ne peux pas la taille de mes fichiers ton trop lours pour le site
    envoie moi ton email par MP au pire si tu veux vraiment t'embeter

    ce que je recherche ce sont soit des exemples ou autres
    qui me permetrons de mieux comprendres

  4. #4
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    208
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 208
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub Import()
    Workbooks.Open Filename:= _
    "C:\........\....\A180.*.xls"
    Windows("Monfichier.xls").Activate
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=[Monfichier.xls]ENR030!R18C3"
    Workbooks("Monfichier.xls").Close
    End Sub

    est ce code est correcte
    pour prendre dans tous les fichiers A180
    une valeurs dans la cellule B2

  5. #5
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    J'ai un exemple de création de menu dans la barre de menus.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    Sub CréationMenuGraphes()
    Dim MonControl
    Dim MonMenu
    Set MonControl = CommandBars("Worksheet Menu Bar").Controls _
        .Add(Type:=msoControlPopup)
        With MonControl
            .Caption = "Mise en forme des graphes" ' Nom du menu
            Set MonMenu = MonControl.Controls.Add(msoControlButton)
                With MonMenu
                    .Caption = "Barregraphe Dépenses" ' Nom de la commande
                    .OnAction = "BarregrapheDépenses"
                End With
            Set MonMenu = MonControl.Controls.Add(msoControlButton)
                With MonMenu
                    .Caption = "Camembert Dépenses"
                    .OnAction = "GrapheDépensesAnnée"
                End With
            Set MonMenu = MonControl.Controls.Add(msoControlButton)
                With MonMenu
                    .Caption = "Barregraphe recettes"
                    .OnAction = "Barregrapherecettes"
                End With
            Set MonMenu = MonControl.Controls.Add(msoControlButton)
                With MonMenu
                    .Caption = "Camembert recettes"
                    .OnAction = "CamembertDépensesAnnuelles"
                End With
        End With
        Set MonMenu = Nothing
        Set MonControl = Nothing
    End Sub
    où .Caption est le nom affiché dans le menu
    et .OnAction = "Nom de la macro associée"
    Dans chaque macro, tu mets le code pour afficher les produits dans la bonne colonne.
    Tu peux faire différemment mais ça te fait déjà une solution.

  6. #6
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    208
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 208
    Par défaut
    je te remercie pour ton aide ouskel'n'or

    une question dans mon repertoire j'ai plusieurs fois le meme nom du produits mais pas le meme numero de lots

    qd je fais une recherche de mon produits
    comment je peux faire pour differencier mes produits
    car c'est que si je veux faire une comparason de des parametres entres differents de lots du meme produits

Discussions similaires

  1. Réponses: 11
    Dernier message: 14/07/2008, 18h35
  2. Réponses: 1
    Dernier message: 18/06/2007, 22h15
  3. [débutant] importation de données d'excel vers table
    Par vivelesgnous dans le forum Access
    Réponses: 6
    Dernier message: 24/02/2006, 21h13
  4. import de données avec BCP
    Par doudou10000 dans le forum Outils
    Réponses: 2
    Dernier message: 09/12/2005, 16h10
  5. [DTS] Import de données avec des doublons
    Par Hotchotte dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 24/03/2005, 14h19

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