Signaler

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

Posez votre question maorispirit 3Messages postés jeudi 7 septembre 2017Date d'inscription 10 septembre 2017 Dernière intervention - Dernière réponse le 10 sept. 2017 à 08:26 par maorispirit
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.
Utile
+0
plus moins
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 3Messages 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 !
Répondre
maorispirit 3Messages 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
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !