Macro : Enregistrer sous ...

[roidurif]

Bonjour,

Cette macro me permet copier un onglet pour l'enregistrer sous... un nom de fichier prédefini qui s'affiche automatiquement.

Seulement, quand je click sur enregistrer, mon fichier ne s'enregistre pas.


Pouvez vous m'aider a resoudre ce problème SVP?

Sub Enregistrer()

Sheets("Tableau").Copy
TempFilePath = "C:\MES DOCUMENTS\DOC\"
TempFileName = ThisWorkbook.Sheets("Fiche de saisie").Range("AB9") & "_" & ThisWorkbook.Sheets("Fiche de saisie").Range("E9") & "_E_" & Format(Now, "yyyymmdd") & "_A_MAJ00_01 "
FileExtStr = ".xls"
sauvegarde = Application.GetSaveAsFilename(TempFilePath & TempFileName & FileExtStr, FileFilter:="xls (*.xls), *.xls")
ActiveWorkbook.Close
End Sub

Merci d'avance

 

[job75]

Re : Macro : Enregistrer sous ...

Bonjour roidurif,

Aide VBA :

GetSaveAsFilename, méthode

Cette méthode affiche la boîte de dialogue standard Enregistrer sous et lit un nom de fichier tapé par l'utilisateur sans réellement enregistrer les fichiers.

Il faut utiliser SaveAs.

A+

 

[roidurif]

Re : Macro : Enregistrer sous ...

Merci,

Mais comment dois je m y prendre??

merci

 

[jp14]

Re : Macro : Enregistrer sous ...

Bonjour

Ci dessous une macro à tester

Sub Enregistrer()
Dim TempFilePath As String

' "C:\MES DOCUMENTS\DOC\"
TempFilePath = ThisWorkbook.Path & "\"
TempFileName = ThisWorkbook.Sheets("Fiche de saisie").Range("AB9") & "_" & ThisWorkbook.Sheets("Fiche de saisie").Range("E9") & "_E_" & Format(Now, "yyyymmdd") & "_A_MAJ00_01 "
FileExtStr = ".xls"
Dim nomfi As String
nomfi = TempFilePath & TempFileName & FileExtStr
'sauvegarde = Application.GetSaveAsFilename(TempFilePath & TempFileName & FileExtStr, FileFilter:="xls (*.xls), *.xls")
'ActiveWorkbook.Close

Sheets("Tableau").Copy
ActiveWorkbook.SaveAs Filename:=nomfi, FileFormat:= _
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
    , CreateBackup:=False
ActiveWorkbook.Close

End Sub

A tester et à modifier
JP

 

[roidurif]

Re : Macro : Enregistrer sous ...

Ok


Mais je n'ai plus la boîte de dialogue standard Enregistrer sous et nomme un nom de fichier automatique comme je le voulais dans ma premiere macro

Comment faire??

 

[job75]

Re : Macro : Enregistrer sous ...

Re, salut jp14,

Essayez :

Sub Enregistrer()
'Sheets("Tableau").Copy
TempFilePath = "C:\MES DOCUMENTS\DOC\"
TempFileName = ThisWorkbook.Sheets("Fiche de saisie").Range("AB9") & "_" & ThisWorkbook.Sheets("Fiche de saisie").Range("E9") & "_E_" & Format(Now, "yyyymmdd") & "_A_MAJ00_01 "
FileExtStr = ".xls"
sauvegarde = Application.GetSaveAsFilename(TempFilePath & TempFileName & FileExtStr, FileFilter:="xls (*.xls), *.xls")
[COLOR="Red"]If sauvegarde <> False Then
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs sauvegarde
  If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close
End If[/COLOR]
End Sub

A+

 

[roidurif]

Re : Macro : Enregistrer sous ...

Merci bcp JOB 75

Ca me convient

Cordialement