Discussion :

[beloteux]

Bonjour a tous.

Je suis confronté a un nouveau problème qui se passe... sous XP !

voila, j'ai besoin de faire une exportation via VB, j'utilise donc le code suivant :

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
19
20
21
22
23
24
25
26
27
28
Private Sub Panique_Click()
' Arret des message system
DoCmd.SetWarnings False
 
' lancement de la requete de création de la table
    stDocName = "R_Export"
DoCmd.OpenQuery stDocName, acNormal, acEdit
 
' nom du fichier :
Dim fichier As Variant
 
 
date_aujourdhui = Format(Date, "yyyy-mm-dd")
 
fichier = Environ("USERPROFILE") & "\desktop\" & Application.TempVars("REF_SITE").Value & "_" & date_aujourdhui & "_Assistance.txt"
 
' Exportation
DoCmd.TransferText acExportDelim, "export", "T_Export", fichier
 
' Lance la macro
    stDocName = "M_Export"
    DoCmd.RunMacro stDocName
 
' relance des messages system
DoCmd.SetWarnings True
 
 
End Sub

quand je suis dans ma base, tout fonctionne correctement sous access pro, et sous vista.
Dès que je crée mon package avec le runtime pour l'installé sur XP, ma base fonctionne correctement a l'exclusion de cette fonction.
j'ai le message suivant : "Cette application a été arretée a cause d'une erreur d'execution.
Elle ne peut pas continuer et va etre fermée"

mais je ne vois vraiment pas pourquoi j'ai ce message pouisque tout fonctionne sous vista !

Merci par avance pour votre aide

[Muhad'hib]

Salut,

Je pencherai pour Environ ou Application.TempVars (que je ne connais pas d'ailleur)

mets ça dans ton code pour vois quelle ligne provoque l'erreur :

Code :

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

1
2
3
4
Debug.Print Environ("USERPROFILE")
MsgBox "Environ OK"
Debug.Print Application.TempVars("REF_SITE").Value
MsgBox "TempVars OK"

[argyronet]

Bonjour,

Qu'est censé faire la macro M_Export ?

Argy

[beloteux]

Bonjour,

M_Export ne fait qu'afficher une msgbox de façon un peu plus evolué grâce au @ entre les phrases...

par contre, j'ai trouvé un bon début... le problème vient de l'appelation du desktop pour le bureau. En effet, pour vista, c'est bien desktop, mais pour XP c'est bureau !

donc, il me reste a trouver le moyen de faire la distinction entre ces deux OS pour savoir quand utiliser desktop et quand utiliser bureau.

[beloteux]

la fonction VarTemps ne fait que rappeler une variable temporaire.

voici la fonction (issue du tutoriel sur les variable temporaire)

Code :

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

1
2
3
Function RetourTempVar(strTempVar As String) As Variant
    RetourTempVar = Application.TempVars(strTempVar)
End Function

[argyronet]

donc, il me reste a trouver le moyen de faire la distinction entre ces deux OS pour savoir quand utiliser desktop et quand utiliser bureau.

Eh bien voilà comment...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function SHGetFolderPath Lib "shfolder" Alias "SHGetFolderPathA" (ByVal hwndOwner As Long, ByVal nFolder As Long, ByVal hToken As Long, ByVal dwFlags As Long, ByVal pszPath As String) As Long
 
Public Function GetDesktopFolderName() As String
Dim strBuffer                                          As String
Dim strDesktopFolder                                   As String
Dim lngReturn                                          As Long
Dim lngCSIDL                                           As Long
    lngCSIDL = &H19
    strBuffer = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strBuffer)
    strDesktopFolder = Left$(strBuffer, InStr(1, strBuffer, Chr(0)) - 1)
    GetDesktopFolderName = Mid$(strDesktopFolder, InStrRev(strDesktopFolder, "\") + 1)
End Function

Argy

[Muhad'hib]

Ou en plus simple (mais bcp moins propre) tu peux tester l'existance des 2 répertoires.

[beloteux]

merci a vous deux, je vais essayer...

j'ai bien essayé en vitesse la solution de argyronet mais ca me ressort une erreur... je vais etudier la question.

merci a vous

[argyronet]

j'ai bien essayé en vitesse la solution de argyronet mais ca me ressort une erreur...

Laquelle ?

Argy

[Tofalu]

Au passage, il sera peut être même préférable de remplacer l'utiliser de l'environ USERPROFILE par une seule fonction dérivée de celle d'argy

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function GetDesktopFolderPath() As String
Dim strBuffer                                          As String
Dim strDesktopFolder                                   As String
Dim lngReturn                                          As Long
Dim lngCSIDL                                           As Long
    lngCSIDL = &H19
    strBuffer = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strBuffer)
    GetDesktopFolderPath = Left$(strBuffer, InStr(1, strBuffer, Chr(0)) - 1)
 
End Function

[beloteux]

ben, en fait, j'ai trouvé un truc tout simple...

Code :

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

1
2
Dim oWsh As New WshShell
chemin = oWsh.SpecialFolders("Desktop")

[Tofalu]

Qui nécessite l'activation d'une référence supplémentaire alors que l'api non