Macro enregistrement feuille active d'un classeur

[nico62]

Bonjour à tous,

En fouillant quelques post du forum, j'ai réussi à trouver une partie de ce que je cherchais. J'ai un fichier Excel (2003), ou j'y ai intégré des documents vierges à enregistrer (après saisie). Ce que je souhaite c'est d'enregistrer la feuille active en ouvrant dans un premier temps une information (comme par exemple indiquer ou enregistrer ce document sur le réseau), puis dans un second temps ouvrir "enregistrer sous" afin d'enregistrer le fichier d'après les informations données précédemment.

Ma demande concerne ce qui suit : est-il possible d'enregistrer la feuille active d'après le nom qu'on lui a attribué dans le dossier en y intégrant la date du jour? et cela malgrè l'ouverture de la boite "enregistrer sous".


je vous mets ci-dessous mon code VBA en espérant m'avoir bien fait comprendre, ce n'est pas facile d'expliquer lorsqu'on est débutant.

Public Sub CommandButton1_Click() 'Activesheet Backup Copy
Dim nom As String
yourmsgbox = Msgbox("Fichier à enregistrer dans le dossier affaire sous B-Etude/B5-Dossier Qualité/A.107-Bordereau d'acompagnement", vbOKCancel)

If yourmsgbox = vbCancel Then
Exit Sub
End If

ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
End Sub


Merci de l'intêret que vous porterez à ma demande.

Salutations

 

[nico62]

Re : Macro enregistrement feuille active d'un classeur

Personne pour répondre à ma demande ?

 

[nico62]

Re : Macro enregistrement feuille active d'un classeur

Apparemment ma requête n'a interessé personne ... merci tout de même.

 

[Pierrot93]

Re : Macro enregistrement feuille active d'un classeur

Bonjour,

regarde peut être ceci, si cela peut t'aider :

ActiveSheet.Copy
With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = ThisWorkbook.Path & "\" & "nomfichier" & Format(Date, "ddmmyyyy")
    .Show
    If .SelectedItems.Count > 0 Then ActiveWorkbook.SaveAs .SelectedItems(1)
End With

bonne journée
@+

 

[nico62]

Re : Macro enregistrement feuille active d'un classeur

Super merci cela fonctionne très bien.

Par contre peut-on remplacer le "nomfichier" par le nom de la feuille active pour l'enregistrement de cette même feuille ?