Enregister automatiquement en pdf

Résolu
CélineRP -  
Choubi3038 Messages postés 1 Statut Membre -
Bonjour,

J'ai créé un fichier excel avec différentes données et j'aimerai ajouter un bouton pour enregistrer automatiquement ce ficher au format pdf afin que certaines données ne soient pas perdues lors d'une ouverture ultérieure (comme la date du jour de création qui se met automatiquement)
J'aimerai également que le fichier s'enregistre en prenant des données dans 2 cellules (un chiffre = n° de fiche et un nom = nom du projet) et qu'il se range automatiquement dans un dossier sur le réseau de l'entreprise.

Tout d'abord est-ce possible??
et si oui quelqu'un peut-il m'aider?
(sachant que je ne maitrise pas rééllement les macro et visual basic)

N'hésitez pas à venir vers moi si mon explication n'est pas claire...

merci d'avance
A voir également:

4 réponses

via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750
 
Bonsoir

Une piste de travail à tester

Macro a mettre dans un module en l'adaptant à vos besoins

Dans le code du bouton mettre le nom de la macro

Sub enreg_PDF()
'

chemin = "xxx" ' à noter ici le bon chemin style :"C:\Documents and Settings\Utilisateur\Mes documents\"
a= cells(1,1).value ' récupère la donnée en cellule ligne 1 col1 à adapter
b= cells(1,2).value ' récupère la donnée en cellule ligne 1 col21 à adapter
nom = a & b
fichier = chemin & nom & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

Cordialement
0
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 
Salut,

Essaye comme cela

Sub test()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".PDF"
End Sub

le fichier prendra le nom du fichier actif extension PDF, si tu veux donner un nom bien précis comme titi.PDF change cette ligne

ActiveWorkbook.Path & "\" & "titi.PDF"
0
CélineRP
 
solution de via55 testée et approuvée !!

Merci beaucoup !

Bonne journée.
0
Choubi3038 Messages postés 1 Statut Membre
 
Bonjour,

Ma demande est assez similaire.
En cliquant sur un bouton je veux faire une copie de feuille vierge pour la remplir cela c'est fait.

Or après je veux cliquer sur un bouton enregistrer qui m'enregistre ma feuille dans un dossier annexe à mon classeur en pdf.
J'ai essayé tous vos codes mais aucun ne marche, il me dit souvent erreur de compilation.

Auriez-vous une idée? Merci.
0