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 :

Ouvrir un fichier déterminé depuis une userform [XL-2000]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    544
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 544
    Par défaut Ouvrir un fichier déterminé depuis une userform
    Bonjour,
    Si jamais la question été traitée, je vais me faire ramasser mais je me risque: Par une userform je veux pouvoir sélectionner une série de lignes d'une feuille sur lesquelles ma procédure principale agira; je dois donc pouvoir choisir le classeur où se trouve cette feuille. J'ai pensé que je pouvais faire apparaître le contenu du dialogue d'Excel "Fichier>ouvrir" dans une ListBox mais je n'y arrive pas (après avoir essayé plusieurs constantes de la collection Dialogs).
    Est-ce que ce que je cherche à faire est possible ?
    Comment faire apparaître le contenu d'un répertoire dans ma userform ?
    Merci pour toute piste ou solution
    Cordialement
    Pierre
    P.S. Pour la USF mon code se limite à l'initialiser et le faire s'afficher. Je ne le joins pas (pour l'instant du moins)

  2. #2
    Membre Expert
    Inscrit en
    Septembre 2007
    Messages
    1 142
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 142
    Par défaut
    Bonjour,

    Pourtant avec ceci tu devrais pouvoir choisir ton classeur
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Dim fic As String
    With Application.FileDialog(msoFileDialogOpen)
        .Show
        fic = .SelectedItems(1)
    End With
    Workbooks.Open fic

  3. #3
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    544
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 544
    Par défaut Ouvrir un fichier déterminé depuis une userform
    Bonsoir et merci anasecu,
    Ca a l'air simple mais je ne sais pas où je dois saisir ce code; je l'ai mis dans la Private Sub de mon Listbox mais ça ne donne rien. J'ai 7 contrôles sur ma USF, lequel est-ce qui doit recevoir ce code ?
    Merci de préciser pour un novice ès Userforms.
    Bonne soirée
    Cordialement
    Pierre

  4. #4
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour

    Le mieux devrait être logiquement un bouton prévu à cet usage.

    Double-clic sur le bouton.

    Il va t'ouvrir le module de l'UserForm avec une procédure vide

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
     
    End Sub
    Tu fais un copier-copier du code dans la procédure vide.

    Pour tester:

    Tu cliques sur le bouton Exécuter (ou F5).
    L'userForm va s'afficher.
    Tu cliques sur le bouton
    Une boîte de dialogue familière va s'afficher.

  5. #5
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    544
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 544
    Par défaut Ouvrir un fichier déterminé depuis une userform
    Bonjour clémentmarcotte et merci,
    Pardon d'avoir tardé à réagir, je n'ai pas eu de notification.
    J'ai créé un bouton qui s'appelle "Comm_choix_fichier" mais quand je double-clicke dessus le module du userform ne contient pas la procédure vide correspondante. Je dois faire une erreur mais je ne vois pas laquelle. Merci d'avance de continuer à m'aider.
    Bonne journée
    Cordialement
    Pierre

  6. #6
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    544
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 544
    Par défaut Ouvrir un fichier déterminé depuis une userform
    Rebonjour,
    J'ai trouvé pourquoi le module du nouveau bouton ne s'affichait pas (mode création validé). J'ai donc pu coller le code proposé par anasecu mais nouveau souci: FileDialog et MsoFileDialogOpen déclenchent l'erreur "Variable non définie" bien que ces éléments figurent dans mon explorateur d'objets. Où est l'erreur ?
    Merci d'avance.
    Bien à vous
    Pierre

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Ouvrir un fichier Excel depuis un Userform Word
    Par formabox dans le forum VBA Word
    Réponses: 2
    Dernier message: 12/10/2016, 18h05
  2. Rechercher et ouvrir ou creer un fichier excel depuis un userform
    Par YanouW dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 02/12/2015, 12h21
  3. Ouvrir fichier pdf depuis une macro sans hyperlink
    Par mctahboo dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 29/09/2015, 12h53
  4. Ouvrir un fichier contenu dans une webapp depuis une servlet
    Par shawty dans le forum Servlets/JSP
    Réponses: 2
    Dernier message: 26/08/2008, 14h10
  5. Ouvrir un fichier pdf depuis une macro
    Par Maluje dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 28/03/2008, 17h51

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