Menu

Modification du nom d'enregistrement dans une macro Excel [Résolu]

maorispirit 3 Messages postés jeudi 7 septembre 2017Date d'inscription 10 septembre 2017 Dernière intervention - 8 sept. 2017 à 10:22 - Dernière réponse : maorispirit 3 Messages postés jeudi 7 septembre 2017Date d'inscription 10 septembre 2017 Dernière intervention
- 10 sept. 2017 à 08:26
Bonjour,

je suis vraiment novice dans la gestion de macro sous Excel et je sollicite votre aide sur ce forum. Voila dans un fichier, j'ai réussi à créer une macro qui me permet de sauvegarder le fichier, une fois les saisies finies, en format PDF sur le bureau. Sauf que celui-ci me le nomme directement avec le nom du fichier source, alors que j'aimerai que celui-ci utilise une cellule présente dans mon fichier (nom et prénom en texte). Est-ce possible sachant que le nom et prénom sont dans deux cellules différentes.

Voici le code de la macro créée :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"N:\Bureau\fiche entretien et synergie.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

J'aimerai remplacer fiche entretien et synergie.pdf par le nom (cellule B6) et prénom (cellule F6).

Merci d'avance pour votre aide précieuse.
Afficher la suite 

Votre réponse

3 réponses

f894009 13037 Messages postés dimanche 25 novembre 2007Date d'inscription 21 mai 2018 Dernière intervention - 8 sept. 2017 à 10:44
0
Utile
Bonjour,

    With ActiveSheet
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "N:\Bureau\" & .Range("B6") & "_" & .Range("F6") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
maorispirit 3 Messages postés jeudi 7 septembre 2017Date d'inscription 10 septembre 2017 Dernière intervention - 8 sept. 2017 à 10:56
Merci pour votre réponse rapide f894009,

C'est parfait !
maorispirit 3 Messages postés jeudi 7 septembre 2017Date d'inscription 10 septembre 2017 Dernière intervention > maorispirit 3 Messages postés jeudi 7 septembre 2017Date d'inscription 10 septembre 2017 Dernière intervention - 10 sept. 2017 à 08:26
Bonjour f894009,

Je vous remercie de votre aide et vous sollicite de nouveau vos compétences.

Ma version initiale de mon fichier est sur un poste fixe sous Windows, J'aimerai en créer une version nomade. Je l'ai donc transféré sur mon MacBook (MacOS Sierra). De ce fait mes macros créées ne fonctionne plus étant la différence du chemin je suppose.

Pouvez-vous m'aider de nouveau. J'ai également re créé un dossier sur mon bureau du Mac "Fiche Synergies Pro". Donc pour cette macro je n'ai besoin que le début du code.

En revanche ma seconde macro du dossier me permet, sur la version bureau de générer le fichier en PDF dans le but de l'imprimer et/ou l'envoyer par mail via Outlook. J'aimerai pouvoir en faire autant sur la version nomade ou au moins pouvoir générer le document sous format PDF pour l'envoi par mail via Mail.

Merci d'avance pour votre aide.
Voici les codes créés sur la version Bureau:

Sub PDF()
'
' PDF Macro
'

'
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"N:\Bureau\Fiche Synergies Pro\" & .Range("B8") & "_" & .Range("F8") & "_" & .Range("C4") & "_" & .Range("D4") & "_" & .Range("E4") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
Sub Mail()
'
' Mail Macro
'

'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\a329400\AppData\Local\Temp\147\fiche entretien et synergie.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub
Commenter la réponse de f894009