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

VBA Access Discussion :

Ouverture impossible d'un fichier Excel à partir d'une base Access


Sujet :

VBA Access

  1. #1
    Membre régulier
    Homme Profil pro
    financier
    Inscrit en
    juillet 2012
    Messages
    327
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : financier
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2012
    Messages : 327
    Points : 105
    Points
    105
    Par défaut Ouverture impossible d'un fichier Excel à partir d'une base Access
    Bonjour,

    J'essaye d'ouvrir via un code VBA que j'ai trouvé sur le Forum, un fichier Excel en cliquant sur un bouton a partir d'une base Access, un message d'erreur m'indique que le fichier en question a été déplacé, supprimé ou renommé, au débogage, la ligne 18 est surlignée en jaune :
    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
    Private Sub Commande82_Click()
     
        Dim MyXL As Object
        Dim xlapp As Excel.Application
     
        Dim cheminBase As String
        Dim nomFich As String
     
     
        'Va rechercher le répertoire ou se trouve le fichier
        cheminBase = "P:\Budget_DB\Fonctionnement"
        nomFich = "\Réalisations.xlsx"
     
        'Crée une instance de Excel
        Set xlapp = New Excel.Application
     
        'Dans l'instance xls, ouvre le fichier désiré indiqué par chemin et nom fichier
        Set MyXL = xlapp.Workbooks.Open(cheminBase & nomFich)
     
     
            'Affiche les fenetres
        MyXL.Application.Visible = True
        MyXL.Parent.Windows(1).Visible = True
    End Sub
    Ne s'agit il pas d'un problème de version d'Excel ?

    Merci.

    Salutations.

  2. #2
    Membre régulier
    Homme Profil pro
    financier
    Inscrit en
    juillet 2012
    Messages
    327
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : financier
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2012
    Messages : 327
    Points : 105
    Points
    105
    Par défaut
    Bonjour,

    Un petit bout de réponse s'il vous plait ?

    Merci.

  3. #3
    Expert confirmé
    Homme Profil pro
    Webplanneur
    Inscrit en
    octobre 2007
    Messages
    3 391
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : octobre 2007
    Messages : 3 391
    Points : 5 153
    Points
    5 153
    Par défaut
    Salut
    L'erreur 1004 est bien connue ?
    Dans votre code vous faites le mélange des genres. Et en informatique ça ne passe pas !
    Citation Envoyé par adelion7015 Voir le message
    Un petit bout de réponse s'il vous plait ?
    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
    Private Sub Commande82_Click()
    'Early Binding
    Dim xlapp As Excel.Application
    Dim xlWbk As Excel.Workbook
    Dim cheminBase As String
    Dim nomFich As String
     
    'Va rechercher le répertoire ou se trouve le fichier
    cheminBase = "P:\Budget_DB\Fonctionnement"
    nomFich = "\Réalisations.xlsx"
    cheminBase = cheminBase & nomFich
     
    Set xlapp = New Excel.Application
    Set xlWbk = xlapp.Workbooks.Open(cheminBase)
     
    'Affiche les fenetres
    xlapp.Visible = True
    xlApp.Parent.Windows(1).Visible = True
    End Sub
    ou
    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
    Private Sub Commande82_Click()
    'Late Binding
    Dim objXl As Object
    Dim objWbk As Object
    Dim cheminBase As String
    Dim nomFich As String
     
    'Va rechercher le répertoire ou se trouve le fichier
    cheminBase = "P:\Budget_DB\Fonctionnement"
    nomFich = "\Réalisations.xlsx"
    cheminBase = cheminBase & nomFich
     
    Set objXl = CreateObject("Excel.Application")
    Set objWbk = objXl.Workbooks.Open(cheminBase)
     
    'Affiche les fenetres
    objXl.Visible = True
    objXl.Parent.Windows(1).Visible = True
    End Sub
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    CEV UR - ESIROI
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Si la réponse est satisfaisante, alors 1 et n'oubliez pas de clôturer le sujet en cliquant sur

Discussions similaires

  1. [XL-2007] Automatiser des fichiers Excel à partir d'une base de données
    Par mike7 dans le forum Excel
    Réponses: 11
    Dernier message: 29/07/2019, 11h33
  2. [AC-2010] Ouvrir un fichier vidéo à partir d'une base Access
    Par Benez dans le forum VBA Access
    Réponses: 3
    Dernier message: 17/09/2012, 11h39
  3. [MySQL] Génerer un fichier excel à partir d'une base mysql
    Par ilyes_dev dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 16/11/2009, 11h14
  4. Ouverture de fichier Excel à partir d'une page en PHP
    Par leclone dans le forum Langage
    Réponses: 15
    Dernier message: 03/01/2007, 18h00
  5. Réponses: 4
    Dernier message: 02/05/2005, 20h25

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