Enregistrer un classeur en format Excel sans les macros

Version imprimable

05/05/2022, 16h22
yzmalc

Enregistrer un classeur en format Excel sans les macros

Bonjour à tous,

Je cherche à lancer une macro qui ouvrirait une boite de dialogue (la boite de dialogue classique d'enregistrer sous) permettant de sauvegarder mon classeur. Par défaut je voudrais que le nom de fichier soit vide (et donc à remplir de manière classique) mais que l'option de format de classeur soit en format Excel (du coup sans les macros) et il prend en compte que a partir de la ligne 43 ET colonne AA pour la première feuille ("AD VB") et la deuxième ("AD CB") et la troisième ("AD ZZ") feuilles qu'a partir de la 64iéme ligne et Colonne AA . Il ne resterait alors qu'à choisir l'emplacement, écrire le nom du fichier et à appuyer sur enregistrer pour que le fichier s'enregistre à l'endroit sélectionné au format Excel sans les macros.
Je vous remercie par avance et espère avoir été clair dans ma demande.

Hello,

Pour lancer ta sauvegarde tu peux partir la dessus

Code:

1
2
3
4
5
    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = ThisWorkbook.Path & "\" & "TonTitre"
        .Show
        If .SelectedItems.Count > 0 Then ActiveWorkbook.SaveAs .SelectedItems(1)
    End With

Salut,
En complément de la réponse de Don_Pets
Tu peut utiliser :

Code:

1
2
3
4
5
6
7
Sub TestSaveAs()    Dim strTmp As Variant
    strTmp = Application.GetSaveAsFilename(Filefilter:="Excel files (*.xlsx)," & _
                                                       "*.xlsx,Excel files 2007 (*.xls), *xls")
    If strTmp <> False Then
        'ThisWorkbook.SaveAs strTmp
    End If
End Sub