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 :
J'ai une erreur dans la ligne :
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]![N°].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
Merci d'avance pour vos réponses
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MaRequête", "var_chemin\ " & "CIBLAGE.xls", True
Mamanhou
Partager