Discussion :

[yzmalc]

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.

[don_pets]

Hello,

Pour lancer ta sauvegarde tu peux partir la dessus

Code :

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

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

[Valtrase]

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

Code :

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

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