Macro renommer une fichier en fonction de la valeur d'une cellul
Haracnico
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
m@rina Messages postés 23923 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23923 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
J’aimerai enregistrer mon fichier Excel pour l’instant nommé « TO DO !!!!!! » en format PDF avec les noms de 3 cellules (Opérateur date entrée date sortie correspondant aux cellules A1,B4 et D8). J’ai donc fait la macro pour convertir en PDF et essayer de changer le nom. Si je change le nom pour en mettre un autre tout fonctionne en revanche si j’essaye de mettre Range(« A1 »).Value comme j’ai pu trouver sur internet plus rien ne marche .. Je ne sais pas quoi écrire ni où l’écrire pour faire ce que je souhaite
Voilà ma macro :
Sub Conversion_PDF()
'
' Conversion_PDF Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Nicolas\Desktop\TO DO !!!!!! .pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Si quelqu’un a une solution ça serait parfait
Merci de votre aide
J’aimerai enregistrer mon fichier Excel pour l’instant nommé « TO DO !!!!!! » en format PDF avec les noms de 3 cellules (Opérateur date entrée date sortie correspondant aux cellules A1,B4 et D8). J’ai donc fait la macro pour convertir en PDF et essayer de changer le nom. Si je change le nom pour en mettre un autre tout fonctionne en revanche si j’essaye de mettre Range(« A1 »).Value comme j’ai pu trouver sur internet plus rien ne marche .. Je ne sais pas quoi écrire ni où l’écrire pour faire ce que je souhaite
Voilà ma macro :
Sub Conversion_PDF()
'
' Conversion_PDF Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Nicolas\Desktop\TO DO !!!!!! .pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Si quelqu’un a une solution ça serait parfait
Merci de votre aide
A voir également:
- Macro renommer fichier
- Fichier bin - Guide
- Fichier epub - Guide
- Renommer fichier en masse - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
2 réponses
Bonjour,
Pour récupérer par exemple le contenu de la cellule A1 :
nom1 = Range("A1")
Pour récupérer le contenu d'une cellule qui contient une date, selon le format de ta date, il faut probablement changer ce dernier : les / par exemple ne sont pas acceptés dans un nom de fichier. Exemple :
nom2 = Format(Range("B4"), "ddmmyy")
A partir de là, tu peux composer le nom de ton fichier de la manière suivante :
m@rina
Pour récupérer par exemple le contenu de la cellule A1 :
nom1 = Range("A1")
Pour récupérer le contenu d'une cellule qui contient une date, selon le format de ta date, il faut probablement changer ce dernier : les / par exemple ne sont pas acceptés dans un nom de fichier. Exemple :
nom2 = Format(Range("B4"), "ddmmyy")
A partir de là, tu peux composer le nom de ton fichier de la manière suivante :
Dim chemin As String, nom as String, nom1 As String, nom2 As String, nom3 As String
chemin = "C:\Users\Nicolas\Desktop\"
nom1 = Range("A1")
nom2 = Format(Range("B4"), "ddmmyy")
nom3 = Format(Range("D8"), "ddmmyy")
nom = chemin & nom1 & "-" & nom2 & "-" & nom3 & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom
m@rina