Discussion :

[MAMANHOU]

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]![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 :

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

[Jean-Philippe André]

salut, tu passes la chaine de caractere en dur la

Code :

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

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

au lieu de la passer en variable

Code :

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

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

[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

[Jean-Philippe André]

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

Code :

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

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

[Flyoss]

Bonjour,

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

Je reprends ce passage:

Code :

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

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 :

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

var_chemin & "\" & "CIBLAGE.xls"

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

Code :

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

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....

[MAMANHOU]

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

Mamanhou