Discussion :

[deaqu1]

Bonjour,
Je voudrais importer le contenu d'une cellule (une seule) d'un fichier Excel vers Access, j'ai regardé sur les aides que vous mettez à dispo, mais je n'ai pas trouver mon bonheur...
Je sais qu'il faut utiliser quelque chose de la forme

Code :

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

1
2
 
DoCmd.TransferSpreadsheet acImport, 8, "Employés","C:\Fichier.xls", True, "C1"

Mais je n'arrive pas à le mettre en oeuvre!
Une petite aide serait la bienvenue

Merci encore

[Arkham46]

salut,

il faut toujours indiquer une plage, même pour une seule cellule --> C1:C1
et il ne faut pas mettre true si tu n'as pas le nom du champ dans ta plage.

Code :

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

1
2
 
DoCmd.TransferSpreadsheet acImport, 8, "Employés","C:\Fichier.xls", False, "C1:C1"

la colonne de la table sera nommée F1 par défaut.

[=JBO=]

Bonjour,

Je sais qu'il faut utiliser quelque chose de la forme

Code :

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

1
2
 
DoCmd.TransferSpreadsheet acImport, 8, "Employés","C:\Fichier.xls", True, "C1"

Mais je n'arrive pas à le mettre en oeuvre!

Apparemment il faut absolument désigner une "portée", avec une cellule de début et une cellule de fin... donc dans ton cas ça donnerait "C1:C1".

Sinon, je pense que tu pourrais avoir un problème de cporrespondance entre les en-têtes Excel et les noms de champs correspondants dans la table [Employés].

=JBO=

[deaqu1]

J'en suit revenu à du code plus "manipulable"

J'ai:

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
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("D:\Documents and settings\propriétaire\bureau\classeur1.xls")
    'Ajouter une feuille de calcul nommée Toto
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Name = "Toto"
 
'   Set xlSheet = xlsBook.Worksheets.Open
'   xlSheet.Name = "feuil1"
 
    'Manipuler une cellule
    xlSheet.Cells(1, 1) = "je suis dans la ligne1 et colonne1"
    xlSheet.Cells(1, 1) = "tata"
    toto = xlSheet.Cells(1, 1)

Ca marche bien qd je crée une feuille mais je n'arrive pas à ouvrir une feuille existante...
Ma commande est-elle mauvaise?

[deaqu1]

J'utilise le code:

Code :

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

titi = xlBook.Worksheets("Feuil1").Range("A1:A1")

et ca marche, merci qd meme...

[=JBO=]

Voilà une proposition:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("D:\Documents and settings\propriétaire\bureau\classeur1.xls")
 
    'Référencer la feuille nommée "feuil1"
    Set xlSheet = xlsBook.Worksheets("feuil1")
 
    'Manipuler une cellule
    xlSheet.Cells(1, 1) = "je suis dans la ligne1 et colonne1"
    xlSheet.Cells(1, 1) = "tata"

[=JBO=]

Tu peux simplifier encore un peu...

Code :

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

titi = xlBook.Worksheets("Feuil1").Range("A1")

[deaqu1]

Pas fo, encor merci