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 :

message windows lors de l'import de DB access [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    20
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 20
    Par défaut message windows lors de l'import de DB access
    Est-ce que quelqu'un connait un moyen d'éviter qu'apparaisse le cadre windows intitulé : Tapez les informations d'initialisation de MS JET OLE DB. ?

    J'ai créé une macro qui importe les données d'une base de données access. Je l'ai utilisé une bonne dizaine de fois sans qu'aucun encadré n'apparaisse et maintenant il apparait à chaque fois. Je joins cette macro :

    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
    With ActiveSheet.QueryTables.Add(Connection:=Array( _
            "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=Z:\GEST_EXP\SOC02\Gestc - Copie.mdb;Mode=Share Deny Write" _
            , _
            ";Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine " _
            , _
            "Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New " _
            , _
            "Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Comp" _
            , "act=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
            ), Destination:=Range("A1"))
            .CommandType = xlCmdTable
            .CommandText = Array("Article")
            .Name = "Gestc - Copie"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .SourceDataFile = "Z:\GEST_EXP\SOC02\Gestc - Copie.mdb"
            .Refresh BackgroundQuery:=False
        End With

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    20
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 20
    Par défaut oups
    Désolé fausse alerte, c'est parce que j'avais oublié de fermer ma base de données access....

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

Discussions similaires

  1. message erreur lors de l'import
    Par vince2005 dans le forum Import/Export
    Réponses: 1
    Dernier message: 06/01/2010, 15h47
  2. [XSD] Message d'erreur lors de l'import d'un XML
    Par phoenixz22 dans le forum Valider
    Réponses: 1
    Dernier message: 04/10/2007, 09h08
  3. [Windows XP] Pb d'encodage de caractères lors de l'import
    Par Celeri dans le forum Installation
    Réponses: 5
    Dernier message: 19/06/2006, 23h13
  4. Réponses: 4
    Dernier message: 27/10/2005, 11h05
  5. Message d'erreur Windows lors de l'exécution de l'appli D6-
    Par kolac dans le forum Bases de données
    Réponses: 4
    Dernier message: 07/12/2004, 17h55

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