Import données Excel dans Form Access

**berti** · 18/10/2007, 17h46

Bonjour, mon souci est le suivant :
1. Je dois importer un fichier Excel
2. Je récupère les informations de cellules données
3. Je mets le résultat dans les champs d'un formulaires

Le souci est que ça ne marche pas tout le temps j'ai le message d'erreur suivant : Erreur d'exécution '462' : Le serveur distant n'existe pas ou n'est pas disponible

J'ai lu sur certains forum qu'il fallait tuer le processus mais ça ne fonctionne pas.

Config : WinXP Pro avec Access 2003 Pro

Je transmets le code également Merci à tous

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
40
41
42
43
44
45
46
47
48
49
50
51
52
fichier = ImportExcel(Me.hwnd, "Importer des fiches contacts", "Allez Cherchez le fichier", "C:\")
 
    Dim AppExcel As Excel.Application
    Dim wbFile As Excel.Workbook
 
    Set AppExcel = CreateObject("Excel.Application")  ' Ouverture d'excel
 
    If Not AppExcel Is Nothing Then
            Set wbFile = AppExcel.Workbooks.Open(fichier, False, True) 'Ouverture du classeur
            If Not wbFile Is Nothing Then
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![num] = Range("A2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![nom] = Range("D2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![adresse] = Range("E2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![cp] = Range("F2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![ville] = Range("G2")
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![selcom] = Range("B2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![seldep] = Range("H2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![numcom] = Range("B2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![dep] = Range("H2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![seltyp] = Range("C2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![selpays] = Range("I2")
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![tel] = Range("K2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![fax] = Range("L2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![port] = Range("M2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![email] = Range("N2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![site] = Range("O2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![selforme] = Range("P2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![SIRENN] = Range("Q2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![naf] = Range("R2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![PDG] = Range("S2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![DG] = Range("T2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![ACHETEUR] = Range("U2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![MARKETING] = Range("V2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![PACKAGING] = Range("W2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![QUALITE] = Range("X2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![PRODUCTION] = Range("Y2")
                Forms![MENU_GENERAL]![SAISIE_CLIENTS]![SAISIE_INFORMATIONS]![groupefi] = Range("J2")
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![CA] = Range("Z2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![caflexo] = Range("AA2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![cahelio] = Range("AB2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![caoffset] = Range("AC2")
 
                ' Fermeture des élements
                 wbFile.Close
                 AppExcel.Application.Quit
                 Set AppExcel = Nothing
            End If
    End If

**Heureux-oli** · 18/10/2007, 19h24

Petite question : pourquoi dans un formulaire ?

**berti** · 18/10/2007, 19h30

Pourquoi dans un formulaire ? Tout simplement qu'il est doit être possible de rajouter d'autres informations sur certains champs et c'est plus conviviable de passer par un formulaire que par une table ou requête

Invité · 18/10/2007, 19h35

Bonjour

Si j'ai bien compris ton code, tu récupères le nom du fichier par la fonction ImportExcel, est-ce que celle-ci te donne le nom du fichier et son chemin à tous les coups.

Et à quel endroit se met le debuggeur lors de l'erreur ?

Starec

**Heureux-oli** · 18/10/2007, 19h51

Envoyé par berti

Pourquoi dans un formulaire ? Tout simplement qu'il est doit être possible de rajouter d'autres informations sur certains champs et c'est plus conviviable de passer par un formulaire que par une table ou requête

tu peux les mettre directement dans la table et ensuite afficher dans un formulaire.

**berti** · 19/10/2007, 09h03

l'erreur se met sur la première ligne ou je récupère l'information de la cellule

Invité · 19/10/2007, 09h22

Bonjour

Tu ouvres un classeur, mais peut-être faut-il que tu désignes la feuille où se trouve les cellules.

Starec

**berti** · 19/10/2007, 13h37

salut starec,
merci pour cette information, mais le problème n'est toujours pas résolu. Ducoup, le message d'erreur s'affiche sur la sélection de la feuille

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Call KillProcess("EXCEL.EXE")
 
    fichier = ImportExcel(Me.hwnd, "Importer des fiches contacts", "Allez Cherchez le fichier", "C:\")
 
    'DoCmd.TransferSpreadsheet acImport, 8, "CLIENTS_TEST", fichier, True
 
    Dim AppExcel As Excel.Application
    Dim wbFile As Excel.Workbook
 
    Set AppExcel = CreateObject("Excel.Application")  ' Ouverture d'excel
 
    If Not AppExcel Is Nothing Then
            Set wbFile = AppExcel.Workbooks.Open(fichier, False, True) 'Ouverture du classeur
            If Not wbFile Is Nothing Then
 
'Erreur sur cette ligne : Erreur d'exécution 462
                Worksheets("CLIENTS").Select
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![num] = Range("A2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![nom] = Range("D2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![adresse] = Range("E2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![cp] = Range("F2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![ville] = Range("G2")
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![selcom] = Range("B2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![seldep] = Range("H2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![numcom] = Range("B2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![dep] = Range("H2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![seltyp] = Range("C2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![selpays] = Range("I2")
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![tel] = Range("K2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![fax] = Range("L2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![port] = Range("M2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![email] = Range("N2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![site] = Range("O2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![selforme] = Range("P2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![SIRENN] = Range("Q2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![naf] = Range("R2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![PDG] = Range("S2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![DG] = Range("T2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![ACHETEUR] = Range("U2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![MARKETING] = Range("V2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![PACKAGING] = Range("W2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![QUALITE] = Range("X2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![PRODUCTION] = Range("Y2")
                Forms![MENU_GENERAL]![SAISIE_CLIENTS]![SAISIE_INFORMATIONS]![groupefi] = Range("J2")
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![CA] = Range("Z2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![caflexo] = Range("AA2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![cahelio] = Range("AB2")
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![caoffset] = Range("AC2")
 
                ' Fermeture des élements
                 wbFile.Close
                 Set wbFile = Nothing
                 AppExcel.Application.Quit
                 Set AppExcel = Nothing
            End If
    End If

Invité · 19/10/2007, 13h41

Re

Tu ne peux pas utiliser Worksheet comme cela, il faut que tu déclares une variable objet comme tu l'as fait pour le Workbook.

Fais une recherche avec Worksheet sur le forum et les FAQs, tu trouveras toutes les infos.

Starec

PS : N'oublie pas les balises codes

**berti** · 19/10/2007, 14h04

tu as raison j'ai bien vu que ma déclaration n'allait pas. J'ai lu sur le support microsoft le problème. Toutefois j'ai maintenant une erreur 1004 Erreur définie par l'application ou par l'objet.

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Call KillProcess("EXCEL.EXE")
 
    fichier = ImportExcel(Me.hwnd, "Importer des fiches contacts", "Allez Cherchez le fichier", "C:\")
 
    'DoCmd.TransferSpreadsheet acImport, 8, "CLIENTS_TEST", fichier, True
 
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
 
    Set xlApp = CreateObject("Excel.Application")  ' Ouverture d'excel
 
    If Not xlApp Is Nothing Then
            Set xlBook = xlApp.Workbooks.Open(fichier, False, True) 'Ouverture du classeur
            If Not xlBook Is Nothing Then
 
                Set xlSheet = xlBook.Worksheets("CLIENTS")
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![num] = xlSheet.Range(xlSheet.Cells(A, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![nom] = xlSheet.Range(xlSheet.Cells(D, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![adresse] = xlSheet.Range(xlSheet.Cells(E, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![cp] = xlSheet.Range(xlSheet.Cells(F, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![ville] = xlSheet.Range(xlSheet.Cells(G, 2))
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![selcom] = xlSheet.Range(xlSheet.Cells(B, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![seldep] = xlSheet.Range(xlSheet.Cells(H, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![numcom] = xlSheet.Range(xlSheet.Cells(B, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![dep] = xlSheet.Range(xlSheet.Cells(H, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![seltyp] = xlSheet.Range(xlSheet.Cells(C, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_OBLIGATOIRE]![selpays] = xlSheet.Range(xlSheet.Cells(i, 2))
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![tel] = xlSheet.Range(xlSheet.Cells(K, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![fax] = xlSheet.Range(xlSheet.Cells(L, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![port] = xlSheet.Range(xlSheet.Cells(M, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![email] = xlSheet.Range(xlSheet.Cells(N, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![site] = xlSheet.Range(xlSheet.Cells(O, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![selforme] = xlSheet.Range(xlSheet.Cells(P, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![SIRENN] = xlSheet.Range(xlSheet.Cells(Q, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![naf] = xlSheet.Range(xlSheet.Cells(R, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![PDG] = xlSheet.Range(xlSheet.Cells(S, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![DG] = xlSheet.Range(xlSheet.Cells(T, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![ACHETEUR] = xlSheet.Range(xlSheet.Cells(U, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![MARKETING] = xlSheet.Range(xlSheet.Cells(V, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![PACKAGING] = xlSheet.Range(xlSheet.Cells(W, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![QUALITE] = xlSheet.Range(xlSheet.Cells(X, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_INFORMATIONS]![PRODUCTION] = xlSheet.Range(xlSheet.Cells(Y, 2))
                Forms![MENU_GENERAL]![SAISIE_CLIENTS]![SAISIE_INFORMATIONS]![groupefi] = xlSheet.Range(xlSheet.Cells(j, 2))
 
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![CA] = xlSheet.Range(xlSheet.Cells(Z, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![caflexo] = xlSheet.Range(xlSheet.Cells(AA, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![cahelio] = xlSheet.Range(xlSheet.Cells(AB, 2))
                Forms![MENU_GENERAL]![IMPORT_CLIENTS]![IMPORT_FINANCIERE]![caoffset] = xlSheet.Range(xlSheet.Cells(AC, 2))
 
                ' Fermeture des élements
                xlBook.Saved = True
                Set xlSheet = Nothing
                Set xlBook = Nothing
                xlApp.Quit
                Set xlApp = Nothing
            End If
    End If

Qu'en penses tu ?