Bonjour à tous,
Je suis en train d'automatiser un fichier excel et j'ai crée une macro par rapport au informations trouvées sur le site.
Mais je n'y connais rien en VB. Pouvez-vous m'aider ?
Dans une feuille nommée "Informations" il y a toutes les informations nécessaires à l'enregistrement du fichier.
En F13, le chemin du répertoire de sauvegarde et en F12 le nom du fichier.
Je veux en plus créer un PDF portant le même nom et le mettre dans le même fichier.
Je vous remercie par avance pour votre aide, cordialement,
Benj
Je suis en train d'automatiser un fichier excel et j'ai crée une macro par rapport au informations trouvées sur le site.
Mais je n'y connais rien en VB. Pouvez-vous m'aider ?
Dans une feuille nommée "Informations" il y a toutes les informations nécessaires à l'enregistrement du fichier.
En F13, le chemin du répertoire de sauvegarde et en F12 le nom du fichier.
Je veux en plus créer un PDF portant le même nom et le mettre dans le même fichier.
Code:
Sub Enregistrer_et_publier()
Application.DisplayAlerts = False
nomsave = Sheets("Informations").Range("F13").Value & Sheets("Informations").Range("F12").Value & ".xls"
ThisWorkbook.SaveAs (nomsave)
Application.DisplayAlerts = True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True, Filename:=Sheets("Informations").Range("F13").Value & Sheets("Informations").Range("F12").Value & ".pdf"
End Sub
Je vous remercie par avance pour votre aide, cordialement,
Benj
Dernière édition: