Enregistrer sous avec un nom précis

Bonjour,

je cherche un code simple pour "enregistrer sous" mon classeur. J'aimerai que la macro propose d'enregistrer avec le nom "Carnet de liaison" (modifiable si possible) et l'emplacement doit rester modifiable.

Merci

Bonjour,

un début

remerciement à Theauthème pour le code

ci-joint

crdlt,

André

Merci pour ta réponse, cependant ce n'est pas vrmt ce que je veux.

J'aimerai tout simplement pouvoir sauver le fichier en demandant au technicien le nom qu'il souhaite et ou le ranger.

Par contre j'aimerai que par default le nom du fichier soit "Carnet Liaison".

Tu peu m'aider?

Re,

à tester ci-joint

possibilité: que le technicien saisisse dans la cellule A3 de la feuille 1 un nom, le Carnet... est lié automatiquement, et le chemin au choix de l'utilisateur

o,n peut également double cliquer gauche dans la cellule A3 pour supprimer le contenu

crdlt,

André

Salut,

je dispose de ce code très simple :

Sub Sauvegarde()

Application.Dialogs(xlDialogSaveAs).Show

End Sub

Il fait exactement se que je veux, le problème c'est lorsque je sauvegarde le fichier il me le nomme avec le nom du programme (Voir PJ)

J'aimerai qu'il écrive automatiquement "Carnet de liaisons" tout en gardant cette fenêtre à disposition.

Merci!

Bonjour,

cela doit ressemblé à peu près à :

le chemin c (facultatif m'semble)

Sub Sauvegarde()
Dim repertoire As String, nomFichier As String, extension As String
    repertoire = "c:\"
    nomFichier = "Carnet de liaisons"
    extension = ".xlsm"
    Application.Dialogs(xlDialogSaveAs).Show repertoire & nomFichier & extension
End Sub

ou

Sub Sauvegarde2()
Dim  nomFichier$, extension$
    nomFichier = "Carnet de liaisons"
    extension = ".xlsm"
    Application.Dialogs(xlDialogSaveAs).Show  nomFichier & extension
End Sub

crdlt,

André

SUPER c'est nickel

J'ai le même soucis sur ce code :

Sub Impression()

Dim wksFeuille As Worksheet

Dim strSelection() As String

Dim i As Long

i = 0

For Each wksFeuille In ThisWorkbook.Sheets

If wksFeuille.Range("AC2").Value = 1 Then

ReDim Preserve strSelection(i)

strSelection(i) = wksFeuille.Name

i = i + 1

End If

Next wksFeuille

Sheets(strSelection).Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

J'aimerai que le pdf est tjr "Carnet de liaisons" comme option tu peux m'aider?

Bonjour,

A quoi correspond le contenu de cette cellule exactement ? ===>AC2 <===

afin que je puisse voir s'il y faut mettre 'concaténer' '&'

AC2

merci

Tout simplement à la valeur "1"

Bonjour, re,

ok merci pour l'info 1

j'ai aperçu un code qui pourrai presque correspondre je le place au cas où

 Sub Tst_2007()
' Déclaration des variables
' merci à Theze pour ce code
Dim Chemin$, Fich$, Rep$, CheminComplet$

Chemin = "c:\Users\" & Environ("username") & "\Desktop" 
Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
CheminComplet = Chemin & "\" & Fich & ".pdf"
Rep = Dir(Chemin & "\" & Fich & ".pdf")

If Rep = "" Then
    réponse = MsgBox("Voulez-vous enregistrer et visualiser votre fichier .PDF ?", vbYesNo)
    If réponse = vbYes Then
        MsgBox "Le fichier s'est enregistrer sur votre bureau. N'oubliez pas de changer son appelation."
Impression:
        ChDir Chemin

      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
       :=False, OpenAfterPublish:=True 'affiche le fichier PDF
       Else
        MsgBox "Sortie de la procédure"
        Exit Sub
    End If
Else
    Réponse1 = MsgBox("Votre fichier .PDF a déjà été enregistré sous ce nom. Souhaitez-vous le remplacer ?", vbYesNo)
    If Réponse1 = vbYes Then
        MsgBox "Votre fichier a été enregistrer sur votre bureau. Votre précédent fichier a été remplacé!."
        GoTo Impression
    Else
        MsgBox "Sortie de la procédure."
    End If
End If
End Sub

Merci mais je préfère le mien

Tu n'as pas une solution pour appellation de default comme demandé précédemment?

re,

non, je n'y arrive pas, je trouve pas l'"astuce et suis quasi certain que c'est simple mais j'ai calé ou trop manger de choco arff

crdlt,

André