Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
nBufferLenght étant la longueur de la chaine du nom du répertoire et lpBuffer pointe sur la chaine de caractère du répertoire
> GetTempPath (lngTemp, strTemp) ' strTemp contient ton répertoire
2. File System Object (plus simple)
Charge la référence Microsoft Scripting puis tapes le code
Dim fs As New FileSystemObject
Dim dossier As Folder ' défini l'objet répertoire
Set dossier = fs.GetSpecialFolder(2) ' récupère le temp
MsgBox (dossier)
Pour info, la constante de GetSpecialFolder peut être :
SystemFolder (=1) => répertoire système
TemporaryFolder (=2) => répertoire temporaire
WindowsFolder (=0) => répertoire windows.