Une macro pour déplacer/nommer une feuille
Résolu/Fermé
Naririne
Messages postés
106
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
9 février 2022
-
13 avril 2018 à 15:25
Naririne Messages postés 106 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 9 février 2022 - 17 avril 2018 à 09:00
Naririne Messages postés 106 Date d'inscription vendredi 9 août 2013 Statut Membre Dernière intervention 9 février 2022 - 17 avril 2018 à 09:00
A voir également:
- Une macro pour déplacer/nommer une feuille
- Déplacer une colonne excel - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Supprimer une feuille word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
Naririne
Messages postés
106
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
9 février 2022
12
17 avril 2018 à 09:00
17 avril 2018 à 09:00
Bonjour à tous,
En cherchant pendant 3 jours !, j'ai trouvé une solution.
Ci-dessous la macro:
Sub Enregistrer()
Dim c As Range
For Each c In [MaListe].Cells
'MaListe = plage pour créer la liste déroulante
[B6] = c
'B6 = la cellule où j'ai positioné la liste déroulante
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Chemin vers lequel enregistrer les onglet" & Range("B6").Text & " - " & Range("E3").Text & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'B6 et E3 = pour donner un nom à mon fichier qui sera du pdf
Next
End Sub
En cherchant pendant 3 jours !, j'ai trouvé une solution.
Ci-dessous la macro:
Sub Enregistrer()
Dim c As Range
For Each c In [MaListe].Cells
'MaListe = plage pour créer la liste déroulante
[B6] = c
'B6 = la cellule où j'ai positioné la liste déroulante
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Chemin vers lequel enregistrer les onglet" & Range("B6").Text & " - " & Range("E3").Text & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'B6 et E3 = pour donner un nom à mon fichier qui sera du pdf
Next
End Sub