choisir l'emplacement lors de l'enregistrement Résolu

Question

Private Sub BoutArchivage_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim NomArchiv As String
Dim MyYear, MyMonth, MyDate
Dim str As String
MyDate = Now()           ' Attribue une date.
MyMonth = Month(MyDate)    ' MyMonth contient le mois.
If MyMonth < 10 Then
MyMonth = "0" & MyMonth
End If
MyYear = Year(MyDate)    ' MyYear contient l'ann&#233;e
str = MyMonth & MyYear
NomArchiv = "p&#226;tes" & str


On Error GoTo non
NomArchiv = InputBox("Nom du fichier de sauvegarde:", "Sauvegarde sur disque", NomArchiv)

If NomArchiv = "" Then GoTo non
On Error GoTo pb


DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "pate", "c:" & NomArchiv, True
   
    GoTo fin
pb:
    MsgBox "Probl&#232;me &#224; l'&#233;criture de c:" & NomArchiv
non:
 
fin:
End Sub

Bonjour, j'aimerai savoir si il &#233;tait possible d'enregistrer un fichier sans avoir &#224; &#233;crire son chemin complet dans le code (voir ligne en gras), en l'occurence ici un fichier excel nomm&#233; p&#226;tesMMAA, en fait ma question est peut on choisir l'emplacement de son fichier, qu'une fen&#234;tre apparaisse comme sous word ou sous excel, merci

ps : rien &#224; voir mais y'a til une balise code ?

patchap40 · Accepted Answer

c'est bon j'ai r&#233;ussi avec ma nouvelle solution
je met le code si &#231;a peut en aider certains
merci de ton aide mortalino ;)

 'D&#233;claration de l API
Private Declare Function GetSaveFileName Lib "comdlg32.dll" _
        Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) _
        As Long


 'Structure du fichier
Private Type OPENFILENAME
  lStructSize As Long
  hWndOwner As Long
  hInstance As Long
  lpstrFilter As String
  lpstrCustomFilter As String
  nMaxCustFilter As Long
  nFilterIndex As Long
  lpstrFile As String
  nMaxFile As Long
  lpstrFileTitle As String
  nMaxFileTitle As Long
  lpstrInitialDir As String
  lpstrTitle As String
  Flags As Long
  nFileOffset As Integer
  nFileExtension As Integer
  lpstrDefExt As String
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type

Private Sub BoutArchivage_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim NomArchiv As String
Dim MyYear, MyMonth, MyDate
Dim str As String
MyDate = Now()           ' Attribue une date.
MyMonth = Month(MyDate)    ' MyMonth contient le mois.
If MyMonth < 10 Then
MyMonth = "0" & MyMonth
End If
MyYear = Year(MyDate)    ' MyYear contient l'ann&#233;e
str = MyMonth & MyYear
NomArchiv = "liqueurs" & str



On Error GoTo non
'NomArchiv = InputBox("Nom du fichier de sauvegarde:", "Sauvegarde sur disque", NomArchiv)


' NomArchiv = InputBox("Nom du fichier de sauvegarde:", "Sauvegarde d'un fichier sur disquette")
If NomArchiv = "" Then GoTo non
On Error GoTo pb



Chemin = EnregistrerUnFichier(Me.Hwnd, "Enregistrer", NomArchiv, "C:")



 
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "pate", Chemin, True
' DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "pate", "a:\patesave2", True
   
    GoTo fin
pb:
    MsgBox "Probl&#232;me &#224; l'&#233;criture de " & Chemin & NomArchiv
non:
 
'  NomArchiv = ""
'  BoutRelNon_MouseDown (i), (j), (X), (Y)
fin:
[Forms]![Formulaire]![Vue] = 4
    
End Sub
Function EnregistrerUnFichier(Handle As Long, Titre As String, _
                    NomFichier As String, Chemin As String) As String


 'EnregistrerUnFichier est la fonction a utiliser dans votre formulaire pour ouvrir _
la bo&#238;te de dialogue d'enregistrement d'un fichier.
 'Explication des param&#232;tres
    'Handle = le handle de la fen&#234;tre (Me.Hwnd)
    'Titre = Titre de la bo&#238;te de dialogue
    'NomFichier = Nom par d&#233;faut du fichier &#224; enregistrer
    'Chemin = Chemin par d&#233;faut du fichier &#224; enregistrer
       
Dim structSave As OPENFILENAME


With structSave
    .lStructSize = Len(structSave)
    .hWndOwner = Handle
    .nMaxFile = 255
    .lpstrFile = NomFichier & String$(255 - Len(NomFichier), 0)
    .lpstrInitialDir = Chemin
    .lpstrFilter = "Tous (*.*)" & Chr$(0) & "*.*" & Chr$(0) 'D&#233;finition du filtre (aucun)
    .Flags = &H4  'Option de la boite de dialogue
End With


If (GetSaveFileName(structSave)) Then
    EnregistrerUnFichier = Mid$(structSave.lpstrFile, 1, InStr(1, structSave.lpstrFile, vbNullChar) - 1)
End If


End Function

mortalino · Answer

Salut,

essai de voir avec la propriété FileDialog.

@ ++
Mortalino

patchap40 · Answer

merci mais j'ai un soucis
quand j'&#233;cris &#231;a
Dim fileDialog As Dlg
Application.fileDialog(msoFileDialogFolderPicker).Show

il me met une erreur
"type d&#233;fini par l'utilisateur non d&#233;fini"

patchap40 · Answer

je pense que je n'ai pas rajouter le bonne librairi, quelqu'un sait laquelle il faut rajouter?
merci

patchap40 · Answer

la librairie que j'ai rajout&#233;
Microsoft Office 9.0 Object Library
 ,
toujours non d&#233;fini

mortalino · Answer

T'es sous word ou excel ?
Normalement il n'y a pas besoin de rajouter un composant, dans l'aide du logiciel, il te le propose.
Au pire, il y a le composant Common dialog (Cdlg).
En attendant je regarde et je fais des test.

patchap40 · Answer

mais je suis sous acess 2000, et je crois que file dialog n'existe pas, peut &#234;tre y'a til un &#233;quivalent??

mortalino · Answer

tiens essai un truc comme ça :

Sub Enregistrer()
        Dim FdNico As FileDialog
    Set FdNico = Application.FileDialog(msoFileDialogSaveAs)
    
    With FdNico
        If .Show = -1 Then
            
        Else
        End If
    End With
    
    Set FdNico = Nothing
End Sub

Par contre j'arrive pas à placer le "InitDir" (choix du dossier par défaut)

patchap40 · Answer

toujours la m&#234;me erreur "type d&#233;fini par l'utilisateur non d&#233;fini", merci qd meme

mortalino · Answer

coche (dans les cntroles supp.) Microsoft Common Dialog Control

Par contre le code que je t'ai filé fonctionne à moitié, je refais des test

patchap40 · Answer

ils sont ou les controles supp?

mortalino · Answer

désolé pour retard, bcoup de taf d'un coup...

Bref, insère un UserForm, tu devrais avoir un cadre avec qui s'affiche, contenant les contrôle habituels (TextBox, CommandButton...) ; en faisant un click droit dessus, il te propose "controles supplémentaires" :

coche "Microsoft Common Dialog Control" et valide. Il s'insère dans le cadre des controles.

Ensuite place le sur le UserForm
puis 
Private Sub UserForm_Initialize()
    With CommonDialog1
        .InitDir = "C:"
        .ShowSave
    End With
End Sub

Tiens moi au courant
++

patchap40 · Answer

j'ai une pl&#233;&#239;ade de choix dans les contr&#244;les suppl&#233;mentaires, mais pas le Microsoft Common Dialog Control

patchap40 · Answer

j'abandonne cette solution, j'essaya evec &#231;a
http://access.developpez.com/faq/?page=CheminsRep#AffBoitEnregSs

patchap40 · Answer

j'abandonne cette solution, j'essaye evec &#231;a
http://access.developpez.com/faq/?page=CheminsRep#AffBoitEnregSs

mortalino · Answer

Désolé et bon courage !

Mortalino

mortalino · Answer

De rien et bien vu l'appel d'API.

Merci à toi pour le code, ça peut effectivement être très précieux.

Bonne Aprem.

@ ++
Mortalino

Choisir l'emplacement lors de l'enregistrement

17 réponses

Discussions similaires