Discussion :

[bulmish]

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
Private Sub cmdImportR_Click()
 
Dim strMaTable As String
Dim strMonFichier As String
Dim strZoneImportee As String
 
strMonFichier = "Chemin du Fichier"
strMaTable = "Table Destination"
strZoneImportee = "Onglet!NomZoneImportee"
Call Importdata(strMonFichier, strMaTable, strZoneImportee )
 
End Sub
 Public Function Importdata(MyFile As String, tb As String, ByVal mysh As String)
 On Error GoTo err_import
 DoCmd.TransferSpreadsheet acImport, 8, tb, MyFile, True, mysh
 Exit Function
err_import:
 MsgBox Err.Description
 Resume Next
 
 End Function

strZoneImportee = "Onglet!NomZoneImportee"
quel est son rôle, est-ce un code VBA?

[Jeannot45]

strZoneImportee = "Onglet!NomZoneImportee"
quel est son rôle, est-ce un code VBA?

Ce n'est pas du code.
Onglet correspond au nom de ta feuille

Pour définir un nom de zone à portée limitée dans Excel.
1. Tu ouvres ton classeur
2. Tu sélectionnes la zone que tu veux importer.
3. Dans le ruban, tu cliques ur l'onglet : Formules et dans le groupe : Nom définis, tu cliques sur Définir un Nom
4. Dans la boite de dialogue, tu saisis un nom (sans Espace) suffisamment évocateur des données qu'il représente et dans la partie Zone, tu choisis : Feuille
5. Tu fermes et enregistres ton classeur
6. Dans Access, tu remplaces "Onglet!NomZoneImportee" par "NomDeTaFeuille!NomDeTaZone"



Bine sur à faire pour les quatre feuilles que tu as à importer

Bonne continuation