Discussion :

[atlaslion]

bonjour tout le monde
je cherche un code vba pour enregister feuille excel active sous forme pdf en tenant compte de ce qui suit
1-creer dossier nommé "archives".
2-convertir la feuille excel active en pdf.
3-enregister le pdf dans le dossier nommé "archives" sous un nom qui combine les 3 cellules suivantes D5.C6.F20
MERCI

[Philippe Tulliez]

Bonjour,
Plusieurs solutions pour créer un sous-répertoire comme l'instruction MKDIR voir mon billet sur ce sujet Comment créer des dossiers et sous-dossier en VBA Excel

Pour exporter la feuille active en fichier pdf voici un exemple. J'ai utilisé plus de variables que nécessaire pour que ce soit plus facile à comprendre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub t()
   Const SubPath As String = "\Archive\"
   Dim sht As Worksheet
   Dim CurrentPath As String
   Dim FullPath As String
   Dim FileName As String
   Dim FullName As String
   Set sht = ActiveSheet
   With sht
     CurrentPath = .Parent.Path
     FullPath = CurrentPath & SubPath
     FileName = .Range("D5").Value & .Range("C6").Value & .Range("F20").Value
     FullName = FullPath & FileName & ".pdf"
     .ExportAsFixedFormat Type:=xlTypePDF, FileName:=FullName
   End With
   Set sht = Nothing
End Sub

[atlaslion]

salut
le code ne marche pas.
merci pour l'effort.

[Philippe Tulliez]

Bonjour,
Si vous aviez fait un copier/coller du code que j'ai publié cela vous aurait éviter l'erreur car il y a un point devant la méthode ExportAsFixedFormat et ce point lui permet d'être rattaché à la variable objet Worksheet, sht

[atlaslion]

salut
le fait le copier coller et cela ne marche pas

[Philippe Tulliez]

Bonjour,
Je ne publie jamais un code sans l'avoir testé au préalable et je peux vous assurer qu'il fonctionne.
Regarder bien l'image que vous avez placée dans le document Word et vous verrez qu'il manque un point devant la méthode ExportAsFixedFormat