Discussion :

[cylap]

bonjour, je souhaite sauvegarder un classeur en demandant le dossier de destination via la boite de dialogue Enregistrer sous et proposer nom prédéfini comme nom de fichier.
Avec le code que j'ai la boite de dialogue s'ouvre bien, mais le nom prédéfini ne s'affiche pas comme nom de fichier.
Voici le code que j'ai écrit:

Code :

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

1
2
3
4
5
6
Sub SaveAChoisir()
jour = Format(Now(), "dd.mm.yy")
Nom = "METHODO" & " " & Range("f2") & " " & Range("r2") & " " & "màj " & "le " & jour & ".xls"
   Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Nom.Value)
End Sub

j'ai identifier l'erreur (voir en rouge) mais je ne trouve pas la solution.
Y a t-il quelqu'un pour venir à mon aide svp.

[SfJ5Rpw8]

c'est quoi cela :

Code :

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

ThisWorkbook.ActiveSheet.Nom.Value

?

ta variable s'appelle Nom .. tu la déclaré dans ton code VBA, elle n'as pas de lien avec ton classeur ou ta feuille active ... met simplement Nom

[cylap]

j'avais déjà essayé cette option, en fait j'en ai essayé plusieur sans trouver de solution.

Code :

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

1
2
3
4
5
Sub SaveAChoisir()
jour = Format(Now(), "dd.mm.yy")
Nom = "METHODO" & " " & Range("f2") & " " & Range("r2") & " " & "màj " & "le " & jour & ".xls"
   Application.Dialogs(xlDialogSaveAs).Show Nom
End Sub

ça ne fonctionne pas, le nom de fichier que je veux mettre ne ce rempli pas automatiquement dans la boite de dialogue.
merci quand même pour ton retour.

bonjour, je souhaite sauvegarder un classeur en demandant le dossier de destination via la boite de dialogue Enregistrer sous et proposer un nom prédéfini comme nom de fichier.
Avec le code que j'ai la boite de dialogue s'ouvre bien, mais le nom prédéfini ne s'affiche pas comme "nom de fichier".

Code :

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

1
2
3
4
5
Sub SaveAChoisir()
jour = Format(Now(), "dd.mm.yy")
Nom = "METHODO" & " " & Range("f2") & " " & Range("r2") & " " & "màj " & "le " & jour & ".xls"
   Application.Dialogs(xlDialogSaveAs).Show Nom
End Sub

Y a t-il quelqu'un pour venir à mon aide svp. :
cylap

bonjour, je souhaite sauvegarder un classeur en demandant le dossier de destination via la boite de dialogue Enregistrer sous et proposer un nom prédéfini comme nom de fichier.
Avec le code que j'ai la boite de dialogue s'ouvre bien, mais le nom prédéfini ne s'affiche pas comme nom de fichier.

Code :

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

1
2
3
4
5
Sub SaveAChoisir()
jour = Format(Now(), "dd.mm.yy")
Nom = "METHODO" & " " & Range("f2") & " " & Range("r2") & " " & "màj " & "le " & jour & ".xls"
   Application.Dialogs(xlDialogSaveAs).Show Nom
End Sub

j'ai cherché un peu partout & je ne trouve pas ce qui cloche.

[young 25]

bonjour,

Si j'ai bien compris la demande, moi j'essaierai ce code

A+

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ChDir "C:\Documents and Settings\David\Bureau"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\David\Bureau\essai.xls", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

[Theze]

Bonjour,

Teste ce qui suit :

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
26
27
28
29
 
Sub SaveAChoisir()
 
    Dim Nom As String
    Dim Jour As String
    Dim Chemin
 
    'attention aux caractères interdits par Windows pour les noms de fichiers !
    Jour = Format(Now(), "dd-mm-yy")
 
    Nom = "METHODO" & " " & Range("f2") & " " & Range("r2") & " màj le " & Jour & ".xls"
 
    With Application.FileDialog(2)
 
        .InitialFileName = Nom
        .Show
 
        On Error Resume Next 'si annulé
        Chemin = .SelectedItems(1)
 
    End With
 
    If Err.Number = 0 Then
 
        ThisWorkbook.SaveAs Chemin
 
    End If
 
End Sub

Hervé.

[mercatog]

Bonjour Theze
Peut être sans la gestion d'erreur

Code :

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

1
2
3
4
5
6
With Application.FileDialog(2)
    '.FilterIndex = 2
    .InitialFileName = Nom
    .Show
    If .SelectedItems.Count > 0 Then ThisWorkbook.SaveAs Filename:=.SelectedItems(1)
End With

[Theze]

Bonjour,

Oui tu as raison mertatog, c'est plus concis

Hervé.

[cylap]

merci,


c'est le code qu'a proposé THEZE qui fonctionne,

Je vous remercie à tous pour votre aide, car aprés plusieur soirées j'allais laisser tomber.

Cylap

[cylap]

je me suis réjouis trop vite,
je m'explique: le choix du dossier de destination via la boite de dialogue "Enregistrer sous" + la suggestion d'un nom prédéfini comme nom de fichier. cela fonctionne bien. < suite au proposition de Mercatog & de Theze .

Par contre quand je clic sur enregistrer, là rien ne se passe, la boîte de dialogue ce ferme & le fichier n'est pas enregistré!!

le code de Theze

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
26
27
28
Sub SaveAChoisir()
 
    Dim Nom As String
    Dim Jour As String
    Dim Chemin
 
    'attention aux caractères interdits par Windows pour les noms de fichiers !
    Jour = Format(Now(), "dd-mm-yy")
 
    Nom = "METHODO" & " " & Range("f2") & " " & Range("r2") & " màj le " & Jour & ".xls"
 
    With Application.FileDialog(2)
 
        .InitialFileName = Nom
        .Show
 
        On Error Resume Next 'si annulé
        Chemin = .SelectedItems(1)
 
    End With
 
    If Err.Number = 0 Then
 
        ThisWorkbook.SaveAs Chemin
 
    End If
 
End Sub

le code de Mercatog

Code :

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

1
2
3
4
5
6
23456 With Application.FileDialog(2)
    '.FilterIndex = 2
    .InitialFileName = Nom
    .Show
    If .SelectedItems.Count > 0 Then ThisWorkbook.SaveAs Filename:=.SelectedItems(1)
End With

dans les 2 cas , il y a ouverture de la boite de dialogue + suggestion du nom de fichier mais pas d'enregistrement par la suite.

Help!!

[kiki29]

Salut, dans la FAQ lire http://excel.developpez.com/faq/?pag...cel#FileDialog

[grisan29]

bonjour a vous tous
cela fonctionne sous 2007
lors du clic sur la croix pour fermer moi c'est ce code qui prend le nom donné en "G17" et demande par une messagebox l'enregistrement sous quel nom si on veux changer

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 On Error GoTo erreur
 varname = Sheets("Devis").Range("g17").Value
 fname = InputBox("enregistrer le fichier sous le nom", "Enregistrement", varname)
 ActiveWorkbook.SaveAs Filename:=fname
 Exit Sub
erreur:
  rep = MsgBox("Une erreur c'est produite, voulez vous quitter sans sauvegarder", vbYesNo)
  If rep = 7 Then Cancel = True
End Sub

mais il faut définir l'endroit ou il faut l'enregistrer dans les optionsd'excel
cordialement

Pascal

[cylap]

j'ai la solution:

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
 With Application.FileDialog(2)
 
        .InitialFileName = Nom
        .Show
 
        On Error Resume Next 'si annulé
        Chemin = .SelectedItems(1)
 
    End With
 
    If Err.Number = 0 Then
 
      ActiveWorkbook.SaveAs Filename:=Destination & Nom
 
    End If

ça fonctionne, il faut juste pensez à sélectionner la destination dans la boite de dialogue.

Reste un petit détail car actuellement le fichier s'enregistre sous Excel & je veux qu'il s'enregistre sous excel (prenant en charge les macros),
auriez vous une astuce , j'ai essayé :

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
 With Application.FileDialog(2)
 
        .InitialFileName = Nom
        .Show
 
        On Error Resume Next 'si annulé
        Chemin = .SelectedItems(1)
 
    End With
 
    If Err.Number = 0 Then
 
      ActiveWorkbook.SaveAs  Type:= xlsm, Filename:=Destination & Nom
 
    End If

mais ça Bog!!

j'ai essayé le code suivant mais ça donne rien:

Code :

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

1
2
ActiveWorkbook.SaveAs Filename:=Destination & Nom, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled