Bonjour à tous,
J'essaye d'enregistrer un fichier excel à partir de la macro suivante, mais ça ne fonctionne pas.
Je veux utiliser le bouton export et envoyer la feuille "Nouveau Modél" sous forme PDF
dans un fichier sur le bureau nommé Facture. Je veux aussi que le nom de ce fichier prend la valeur de la cellule C16 et G6 qui représente la date du jour et le nom du client. Merci de me donner un coup de pouce.
Sub Export()
info1 = Sheets("Nouveau Modél").Range("C16")
info2 = Sheets("Nouveau Modél").Range("G6")
nom = info1 & "-" & info2 & "-" & ".xlsm"
ThisWorkbook.Save
ThisWorkbook.SaveAs (nom)
ThisWorkbook.Activate
ChDir " \Users\mb\Desktop\Facture\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
End Sub
J'essaye d'enregistrer un fichier excel à partir de la macro suivante, mais ça ne fonctionne pas.
Je veux utiliser le bouton export et envoyer la feuille "Nouveau Modél" sous forme PDF
dans un fichier sur le bureau nommé Facture. Je veux aussi que le nom de ce fichier prend la valeur de la cellule C16 et G6 qui représente la date du jour et le nom du client. Merci de me donner un coup de pouce.
Sub Export()
info1 = Sheets("Nouveau Modél").Range("C16")
info2 = Sheets("Nouveau Modél").Range("G6")
nom = info1 & "-" & info2 & "-" & ".xlsm"
ThisWorkbook.Save
ThisWorkbook.SaveAs (nom)
ThisWorkbook.Activate
ChDir " \Users\mb\Desktop\Facture\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
End Sub
