Discussion :

[licpegpon]

Bonjour,

En fin de procédure je fais appel à la procédure ci-dessous pour enregistrer un backup du fichier.
Je propose d'enregistrer le fichier proposé sur le bureau et je clique sur le bouton "enregistrer" sauf que le fichier n'est pas enregistré ??

Des suggestions ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub SaveFile()
  Dim Filename As String
 
  If MsgBox("Do you want to save TEST on your local disk ?", vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
    Filename = "TEST_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xlsm"
    With Application.FileDialog(msoFileDialogSaveAs)
      .Title = "Save File as"
      .InitialFileName = Filename
      .Show
    End With
  End If
End Sub

[florent77]

Peut-être cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopiesurBureau()
 
    Dim Chemin As String
    Dim NomDossier As String
 
    Chemin = "C:\Users\fofo\Desktop\" 'A ajuster selon ton cas
 
    If MsgBox("Do you want to save TEST on your local disk ?", vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
        NomDossier = "TEST_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xlsm"
        ActiveWorkbook.SaveCopyAs Chemin & NomDossier
    End If
 
End Sub

[licpegpon]

Bonjour,

Merci pour votre proposition. En fait j'essaie d'utiliser ce que Pierre Fauconnier me propose (texte en rouge). Il indique :

Tu pourrais aussi utiliser les FileDialog. L'utilisateur pourrait alors choisir son dossier, voire le créer, en déléguant la création à Windows...

Cela m'intéresse beaucoup car ainsi c'est windows qui se charge de gérer l'existence du dossier.

Par contre pourquoi après avoir sélectionné le bureau rien ne s'enregistre ?

Cdlt.
Jérôme.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub SaveFile1()
  Dim Filename As String
 
  If MsgBox("Do you want to save TEST on your local drive ?", vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
    Filename = "TEST_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xlsm"
    With Application.FileDialog(msoFileDialogSaveAs)
      .Title = "Save File as"
      .InitialFileName = Filename
      .Show
    End With
  End If
End Sub

[florent77]

salut licpegpon

en ajoutant la méthode .Execute ça devrait le faire

https://excel.developpez.com/faq/?pa...cel#FileDialog
https://docs.microsoft.com/fr-FR/off...methods-office

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SaveFile1()
  Dim Filename As String
 
  If MsgBox("Do you want to save TEST on your local drive ?", vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
    Filename = "TEST_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xlsm"
    With Application.FileDialog(msoFileDialogSaveAs)
      .Title = "Save File as"
      .InitialFileName = Filename
      .Show
      .Execute
    End With
  End If
End Sub

[Philippe Tulliez]

Bonjour,
Petite suggestion.
Pour le nom du classeur à sauver, j'opte toujours pour une cellule placée dans une feuille paramètre alimentée par une formule. Ainsi si le client choisi une autre syntaxe pour le nom de son classeur il suffit juste de modifier la formule dans le classeur sans toucher à la procédure VBA et pour le nom du répertoire où le classeur doit être sauvé, je fais de même.

[licpegpon]

Bonjour,

Merci à Philippe Tulliez et Florent77.

La modif proposée par Florent77 fonctionne !!!! Le fichier est bien enregistré par contre il me propose de l'enregistrer avec l'extension .xlsx alors que la procédure indique que le fichier doit être enregistré avec l'extension .xlsm ?? D'autre part serait-il possible de proposer un dossier d'enregistrement par défaut ? Merci beaucoup.

Cdlt.
Jérôme.