[VBA] TransferSpreadsheet

Résolu
Bonjour,
J’ai un petit souci de développement qui commence vraiment à me sortir par les oreilles. Donc, au lieu de lancer mon ordinateur par la fenêtre du sixième étage, je préfère vous demander votre avis.

Mon code sert à faire un transfert de la feuille ‘produit’ d’un classeur Excel dans un table Access.

Déjà, je vous mets mon code avec la ligne qui pose problème en gras
    Dim Chemin$
    Dim Repertoire As String, Fichier As String
    
    Repertoire = "B:\A\B\FC\APPLI_FC25\Appli annexe IFRS\Excel\"
    Fichier = Dir(Repertoire & "Annexes Passif Provisions et CA" & "*.xls")
    Chemin = Repertoire & Fichier 
    DoCmd.TransferSpreadsheet acImport, 8, _
    "Produits", Chemin, True, "Produit!A1:I10"


Le problème c’est que je tombe sur cette erreur :
Erreur d'exécution 3011 :
Le moteur de base de données Microsoft Jet n'a pas pu trouver l'objet ‘Produit$A1 :I10’. Assurez-vous que l'objet existe et que vous avez correctement saisi son nom et son chemin d'accès.


Maintenant j’ai essayé :
DoCmd.TransferSpreadsheet acImport, 8, _
    "Produits", Chemin, True, "Produit"
‘Il manque les deux premières colonnes de mon fichier Excel dans ma table

DoCmd.TransferSpreadsheet acImport, 8, _
    "Produits", Chemin, True, "A1 :I10"
‘Je travail sur la première feuille de mon fichier Excel et pas sur celle qui s’appel ‘produit’


Ca commence même à attaquer ma santé, j’ai besoin de vous ;)
--
Benoit.
Enlèves tes doigts sales de mon clavier.
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. on fait j'penses que ça ne suffirait que tu jete ton ordinateur par la fenêtre mais devrais plutoôt te jeter avec avec lui.

    écris moi à sur "le_raud@yahoo.fr" je t'enverais un tuto.
    1
    1. T'as testé de crée une variable avec ton chemin de fichier et d'utiliser la variable dans ta macro ? Ca m'a déjà permis de contourner ce genre de galère...
      0
      1. Tu peux être plus précis? Mon chemin est déjà dans une variable.
        0
      2. quand je mets :
        feuille = "Produit!A1:I10"
        DoCmd.TransferSpreadsheet acImport, 8, _
            "Produits", Chemin, True, feuille
        

        J'ai la même erreur.

        On dirait qu'il interprète mon '!' par un '$'
        0
      3. J'ai vraiment besoin d'aide s'il vous plait
        0
      4. En fait, j'ai juste oublié un "s" dans l'expression "Produits!A1:I10"
        0