Enregistrer sous le nom de 2 cellules - MACRO VBA [Résolu/Fermé]

Signaler
Messages postés
51
Date d'inscription
lundi 5 février 2018
Statut
Membre
Dernière intervention
19 novembre 2019
-
Messages postés
51
Date d'inscription
lundi 5 février 2018
Statut
Membre
Dernière intervention
19 novembre 2019
-
Bonjour,

Commençant dans les macros vba, je n'arrive pas à donner le nom que je souhaite à mon fichier.

Je souhaiterais qu'à la place de NOM , il y ai l'écrit de la case F10 qui se mettent avec la case B13.


F10 = Nom et prénom des clients (TARTENPION Chris)

B13 = Numéro de la facture (6)

Exemple de nom : "TARTENPION Chris - N°6"


Sub enregistrer()

ActiveWindow.SmallScroll Down:=12
Range("A1:F49").Select
Range("A49").Activate
ChDir "F:\6 - LOGICIEL FACTURES FOURNITURES\FACTURES FOURNITURES\FACTURES 2018"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"F:\6 - LOGICIEL FACTURES FOURNITURES\FACTURES FOURNITURES\FACTURES 2018\NOM.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("G1").Select

End Sub


Merci de bien vouloir m'aider…


1 réponse

Messages postés
6861
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2020
535
Bonjour,

comme ceci:

Dim NOM As String
NOM = Range("F10") & "-" & Range("B13")

"F:\6 - LOGICIEL FACTURES FOURNITURES\FACTURES FOURNITURES\FACTURES 2018\" & NOM & ".pdf" 


1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 56945 internautes nous ont dit merci ce mois-ci

Messages postés
51
Date d'inscription
lundi 5 février 2018
Statut
Membre
Dernière intervention
19 novembre 2019
10
Bonjour,

Merci d'avoir répondu !
Il me dit qu'il y a un problème d'expression

Sub enregistrer()

ActiveWindow.SmallScroll Down:=12
Range("A1:F49").Select
Range("A49").Activate
ChDir "F:\6 - LOGICIEL FACTURES FOURNITURES\FACTURES FOURNITURES\FACTURES 2018"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Dim NOM As String
NOM = Range("F10") & "-" & Range("B13")
"F:\6 - LOGICIEL FACTURES FOURNITURES\FACTURES FOURNITURES\FACTURES 2018\" & NOM & ".pdf"
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("G1").Select
ActiveWorkbook.Save

End Sub
Messages postés
6861
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2020
535
Il ne faut pas faire n'importe quoi!
les déclarations de variable se font au début de la Sub, revoir les fondamentaux!

Sub enregistrer()
Dim NOM As String
NOM = Range("F10") & "-" & Range("B13")
ActiveWindow.SmallScroll Down:=12
Range("A1:F49").Select
Range("A49").Activate
ChDir "F:\6 - LOGICIEL FACTURES FOURNITURES\FACTURES FOURNITURES\FACTURES 2018"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"F:\6 - LOGICIEL FACTURES FOURNITURES\FACTURES FOURNITURES\FACTURES 2018\" & NOM & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("G1").Select
ActiveWorkbook.Save

End Sub
Messages postés
51
Date d'inscription
lundi 5 février 2018
Statut
Membre
Dernière intervention
19 novembre 2019
10
Il m'indique une erreur de syntaxe pour cette partie :
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False


Cela correspond à quoi ?
Messages postés
51
Date d'inscription
lundi 5 février 2018
Statut
Membre
Dernière intervention
19 novembre 2019
10
C'est bon ! Tout fonctionne convenablement !

Merci pour votre aide et votre patience