Bonjour,
J'ai créé un bouton dans une feuille excel de mon classeur qui permet d'enregistrer uniquement la feuille active dans un répertoire avec un nom spécifique.
voici la macro :
Sub Enregistrer()
'Macro Enregistrer
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
chemin = "E:\"
MsgBox ThisWorkbook.Path
nomfichier = ActiveSheet.["FAC01-00"] & Range#"E10"# & "_" & Range#"B9"# & extension
With ActiveWorkbook
.ActiveSheet.DrawingObjects.Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub
Mais j'aurais besoin de votre aide pour le peaufiner.
il faudrait que cette feuille soit enregistrée en format pdf au lieu d'Excel et que sur la feuille enregistrée n'apparaisse plus le bouton "enregistrer" (je n'arrive pas à attribuer "ActiveSheet.DrawingObjects.Delete" uniquement au bouton "enregistrer")
Aussi il faudrait, qu'après l'enregistrement de la feuille, le numéro de la case E10 passe au numéro suivant automatiquement dans le classeur.
Merci pour votre aide.
Salvo01
J'ai créé un bouton dans une feuille excel de mon classeur qui permet d'enregistrer uniquement la feuille active dans un répertoire avec un nom spécifique.
voici la macro :
Sub Enregistrer()
'Macro Enregistrer
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
chemin = "E:\"
MsgBox ThisWorkbook.Path
nomfichier = ActiveSheet.["FAC01-00"] & Range#"E10"# & "_" & Range#"B9"# & extension
With ActiveWorkbook
.ActiveSheet.DrawingObjects.Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub
Mais j'aurais besoin de votre aide pour le peaufiner.
il faudrait que cette feuille soit enregistrée en format pdf au lieu d'Excel et que sur la feuille enregistrée n'apparaisse plus le bouton "enregistrer" (je n'arrive pas à attribuer "ActiveSheet.DrawingObjects.Delete" uniquement au bouton "enregistrer")
Aussi il faudrait, qu'après l'enregistrement de la feuille, le numéro de la case E10 passe au numéro suivant automatiquement dans le classeur.
Merci pour votre aide.
Salvo01