Bonjour à toute la communauté.
Tout d'abord je vous présente mes excuses pour ce énième sujet à propos de macro utilisant des fonctions apparemment simplistes pour un puriste.
De même, je tiens à informer que ce sujet est posté après avoir passé pas mal de temps sur notre "ami" google et même sur ce forum. Malgré tout, sans succès (sinon le sujet n'aurait aucun intérêt).
Venons justement au vif du sujet avec ses joyeux problèmes.
En gros, j'aimerai créer une macro qui permettrait à la fois de créer une sauvegarde en pdf du fichier excel (tout le classeur, pas uniquement une feuille) en cours vers un dossier de destination tout en modifiant son nom à partir de cellules.
A vrai dire ce problème est réglé.
En plus de la première requête, j'aimerai que le fichier en question (ouvert donc, si on utilise la macro) soit déplacé vers un autre dossier de destination (différent de celui dans lequel se trouve le fichier actuel et différent du dossier de destination de la sauvegarde pdf) avec un nouveau nom qui lui aussi dépendra de cellules. Le fichier d'origine devra aussi être supprimé après le transfert.
Je ne sais pas si c'est assez clair.
Voici le code que j'utilise actuellement et qui ne fonctionne pas, bien entendu:
Merci beaucoup pour vos éventuelles solutions.
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
18
19
20 Sub PDF() Dim Fichier As String, Chemin As String, NouveauChemin As String, Fichiert As String Fichier = "C:\Users\t\Desktop\pdf\" & "_" & [B2].Value & "_" & [B1].Value & "_" & Format(Date, "yyyymmdd") Chemin = "C:\Users\t\Desktop\" NouveauChemin = "C:\Users\t\Desktop\test01\" Fichiert = [B2].Value & "_" & [B1].Value & "_" & Format(Date, "yyyymmdd") & ".xls" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ ignorePrintAreas:=False, OpenAfterPublish:=False Kill NouveauChemin & Fichiert Name Chemin & Fichiert As NouveauChemin & Fichiert Kill Chemin & Fichiert Application.Quit End Sub
Partager