XL 2010 enregistrer-sous

[Youn€s]

boujour
j'ai besoin d'un code VBA pour effectuer l’opération d’enregistrer-sous d'une feuille excel dans un dossier et portant un nom dans une cellule
je travail sur des facture et ne veux pas répéter l’opération chaque fois
merci d'avance pour votre aide

 

[Eric C]

Bonjour le forum
Bonjour Youn€s
Bonjour sylvanu ... Après ajout du fichier

Une approche :

Option Explicit

Private Sub CommandButton1_Click()
 
 Dim  SaveA1 As String
 
   SaveA1 = [a1]
   ThisWorkbook.SaveCopyAs Filename:="C:\a\A effacer\" & SaveA1 & ".xlsm"
 
End Sub

Bon lundi de Pâques à toutes & à tous

Cela fait toujours plaisir de savoir que la contribution a aidé (ou pas).

N'hésitez pas à marquer le sujet comme résolu le cas échéant ou à liker.
@+ Eric c

 

[sylvanu]

Bonjour Youn€s, Eric,
Pour n'enregistrer qu'une feuille, on peut aussi faire :

Sub Archiver()
    Dim CheminFichier$, Feuille$
    Application.ScreenUpdating = False
    CheminFichier = [B1] & [B2]
    Feuille = [B3]
    ThisWorkbook.Sheets(Feuille).Copy
    With ActiveWorkbook
        .SaveAs Filename:=CheminFichier
        .Close
    End With
End Sub

 

[sylvanu]

Re,
Un autre version permettant d'exporter une feuille soit en format xlsx, soit en pdf.
Pour le pdf :

Sub ArchiverPDF()
    Dim CheminFichier$, Feuille$
    Application.ScreenUpdating = False
    CheminFichier = [B1] & [B2]
    Feuille = [B3]
    Sheets(Feuille).ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminFichier & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub

 

[Youn€s]

Bonjour le forum
Bonjour Youn€s
Bonjour sylvanu ... Après ajout du fichier

Une approche :

Option Explicit

Private Sub CommandButton1_Click()
 
 Dim  SaveA1 As String
 
   SaveA1 = [a1]
   ThisWorkbook.SaveCopyAs Filename:="C:\a\A effacer\" & SaveA1 & ".xlsm"
 
End Sub

Bon lundi de Pâques à toutes & à tous

Cela fait toujours plaisir de savoir que la contribution a aidé (ou pas).

N'hésitez pas à marquer le sujet comme résolu le cas échéant ou à liker.
@+ Eric c

merci beaucoup frère eric c gentille de ta part