Bonjour,

SVP, Pouvez-vous m'aider à résoudre mon problème qui me prend la tête depuis 2 jours...

J'ai créé un fichier excel à partir d'une requête, jusque là tout va bien.
Mon problème vient de l'enregistrement de ce fichier car le chemin d’accès dépend d'une variable.

Voilà ci-dessous ce que j'ai écrit :

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
 
Dim var_chemin As Variant
Dim var_Nom As Variant
Dim REPONSE As String
 
var_Nom = Forms![entreprise]![].Value
var_chemin = "\\c:\Dossiers\" & var_Nom
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MaRequête", "var_chemin\ " & "CIBLAGE.xls", True
    DoEvents
 
    Dim XL_App As Object
    Set XL_App = CreateObject("Excel.Application")
    With XL_App
        .Visible = True
    End With
 
    Set XL_App = Nothing
    REPONSE = MsgBox("Ciblage" & ".xls" & " a été créé." & "Voulez vous ouvrir le document créé", vbOKCancel)
        If REPONSE = vbOK Then
            shell "explorer " & var_chemin, vbMaximizedFocus
 
        Else
            Exit Function
        End If
J'ai une erreur dans la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MaRequête", "var_chemin\ " & "CIBLAGE.xls", True
Merci d'avance pour vos réponses
Mamanhou