Macro : enregister une feuille excel au nom d'une cellule
Ghislaine
-
fabien25000 Messages postés 697 Statut Membre -
fabien25000 Messages postés 697 Statut Membre -
Bonjour
Je cherche à compléter cette macro. Comment faire pour que le nom d'enregistrement comporte le nom du collaborateur qui est en cellule C12 de ma feuille ?
Voici ma macro actuelle
GRILLEPDF Macro
'
'
Range("B2:F48").Select
ActiveWindow.SmallScroll Down:=-51
ChDir _
"U:\Public\CoDir\Projets\Réorganisation 2019\entretiens individuels\grilles entretien - archive"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\Public\CoDir\Projets\Réorganisation 2019\entretiens individuels\grille écoute individuelle" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Range("B4:F4").Select
End Sub
Je vous remercie
Bonne journée
Ghislaine
Je cherche à compléter cette macro. Comment faire pour que le nom d'enregistrement comporte le nom du collaborateur qui est en cellule C12 de ma feuille ?
Voici ma macro actuelle
GRILLEPDF Macro
'
'
Range("B2:F48").Select
ActiveWindow.SmallScroll Down:=-51
ChDir _
"U:\Public\CoDir\Projets\Réorganisation 2019\entretiens individuels\grilles entretien - archive"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\Public\CoDir\Projets\Réorganisation 2019\entretiens individuels\grille écoute individuelle" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Range("B4:F4").Select
End Sub
Je vous remercie
Bonne journée
Ghislaine
A voir également:
- Macro : enregister une feuille excel au nom d'une cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Actiona macro - Télécharger - Divers Utilitaires
2 réponses
bonjour
essaye ça :
essaye ça :
Dim Nom as String
Nom = Range("C12")
Range("B2:F48").Select
ActiveWindow.SmallScroll Down:=-51
ChDir _
"U:\Public\CoDir\Projets\Réorganisation 2019\entretiens individuels\grilles entretien - archive"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\Public\CoDir\Projets\Réorganisation 2019\entretiens individuels\grille écoute individuelle" & "\" & Nom & ".pdf", _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Bonjour Fabien
Merci pour cette réponse, la grille s'enregistre bien mais malheureusement le nom du collaborateur n'apparait pas dans le nom du fichier. Est-ce que cela ne viendrait pas du fait que la cellule 12 est alimentée grâce à un code saisie en cellule 11 ? Ex : en cellule 11 je rentre le n° SS ce qui alimente la cellule 12 du nom de la personne concernée ?
Au bout du bout je souhaite que ma grille soit enregistrée en PDF au nom du collaborateur pour que je puisse la retrouver.
Je vais faire cette action pour 200 personnes.
Suis-je assez claire ?
Merci pour votre aide
Cordialement
Ghislaine
Merci pour cette réponse, la grille s'enregistre bien mais malheureusement le nom du collaborateur n'apparait pas dans le nom du fichier. Est-ce que cela ne viendrait pas du fait que la cellule 12 est alimentée grâce à un code saisie en cellule 11 ? Ex : en cellule 11 je rentre le n° SS ce qui alimente la cellule 12 du nom de la personne concernée ?
Au bout du bout je souhaite que ma grille soit enregistrée en PDF au nom du collaborateur pour que je puisse la retrouver.
Je vais faire cette action pour 200 personnes.
Suis-je assez claire ?
Merci pour votre aide
Cordialement
Ghislaine
il s'est enregistré dans le repertoire indiqué dans la macro mais son nom reste ; grille écoute individuelle.pdf (je n'ai pas : grille écoute individuelle DUPONT.pdf). Je pense que la commande
Nom = Range("C12")
Range("B2:F48").Select
Je n'y connais rien en macro mais j'ai quand meme testé de mettre
Range("B2:F48").Select
Nom = Range("C12")
j'ai eu le nom du fichei : grille ecoute individuelleDUPONT.pdf que je voulais mais ca ne m'a sauvegardé qu'une partie de mon fichier pdf.
Nom = Range("C12")
Range("B2:F48").Select
Je n'y connais rien en macro mais j'ai quand meme testé de mettre
Range("B2:F48").Select
Nom = Range("C12")
j'ai eu le nom du fichei : grille ecoute individuelleDUPONT.pdf que je voulais mais ca ne m'a sauvegardé qu'une partie de mon fichier pdf.
Dim Nom as String
Nom = Range("C12")
Range("B2:F48").Select
ChDir _
"U:\Public\CoDir\Projets\Réorganisation 2019\entretiens individuels\grilles entretien - archive"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\Public\CoDir\Projets\Réorganisation 2019\entretiens individuels\grille écoute individuelle" & " " & Nom & ".pdf", _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Corrige la ligne qui correspond à la ligne 8 ci dessus, dans mon code je pensais que grille écoute individuelle était un dossier et non pas le nom du fichier donc à la place de
grille écoute individuelle" & "\" & Nomil faut mettre
grille écoute individuelle" & " " & Nom
la ligne
Nom = Range("C12") est la mise en mémoire d'une variable danc avant ou après la selection du champs de cellule n'a aucune incidence
enlève aussi la ligne
ActiveWindow.SmallScroll Down:=-51qui a à mon avis une influence sur le fait que ton pdf ne soit pas complet
