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 classeur excel en vba


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    83
    Détails du profil
    Informations personnelles :
    Âge : 51
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2006
    Messages : 83
    Par défaut ouvrir classeur excel en vba
    Bonjour à tous,

    Dans une ListBoxResult j'ai réussi à afficher les classeur présent dans un endroit bien spécifique sur mon Disque dur, mais je voudrais maintenant pouvoir ouvrir un fichier à partir d'un bouton (btnConsMod) que j'aurais au préalable sélectionner dans cette ListBoxResult.

    Je crois que le code doit être du genre:
    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
     
     
    Private Sub btnConsMod_Click()
     
    'Déclaration des variables
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
     
    'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
    'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("C:\MonFichierExcel.xls") 
    'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
     
    End Sub
    Je crois que il faut passer par un ....ListBoxResult.select
    Mais je ne sais vraiment plus

    Merci de votre aide et à bientôt.

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 682
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 682
    Par défaut
    bonjour, ca va un peu dépendre de ce que tu affiches et de ce que tu récupères de ta listbox, mais tu mettras le résultat (traité ou non) dans la partie .open(resultat_ici)
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Migrer les applications VBA Access et VBA Excel vers la Power Platform
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre confirmé
    Inscrit en
    Septembre 2007
    Messages
    220
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Septembre 2007
    Messages : 220
    Par défaut
    Salut,

    Pas testé mais si tu fais à la place de
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set wbExcel = appExcel.Workbooks.Open("C:\MonFichierExcel.xls")
    plutôt un truc du genre
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set wbExcel = appExcel.Workbooks.Open(ListBoxResult.Selected(0))
    Ca pourrait marcher je pense.

    Dis si ca va

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    83
    Détails du profil
    Informations personnelles :
    Âge : 51
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2006
    Messages : 83
    Par défaut
    Voila l'essais avec ce que tu m'a proposé melouille56, mais il me trouve une erreur que je ne comprend pas pour rappel j'ai mis le code suivant pour ouvrir le fichier se trouvant dans ma ListBoxResult

    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
     
    Private Sub btnConsMod_Click()
    'Déclaration des variables
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
     
    'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
    'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open(ListBoxResult.Selected(0))
    'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
     
    End Sub
    Mais il me dit:

    erreur d'exécution '1004':
    'vrai.xls' intouvable. Vérifiez l'orthographe du nom de classeur et la validité de l'emplacement.
    mais je ne copmprend pas pourquoi il me dit que vrai.xls est introuvable puisqu'il n'existe pas du tout et que ce n'est pas celui qui était présent dans ma ListBoxResult, donc je ne voit pas vu que en aucun moment dans mon code je ne renseigne un fichier "vrai.xls".
    Merci pour ta réponse et ton aide.@++

  5. #5
    Membre chevronné
    Profil pro
    Inscrit en
    Février 2007
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 491
    Par défaut
    bonjour,

    la propriété .selected renvoie vrai ou faux
    Selected, propriété


    Renvoie ou définit l'état de sélection des éléments dans un contrôle ListBox.

    Syntaxe

    object.Selected( index ) [= Boolean]

    La syntaxe de la propriété Selected comprend les éléments suivants :

    Élément Description
    object Objet valide.
    index Nombre entier compris entre 0 et le nombre d'éléments de la liste moins un.
    Boolean Facultatif. Spécifie si un élément est sélectionné.


    Valeurs

    Les valeurs de Boolean sont les suivantes :

    Valeur Description
    True L'élément est sélectionné.
    False L'élément n'est pas sélectionné.
    je pense qu il faut utilser .value


    non testé

  6. #6
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonjour

    si la listbox contient uniquement le nom du classeur, tu dois ajouter le nom du répertoire:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    appExcel.Workbooks.Open("C:\dossier\" & ListBoxResult.Selected(0))

    michel

  7. #7
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    83
    Détails du profil
    Informations personnelles :
    Âge : 51
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2006
    Messages : 83
    Par défaut
    Je vient de faire les modifications mais il me renvoie toujours la même erreur sans le code erreur
    '"C:\Documents and Settings\vincent\Bureau\vrai.xls' intouvable. Vérifiez l'orthographe du nom de classeur et la validité de l'emplacement.
    et j'ai également essayez le .value mais il me dit
    erreur d'éxécution 13
    incompatibilité de type
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Private Sub btnConsMod_Click()
    'Déclaration des variables
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
     
    'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
    'Ouverture d'un fichier Excel
    appExcel.Workbooks.Open ("C:\Documents and Settings\vincent\Bureau\" & ListBoxResult.Selected(0))
    'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
     
    End Sub
    avec toutes ses erreurs ca commence à être trop dur pour mes petites connaissances
    Un tout grand merci pour votre aide à tous les deux et @ bientôt.

  8. #8
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonjour

    Il me semble que tu as la réponse dans le message d'erreur:
    Vérifiez l'orthographe du nom de classeur et la validité de l'emplacement.
    Revérifie que tu as bien un classeur "vrai.xls" dans le répertoire "C:\Documents and Settings\vincent\Bureau"


    tu peux aussi faire un essai en ouvrant manuellement ton classeur "vrai.xls" et y placer cette macro qui récupère le nom et le chemin complet du fichier. Tu pourras ainsi le comparer avec l'emplacement que tu indiques dans ta procédure:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox ThisWorkbook.FullName


    michel

  9. #9
    Inactif  
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    2 054
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 054
    Par défaut
    Citation Envoyé par SilkyRoad Voir le message
    bonjour

    si la listbox contient uniquement le nom du classeur, tu dois ajouter le nom du répertoire:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    appExcel.Workbooks.Open("C:\dossier\" & ListBoxResult.Selected(0))

    michel
    Bonjour,
    OK pour le chemin du/des répertoirs..
    Sauf que la fonction 'Selected' renvoi vrai ou faux suivant que la ligne est sélectionnée ou pas, d'ou la recherche d'un fichier 'Vrai'
    A mon sens il faudrait voir..

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    appExcel.Workbooks.Open("C:\dossier\" & ListBoxResult.List(ListBoxResult.listindex))
    Par contre, si la listbox est avec MultiSelect=True
    il faut un bouton pour lancer l'opératiopn et la macro suivante dans l'événement clic du bouton
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    dim i as integer
        For i = 0 to ListBoxResult.count-1
            if ListBoxResult.selected(i) then
                appExcel.Workbooks.Open("C:\dossier\" & ListBoxResult.List(i))
            end if
        next i
    A+

  10. #10
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bien vu ... ;o)

    bonne journée
    michel

  11. #11
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    83
    Détails du profil
    Informations personnelles :
    Âge : 51
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2006
    Messages : 83
    Par défaut
    bien vu pour le vrai faux
    je vient de faire les changements mais il me trouve une erreur
    erreur d'éxécution 91
    Variable objet ou variable de bloc with non définie
    à la ligne:
    Set wsExcel = wbExcel.Worksheets(1)
    et mon MultiSelect est sur: fmMultiSelectSingle
    Comment faire?
    Un tout grand merci d'avance et @ bientôt

Discussions similaires

  1. Impossible d'ouvrir un classeur excel en VBA
    Par isma616 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 11/08/2010, 14h04
  2. [SP-2007] Ouvrir classeur Excel Service via Infopath
    Par HttpPointCom dans le forum SharePoint
    Réponses: 0
    Dernier message: 28/05/2009, 10h55
  3. Ouvrir classeur excel et affecter valeur dans une cellule
    Par turbo_cro dans le forum VBA Access
    Réponses: 7
    Dernier message: 02/09/2008, 10h13
  4. Sauvegarde d'un classeur Excel en VBA
    Par olivepao dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 28/02/2008, 16h50
  5. Ouvrir classeur Excel "protégé" par mot de passe
    Par LostIN dans le forum Sécurité
    Réponses: 1
    Dernier message: 19/07/2006, 21h24

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