Discussion :

[Blado_sap]

Bonjour à tous,

je vous expose mon problème
j'ai une table dans lequel je met des noms de chemins d'accès

Exemple : C:\Dossier

et je voudrais concaténer ce champ de la forme:

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
 
 
Private Sub Export_enplace_excel_Click()
Dim qd As QueryDef
Dim sql_chemin
Dim rs_chemin As dao.Recordset
'id_chemin = 5 --> Echafaudage en place
sql_chemin = "SELECT * FROM T_chemin WHERE id_chemin =5 ;"
Set rs_chemin = CurrentDb.OpenRecordset(sql_chemin)
If Not rs_chemin.EOF Then
Set qd = CurrentDb.CreateQueryDef("Requete_Temporaire", "SELECT T_bordereau.Numero_bordereau AS N°_BORDEREAU, T_echafaudage.Numero_echafaudage AS N°_ECHAFAUDAGE, T_bordereau.Nom_entreprise AS DEMANDEUR, T_bordereau.Nom_batiment AS SECTEUR, T_bordereau.Nom_tech_sly AS TECHNICIEN_SLV, T_echafaudage.Date_pose AS DATE_POSE, T_echafaudage.Date_demande_depose AS DEMANDE_DEPOSE FROM T_bordereau LEFT JOIN T_echafaudage ON T_bordereau.Numero_bordereau = T_echafaudage.Numero_bordereau WHERE (((T_echafaudage.Date_pose) <= Date() And (T_echafaudage.Date_pose) Is Not Null) And ((T_echafaudage.Date_demande_depose) >= Date()) And ((T_bordereau.Avenant) = 1)) Or (((T_echafaudage.Date_pose) <= Date()) And ((T_echafaudage.Date_demande_depose) >= Date())) Or (((T_echafaudage.Date_pose) <= Date()) And ((T_echafaudage.Date_demande_depose) Is Null)) ORDER BY T_echafaudage.Numero_bordereau")
 
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requete_Temporaire", "rs_chemin("nom_chemin")" & "\Echaf_en_place_" & Format(Date, "dd.mm.yyyy") & ".xls"
 
 
DoCmd.DeleteObject acQuery, "Requete_Temporaire"
End If
End Sub

le problème est que j'ai une erreur de syntaxe dans ma commande:

Code :

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

1
2
3
 
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requete_Temporaire", "rs_chemin("nom_chemin")" & "\Echaf_en_place_" & Format(Date, "dd.mm.yyyy") & ".xls"

D'avance merci de votre aide
Blado_sap

[Blado_sap]

et si je fais ceci:

Code :

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

1
2
3
4
 
 
chemin = rs_chemin("nom_chemin")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requete_Temporaire", "'" & chemin & "'" & "\Echaf_en_place_" & Format(Date, "dd.mm.yyyy") & ".xls"

j'ai une erreur qui me dit impossible de créer un fichier

alors que si je fais ceci:

Code :

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

1
2
3
 
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requete_Temporaire", "C:\Users\Blado\Desktop\Echaf_en_place_" & Format(Date, "dd.mm.yyyy") & ".xls"

cette commande fonctionne

merci de votre aide
Blado_sap

[madefemere]

Bonjour,

Vu que chemin est déjà un variable texte, il n'est pas nécessaire de le mettre entre "".
Il faudrait faire :

Code :

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

1
2
chemin = rs_chemin("nom_chemin")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requete_Temporaire", chemin & "\Echaf_en_place_" & Format(Date, "dd.mm.yyyy") & ".xls"

Cordialement,