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

Access Discussion :

Excel/Access & Mot de passe


Sujet :

Access

  1. #1
    Membre du Club
    Excel/Access & Mot de passe
    Bonsoir,

    J'ai importé une table attachée sur Access basée sur un classeur Excel que j'ai chiffré par mot de passe. Lors de l'importation j'ai eu un message d’erreur, j'ai vite compris que le mot de passe empêchait la liaison avec ce dernier.
    J'ai donc d’abord ouvert le classeur pour pouvoir l'importer dans ma BDD... jusque-là ça roule sauf qu'une fois fermé mon classeur n'est de nouveau plus accessible sur Access pour cause du mot de passe.

    1 ) Existe-il une solution pour indiquer à Access qu'il doit ouvrir ce classeur avec le mot de passe XXXX .
    2) Si oui, en cas de changement du mot de passe je devrais mettre à jour le code sur Access je suppose .

    Cordialement;

  2. #2
    Rédacteur/Modérateur

    Bonjour,

    L'erreur que tu rencontres ne peut pas être résolue de facon directe, mais il existe des facons détournées d'arriver à tes fins :
    Une solution en anglais icitte :
    https://www.connectionstrings.com/ho...xcel-workbook/
    Cycle de vie d'un bon programme :
    1/ ca fonctionne 2/ ca s'optimise 3/ ca se refactorise

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

    Apprendre à programmer avec Access 2016 et Access 2019

    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 du Club
    Salut,

    Merci je vais essayer d'apdapter ce code à mon projet, c'est pas gagné !

    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
    'Open the Excel workbook to prompt for the password
    Dim xl As Object
    Set xl = GetObject(CurrentProject.Path & "\" & "MASTER JAN 2009.xls")
     
    'Now open the workbook to read/write/whatever
    Dim cnn1 As New ADODB.Connection
    Dim rst1 As ADODB.Recordset
    Dim strExcelName As String = "MASTER JAN 2009.xls"
    Dim strWkBkName As String = "[MASTER 2008$]"
    cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
    "Data Source=" & CurrentProject.Path & "\" & strExcelName & ";" _
    "Extended Properties=""Excel 8.0;"";"
    Set rst1 = New ADODB.Recordset
    rst1.Open strWkBkName, cnn1, , , adCmdTable
    Do Until rst1.EOF
        'process your data here
        rst1.MoveNext
    Loop

###raw>template_hook.ano_emploi###