Enregistrer sous le nom de 2 cellules - MACRO VBA

Résolu

Ra32 Messages postés 50 Date d'inscription Statut Membre Dernière intervention -
Ra32 Messages postés 50 Date d'inscription Statut Membre Dernière intervention - 26 juin 2018 à 11:46

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…

Afficher la suite

A voir également:

Enregistrer sous le nom de 2 cellules - MACRO VBA
Audacity enregistrer son pc - Guide
Fusionner 2 cellules excel - Guide
Formule excel pour additionner plusieurs cellules - Guide
Changer le nom de son iphone - Guide
Comment enregistrer une conversation - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour,

comme ceci:

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

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

Ra32 Messages postés 50 Date d'inscription Statut Membre Dernière intervention 16

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

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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

Ra32 Messages postés 50 Date d'inscription Statut Membre Dernière intervention 16

Il m'indique une erreur de syntaxe pour cette partie :

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Cela correspond à quoi ?

Ra32 Messages postés 50 Date d'inscription Statut Membre Dernière intervention 16

C'est bon ! Tout fonctionne convenablement !

Merci pour votre aide et votre patience

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

Nom d’adresse

Nom d'adresse

Votre réponse

Discussions similaires