Menu

Enregistrer en pdf avec nom de la cellule et choix du répertoire

Messages postés
7
Date d'inscription
jeudi 16 mai 2019
Statut
Membre
Dernière intervention
18 mai 2019
- - Dernière réponse : cs_Le Pivert
Messages postés
6024
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mai 2019
- 18 mai 2019 à 22:48
Bonjour,

Je recherche désespérément une macro qui enregistre en pdf avec nom de ou les cellules avec le choix du répertoire
En A1 j ai le numéro du client
En A2 j ai le nom du client
En A3 j ai le numéro de bl

Pourriez-vous m aider car je n arrive pas à finir cette dernière macro dans le dossier que je travaille.


Configuration: Android / Chrome 74.0.3729.136
Afficher la suite 

Votre réponse

1 réponse

Messages postés
6024
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mai 2019
421
0
Merci
Bonjour,

comme ceci:

Sub Enregistrer_PDF()
Dim fileSaveName As String
Dim numero As String
Dim nom As String
Dim numbl As String
Dim chemin As String
numero = [A1]
nom = [A2]
numbl = [A3]
chemin = [A4] 'mettre le chemin du répertoire
If Len(Dir(chemin, vbDirectory)) > 0 Then
 fileSaveName = Application.GetSaveAsFilename(chemin & "\" & numero & nom & numbl, "Fichier PDF (*.pdf), *.pdf")
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fileSaveName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
 End If
 MsgBox "Enregistrer en PDF", vbInformation, "Enregistrement en PDF"
 End Sub


Pseudo2019
Messages postés
7
Date d'inscription
jeudi 16 mai 2019
Statut
Membre
Dernière intervention
18 mai 2019
-
ok je vais le faire.

par contre, j ai mis des images ou j'ai affecté des macros et quand je verrouille la feuille j'ai un code 400 qui apparaît et la macro ne s"exécute pas. J'ai regardé pour déverrouiller l'image et toujours le même message...

une fenêtre s'ouvre et j'ai Visual Basic Pour Application un cercle rouge avec une croix et le code 400...
pourriez-vous m'aider car j'ai 4 onglets de mon fichier qui a le même problème?
cs_Le Pivert
Messages postés
6024
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mai 2019
421 -
j ai mis des images ou j'ai affecté des macros

sans voir les macros difficile de répondre

voir ceci en attendant:

http://fr.repairmsexcel.com/blog/fixer-excel-vba-erreur-400

@+
Pseudo2019
Messages postés
7
Date d'inscription
jeudi 16 mai 2019
Statut
Membre
Dernière intervention
18 mai 2019
-
c'est exactement ça, j'aimerai vous envoyer le fichier .... j'ai enlevé la protection de la feuille et ça fonctionne. Mais je dois absolument protéger pour éviter es erreurs de manipulation.

comment peut-on envoyer un fichier ?
Pseudo2019
Messages postés
7
Date d'inscription
jeudi 16 mai 2019
Statut
Membre
Dernière intervention
18 mai 2019
-
J'ai oublié de vous dire, la cellule qui est protégé -> j'ai mis une macro pour incrémenter un numéro? je pense que cela vient de là?
cs_Le Pivert
Messages postés
6024
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mai 2019
421 -
Il faut déprotéger la feuille

Sheets("Nom de la feuille").unprotect password:="Mot de passe"


ta macro

reproteger par lasuite

Sheets("Nom de la feuille").protect password:="Mot de passe"


sinon pour poster un classeur se servir de

https://www.cjoint.com/

ensuite coller le lien ici

Voilà
Commenter la réponse de cs_Le Pivert