Discussion :

[yblok]

Bonjour,

J'utilise un bouton sur un formulaire pour Exporter sous Excel ma table principale. Tout fonctionne correctement. Voulant créer le bouton inverse pour importer depuis Excel, j'utilise la commande suivante mais rien ne se passe. Pas de message d'erreur mais une table qui reste désespérement vide. Si quelqu'un a une idée de ce qui peut clocher, je le remercie d'avance.

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
29
30
31
32
33
34
35
36
37
38
39
Private Sub BtnImprimDevis_Click()
Dim cho As Byte
Dim NomFichier As String
On Error GoTo err:
cho = MsgBox("Importer la base de données complète.(nécessite la présence du fichier C:\Ehail\Excel\base.xls. Voulez-vous continuer ?", vbYesNo, "EHail")
If cho = vbNo Then
Exit Sub
Else
NomFichier = "C:\EHail\Excel\base.xls"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_Devis", NomFichier, False, "A:DM"
 
End If
err:
If err.Number = 3044 Then
MsgBox "Vous devez créer le chemin d'accès suivant C:\EHail\Excel "
Exit Sub
End If
 
End Sub
 
Private Sub BtnImprimOR_Click()
Dim cho As Byte
Dim NomFichier As String
Dim nom As String
On Error GoTo err:
nom = Forms!F_Start!TTName
cho = MsgBox("Export complet de la base de données. Voulez-vous continuer ?", vbYesNo, "EHail")
If cho = vbNo Then
Exit Sub
Else
NomFichier = "C:\EHail\Excel\" & nom & "Complet.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "T_Devis", NomFichier
End If
err:
If err.Number = 3044 Then
MsgBox "Vous devez créer le chemin d'accès suivant C:\EHail\Excel "
Exit Sub
End If
End Sub

[curt]

Bonjour,

Je crois qu'il te manque quelque chose sur la plage de cellules Excel que tu sélectionnes ("A : DM").... ça serait pas les lignes ???

Je te donne le code que j'ai fait hier avec l'aide que j'ai eu sur le forum en espérant que tu puisses y puiser la solution.

Le code est mis sur le Clic du bouton ImportXL.
J'intègre les cellules XL B4 à D5 dans la table TblAffaire et les cellules XL A8 à D500 dans la table TblDocument.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ImportXL_Click()
    Dim strXLfile As String, strTable As String
 
strXLfile = OuvrirUnFichier(Me.hWnd, "Importation Excel", 1, "Fichier Excel", "xls")
 
' Si l'utilisateur a cliqué sur Annuler
If strXLfile = "" Then Exit Sub
 
DoCmd.TransferSpreadsheet acImport, 8, "TblAffaire", strXLfile, True, "B4:D5"
DoCmd.TransferSpreadsheet acImport, 8, "TblDocument", strXLfile, True, "A8:D500"
 
End Sub

Bon courage.
Curt

[yblok]

Merci, ma plage de cellules était effectivement mal définie.
Bonne continuation