can't set arguments in procedure access 2010

[sabinaS]

Bonjour tout le monde!
J'ai un gros pbm avec VBA editor et je n'ai aucune idée d'ou il vient.
En fait, je n'arrive pas à déclarer la procedure avec des parametres, c-à-d
vba editor ne reconnait pas le code comme ca: "Public Sub GetPath(strPath as String) " comme une subroutine et le code ne marche pas. Si j'enleve le parametre ,tout marche comme il faut!

Cette subroutine doit etre ouverte depuis Excel et utiliser strPath qui a ete definie en Excel comme chemin d'access vers ce fichier Excel

Est-ce que quelqu'un a des idées pourqoui ce problème éxiste et comment le contourner?

Merci en avance

[loufab]

Bonjour,
Je regarde dans ma boule de cristal ! je regarde, je regarde mais je ne vois rien... il se peut que ma boule de cristal n'ait pas l'option Forum Developpez...

Peut-être qu'en postant ton code, ton appel et tes déclarations ça irait mieux pour ma boule de cristal.

Dans l'attente de vrais renseignements...

Cordialement,

[sabinaS]

Lol, pour le grand voyant:
Le code est tout simple
Code Access:

Code :

1
2
3
4
5
6
7
8
9
 
Option Compare Database
 
Public Sub GetPath()
 
Dim strEmplace As String
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, _
"TempPrice", strEmplace, HasFieldNames:=True, Range:="Sheet2!"
End Sub

Code Excel:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CommandButton3_Click()
 
 
Dim acApp As New Access.Application
 
strEmplace = ThisWorkbook.FullName
Set acApp = New Access.Application
 
acApp.OpenCurrentDatabase ("\\gnbfiler18.gnb.st.com\soltobsa$\Windows\My Documents\Jolbars_UI_08-03-11 19h00.accdb")
acApp.Visible = True
 
acApp.Run "GetPath"
 
acApp.Quit
Set acApp = Nothing
 
End Sub

L'idée c'est de faire de sorte que lors de l'importation de feuille, Access utilise le chemin pour le fichier definie par excel. J'ai lu sur les forums qu'une façon de le faire c'est de déclarer comme parametre de sub le string en question. C'est que je n'arrive pas à faire.(Le code si-dessus ne marche pas comme il faut bien sur)