Discussion :

[jib2b]

bonjour,

Je suis dans une macro qui doit utiliser des requete.
Je rempli une colonne et ensuite, je souhaiterai effectuer une requete sur cette colone. Quand je clique sur le bouton j'ai une erreur 424 sur cette ligne:
docmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Citrix", chemin, True, "User!A1:A5"

voici mon code:

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
Sub import()
Dim chemin As String
Dim feuille As String
 
feuille = "User!"
 
Set wbExcel = ThisWorkbook
Set wsExcel = wbExcel.Worksheets("User")
 
chemin = ThisWorkbook.Path
chemin = chemin & "\UserSummit.xls"
 
docmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Citrix", chemin, True, "User!A1:A5"
 
End Sub

Avez vous une idée s'il vous plaît.

ps: j'ai tout tester a la place de acSpreadsheetTypeExcel8 (car je ne sais pas trop quoi mettre: _, 9 acSpreadsheetTypeExcel9...)

J'ai une deuxieme question?
Mon fichier access est sur mon bureau et se nomme toto.mbd... Dans mon code je ne le renseigne nul part, est ce normal?

merci...

[helas]

cela fonctionne parfaitement

Code :

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

1
2
3
4
5
6
 
Sub import()
 Dim fichier As String 
 fichier = "D:\Classeur.xls"
 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Table1", fichier, True, "Feuil1!B:C"
End Sub

[jib2b]

Bonjour,

J'ai repris le code (qui n'a guerre changé par rapport au mieux). J'ai rempli la colonne, j'ai appuyer sur le bouton et là j'obtiens une erreur 424 "Objet requis". J'ai cliqué sur le bouton déboggage, il me surligne la ligne

Code :

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

1
2
 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Citrix", fichier, True, "User!A"

en mettant la souris sur certain champs j'obtiens ceci
acImport=VIDE
acSpreadsheetTypeExcel8=VIDE
fichier= le chemin de ma feuille excel
True=Vrai (normal, j'ai envie de dire)

Avez vous une reponse à m'apporter?

Merci

[helas]

remplacer acImport par 0
et acSpreadsheetTypeExcel8 par 8

la table Citrix existe-t-elle avec le nom des champs correspondant aux entêtes de colonnes dans Excel et l'onglet User existe-t-il dans le classeur ?

[jib2b]

bonjour,

en fait, il fallait juste rajouter une référence dans excel.
Outils> reference> cochez microsoft 3.X library


merci qd même