Discussion :

[yieiyiei]

Bonjour,

je souhaite exporter les valeurs d'une de mes tables vers excel en pouvant spécifier l'endroit d'export et surtout, qu'il supprime le nom de la colonne.

Pour le moment j'arrive à exporter et supprimer le nom de colonne ainsi :

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
Private Sub Commande102_Click()
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "R_Plans", "Plans.xls"
 
Dim Xl As Excel.Application
    Set Xl = New Excel.Application
    With Xl
        .Workbooks.Open FileName:="Plans.xls"
       With .ActiveSheet
        .Rows("1:1").Select
        End With
       .Selection.Delete Shift:=xlUp
      .ActiveWorkbook.Close True
        .Quit
  End With
   Set Xl = Nothing
 
End Sub

mais il me place le fichier Plans.xls à la racine. J'aimerais donc avoir la possibilité de choisir le chemin d'export.

J'ai trouvé ce module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Auteurs: @+thierry_xld et michel_m
Dim ObjShell As Object, ObjFolder As Object
Dim Message As String
Dim Chemin As String
 
Message = "Faire la Sélection du Repertoire de sauvegarde:"
 
Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, Message, 1)
 
    On Error Resume Next 'Si on sort sans sélection
    Chemin = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & ""
    recherchedossier = Chemin

mais je n'arrive pas à l'intégrer dans le code du haut et surtout gérer le message en cas d'annulation lors du choix de chemin.

merci.

[Invité]

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
Private Sub Commande102_Click()
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "R_Plans", "Plans.xls"
 
with CreateObject("Excel.Application")
 
    With .Workbooks.Open( FileName:="Plans.xls")
             .ActiveSheet.Rows("1:1").Delete Shift:=xlUp
FicherXls= "c:\rep\toto.xlsx"
 
.saveas FicherXls
      .Close false
  End With
.Quit
End with
 
End Sub

[yieiyiei]

merci dysorthographie mais ton code n'offre pas la possibilité de choisir le chemin de sauvegarde à travers une fenêtre. Il faut lui spécifier le chemin dans le code qui reste fixe. Comme l'outil sera diffusé à plusieurs personnes, elles devront pouvoir renseigner l'endroit de sauvegarde de leur choix.

le module plus haut qui propose l'ouverture de cette fenêtre peut-il être ajouté à ton code pour qu'il récupère le chemin choisi ; valeur de "recherchedossier" et ajoute cette valeur à la suite de ton code à quelque chose qui ressemblerait à : FicherXls= recherchedossier & "toto.xlsx"

merci

[Invité]

Bonsoir,
Oui li faut utiliser la variable Chemin de la proposition!

.saveas Chemin

[yieiyiei]

merci