Chemin dossier temporaire Access [Résolu]

[jarod1990]

Bonjour,
je cherche à identifier le chemin du dossier temporaire sous access pour y enregistrer des fichiers générés par vba.

Actuellement j'essaye d'utiliser ça pour récupérer le chemin :
dans un module :

Code :

Declare Function DossierTemp Lib "Kernel32.dll" Alias "GetTempPathA" (ByVal Longueur As Long, ByVal Pointeur As String) As Long

et dans le forms :

Code :

1
2
3
4
5
6
7
Sub Savedautotemp()
Dim Resultat As Long
Dim temp As String
temp = String$(255, 32)
Resultat = DossierTemp(255, temp)
Msgbox temp
end sub

mais voilà, msgbox me donne simplement une grande fenêtre vide...
(pour info, ceci fonctionne sous excel)
Merci de vos conseils.

[pgz]

Bonjour.

Tu peux essayer ce code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Public Function GetTemporaryFolderPath() As String
Dim sBuffer As String
Dim lngPath As Long
Const MaxPath As Long = 260
 
sBuffer = String(MaxPath, Chr(0))
lngPath = GetTempPath(MaxPath, sBuffer)
GetTemporaryFolderPath = Left$(sBuffer, lngPath)
 
End Function
 
 
Sub test()
MsgBox GetTemporaryFolderPath
End Sub

Cordialement,

PGZ

[jarod1990]

Merci pour le code mais il ne fonctionne toujours pas.
J'ai résolu mon problème en construisant le chemin dossier temporaire sachant qu'entre les différents utilisateurs il n'y a que le nom de session qui change... on verra pas la suite si la solution fonctionne bien.

En tout cas, Merci.

Cordialement.

Jarod