XL 2010 enregistrer-sous

Youn€s

XLDnaute Nouveau
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
 
Solution
Bonjour le forum
Bonjour Youn€s
Bonjour sylvanu ... Après ajout du fichier

Une approche :
VB:
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

Eric C

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

Une approche :
VB:
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
 

Pièces jointes

  • Youn€s.xlsm
    21.5 KB · Affichages: 1
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Youn€s, Eric,
Pour n'enregistrer qu'une feuille, on peut aussi faire :
VB:
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
 

Pièces jointes

  • Enregistrer Une Feuille.xlsm
    17.6 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Un autre version permettant d'exporter une feuille soit en format xlsx, soit en pdf.
Pour le pdf :
VB:
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
 

Pièces jointes

  • Enregistrer Une Feuille.xlsm
    18.6 KB · Affichages: 6

Youn€s

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

Une approche :
VB:
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
 

Discussions similaires

Réponses
13
Affichages
453

Statistiques des forums

Discussions
312 836
Messages
2 092 656
Membres
105 479
dernier inscrit
chaussadas.renaud