problème chemin pour export excel

Version imprimable

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:

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

J'ai une erreur dans la ligne :

Code:

1
2
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MaRequête", "var_chemin\ " & "CIBLAGE.xls", True

Merci d'avance pour vos réponses
Mamanhou

19/04/2012, 13h15
Jean-Philippe André

salut, tu passes la chaine de caractere en dur la

Code:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MaRequête", "var_chemin\ " & "CIBLAGE.xls", True

au lieu de la passer en variable

Code:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MaRequête", var_chemin & "CIBLAGE.xls", True
19/04/2012, 14h06
MAMANHOU

merci jpcheck d'avoir regardé mon soucis...

On avance mais pas encore assez pour résoudre mon problème :

Résultat de votre proposition :
c:\Dossiers\1951ciblage.xls

J'aimerai avoir :
c:\Dossiers\1951\ciblage.xls

la variante "Var_chemin" est le chemin vers un dossier précis

mamanhou
19/04/2012, 14h09
Jean-Philippe André

il suffit d'ajouter le "\" entre les deux :roll:

Code:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MaRequête", var_chemin & "\CIBLAGE.xls", True
19/04/2012, 14h14
Flyoss

Bonjour,

En fait il si tu comprenais ce que tu fais tu trouverais toi même la réponse :mouarf:

Je reprends ce passage:

Code:

var_chemin & "CIBLAGE.xls"

L'esperluette permet de concaténer deux chaines de caractères.
Ainsi tu concatène la chaine de caractère contenue dans ta variable var_chemin (qui est donc "c:\Dossiers\1951") avec la chaine "CIBLAGE.xls"

Ainsi, il te suffit de rajouter un backslash entre les deux chaines commes ceci

Code:

var_chemin & "\" & "CIBLAGE.xls"

Et comme tu as deux chaines codée en dur tu peux les fusionner toi même, comme cela

Code:

var_chemin & "\CIBLAGE.xls"

Edit : rhaaa JPCheck, je t'avais pas vu sur le forum....du coup j'ai pris mon temps pour rédiger....:mouarf:
19/04/2012, 14h27
MAMANHOU

Super, cela marche...
Merci encore à tous les deux pour m'avoir aidée

Mamanhou