Automatiser ma manoeuvre !

[etorria]

Bonjour à Tous !

Dans mon fichier, plusieurs onglets, tous nommés. L’ordre de ces onglets est fixe.
Chaque semaine j’enregistre un par un ces onglets au format PDF (avec PDFCreator) puis les déplace dans leur répertoire respectif (même nom). Et cela devient vite contraignant à la longue !
Ma question : comment, à l’aide de VBA, automatiser cette manœuvre ?

Merci pour votre aide.

Etorria

 

[camarchepas]

Re : Automatiser ma manoeuvre !

Bonjour,

quelque chose comme cela mis dans un module standard du classeur.

ATTENTION le chemin est à 99% de chance à adapter .
Si le répertoire destination n'existe pas , il est créé .

Sub Bouton()
Dim Onglet As Worksheet
Dim Chemin As String, Fichier As String
Chemin = "C:\temp\"
For Each Onglet In ThisWorkbook.Worksheets
  Fichier = Chemin & Onglet.Name & "\" & Onglet.Name
  If Dir(Chemin & Onglet.Name, vbDirectory) = "" Then MkDir Chemin & Onglet.Name
  Sheets(Onglet.Name).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & ".pdf"
  
Next
end sub

 

[etorria]

Re : Automatiser ma manoeuvre !

Merci Camarchepas !
Je vais tester de ce pas !

A+
Etorria