Discussion :

[SG2607]

Bonjour à tous,
je souhaite automatiser l'importation d'un fichier excel vers une table access, le problème est que dans mon fichier excel, j'ai deux feuilles qui doivent être importée chacune dans une table différente.
Dans le fichier excel, l'importation de la première feuille se fait sans problème, j'ai créé dans access un bouton auquel j'ai associé le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub B_Update_T_Global_Maturity_Click()
 
    DoCmd.SetWarnings False
    DoCmd.OpenQuery " Q6_empty_T_Global_Maturity_before_update", acViewNormal, acEdit
    DoCmd.SetWarnings True
    DoCmd.TransferSpreadsheet acImport, 10, "T_Global_Maturity", CurrentProject.Path & "\globalmaturité.xlsx", True, ""
    Beep
    MsgBox "Importation Finished", vbInformation, "Importation"
 
End Sub

maintenant, je voudrais importer dans une autre table qui existe déjà dans access, la deuxième feuille de mon fichier excell. Je voudrais donc créer un autre bouton pour automatiser l'importation mais qu'est-ce que je dois modifier dans mon code pour lui spécifier quelle feuille importer ?

Merci pour votre aide !!

[Jean-Philippe André]

salut,
regarde dans la liste de paramètres de la fonction TransfertSpreadSheet, tu peux préciser le range de cellule que tu veux importer/exporter. C'est à ce niveau là que tu définis le nom de la feuille qui t'intéresse

[SG2607]

OK, j'ai trouvé le range, comment dois-je l'écrire ? je mets le nom de la feuille entre [], entre "" ?
est-ce que je suis aussi obligée aussi spécifier le range de cellules parce qu'évidemment à chaque mise à jour ce range va changer et s'allonger ?
Merci pour ton aide

[Jean-Philippe André]

as-tu essayé les syntaxes ?
si tu te limites à une feuille, pas la peine de spécifier le nombre de lignes à importer

[SG2607]

je vais essayer de regarder tout ça
merci pour ton aide

[SG2607]

j'ai bien essayé d'ajouter le nom de la feuille au niveau du [range] en le mettant entre "", comme indiqué ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "T_Harvest_recommendation", CurrentProject.Path & "\globalmaturité.xlsx", True, "harvest_recommendations"

mais j'obtiens un message d'erreur, il ne trouve pas l'objet 'harvest_recommendations', et me dit de vérifier le path...
Dans l'exemple donné dans l'aide, le [range] correspond à une plage de cellule, pas à une feuille particulière.
jpcheck, qu'es-ce que tu entends par "as-tu essayé les syntaxes" ? Je suis désolée, je suis plus que novice dans le code

Merci

[besly]

Bonjour,

J'ai le même pb que toi, personne n'a la solution ?

[LedZeppII]

Bonsoir,

le range est de la forme Nom_Feuille!Plage_de_cellules

On peut omettre le nom de la feuille, la plage de cellules, ou les deux.

Sans la plage de cellules (on conserve le point d'exclamation) :
Nom_Feuille!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, _
      "Table1", "C:\Mes documents\Classeur1.xlsx", _
      True, "Ctl Excel!"

Sans le nom de la feuille :
Plage_de_cellules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, _
      "Table2", "C:\Mes documents\Classeur1.xlsx", _
      True, "A1:B31"

A+

[besly]

Merci, ça marche nikel !

[SG2607]

Merci beaucoup LedZeppII ! ça marche super bien ! il me manquait juste le petit "!" !