Lissa a un classeur qui contient plusieurs feuilles de calcul. Elle aimerait créer des PDF individuels pour ces feuilles de calcul (un PDF par feuille de calcul)

avec le nom du PDF basé sur le nom de la feuille de calcul. Elle se demande s’il existe un moyen de le faire dans Excel.

Il existe des moyens de le faire, en fonction du temps que vous souhaitez y consacrer.

S’il s’agit d’une occurrence « unique », vous pouvez envisager d’imprimer simplement chaque feuille de calcul individuelle manuellement. Ou, vous pouvez copier chaque feuille de calcul dans son propre classeur, puis imprimer chaque classeur au format PDF.

Celles-ci sont cependant assez intensives manuellement. (C’est pourquoi j’ai dit qu’ils ne peuvent être bons que pour des occurrences uniques.) Si vous souhaitez quelque chose d’un peu plus automatique, vous voudrez vous tourner vers l’utilisation d’une macro pour créer les fichiers PDF. Voici un exemple d’une courte macro qui fera la création de PDF pour vous:

Sub CreatePDFs()

Dim wks As Worksheet     Dim sFolder As String     Dim sTemp As String

sFolder = ActiveWorkbook.Path & "\"



sTemp = "Created PDFs for the following worksheets"

For Each wks In ActiveWorkbook.Worksheets         If wks.Visible = xlSheetVisible Then             sTemp = sTemp & vbCrLf & "   * " & wks.Name             wks.ExportAsFixedFormat Type:=xlTypePDF, _               Filename:=sFolder & wks.Name & ".pdf", _               OpenAfterPublish:=False         End If     Next

MsgBox sTemp End Sub

Notez que le chemin d’accès stocké dans la variable sFolder est défini sur le chemin d’accès associé au classeur actif. (Si vous n’avez pas encore enregistré le classeur actif, la macro ne s’exécutera pas correctement.) Ce chemin est le dossier dans lequel les fichiers PDF sont enregistrés. Si vous souhaitez les enregistrer dans un emplacement différent, modifiez simplement la valeur attribuée à la variable sFolder.

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (13570) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.