Option Explicit
Private Sub CommandButton1_Click()
Dim SaveA1 As String
SaveA1 = [a1]
ThisWorkbook.SaveCopyAs Filename:="C:\a\A effacer\" & SaveA1 & ".xlsm"
End Sub
Option Explicit
Private Sub CommandButton1_Click()
Dim SaveA1 As String
SaveA1 = [a1]
ThisWorkbook.SaveCopyAs Filename:="C:\a\A effacer\" & SaveA1 & ".xlsm"
End Sub
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
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
merci beaucoup frère eric c gentille de ta partBonjour le forum
Bonjour Youn€s
Bonjour sylvanu ... Après ajout du fichier
Une approche :
Bon lundi de Pâques à toutes & à tousVB:Option Explicit Private Sub CommandButton1_Click() Dim SaveA1 As String SaveA1 = [a1] ThisWorkbook.SaveCopyAs Filename:="C:\a\A effacer\" & SaveA1 & ".xlsm" End Sub
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