S Soleil11 XLDnaute Occasionnel 6 Avril 2017 #1 Bonjour le Forum, J'utilise le script ci-dessous pour exporter ma feuille sous format PDF dans mon H:drive. J'aimerais qu'il utilise le nom qui se trouve dans ma cellule "B2" qui est une liste déroulante a la place du nom ci-dessous "Export.pdf".. -------------- Sub SavePDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="H:\José DriveH\Supplier Dev\Export.pdf", _ OpenAfterPublish:=True End Sub ------------------ Pourriez-vous m'aider à modifier ce code. Merci d'avance pour votre aide à tout le forum. Soleil11
Bonjour le Forum, J'utilise le script ci-dessous pour exporter ma feuille sous format PDF dans mon H:drive. J'aimerais qu'il utilise le nom qui se trouve dans ma cellule "B2" qui est une liste déroulante a la place du nom ci-dessous "Export.pdf".. -------------- Sub SavePDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="H:\José DriveH\Supplier Dev\Export.pdf", _ OpenAfterPublish:=True End Sub ------------------ Pourriez-vous m'aider à modifier ce code. Merci d'avance pour votre aide à tout le forum. Soleil11
JCGL XLDnaute Barbatruc 6 Avril 2017 #2 Bonjour à tous, Peux-tu essayer avec : VB: Sub SavePDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="H:\José DriveH\Supplier Dev\" & Feuil1.Range("B2").Text & ".pdf", _ OpenAfterPublish:=True End Sub A+ à tous Vote positif 0 Vote négatif
Bonjour à tous, Peux-tu essayer avec : VB: Sub SavePDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="H:\José DriveH\Supplier Dev\" & Feuil1.Range("B2").Text & ".pdf", _ OpenAfterPublish:=True End Sub A+ à tous
S Soleil11 XLDnaute Occasionnel 6 Avril 2017 #3 Rebonjour, C'est parfait, c'est tout-à-fait ce qu'il me faut. Une excellente journée. Soleil11 Vote positif 0 Vote négatif