Enregistrer sous le nom de 2 cellules - MACRO VBA

Résolu/Fermé

Ra32 Messages postés 51 Date d'inscription lundi 5 février 2018 Statut Membre Dernière intervention 19 novembre 2019 - 26 juin 2018 à 08:38
Ra32 Messages postés 51 Date d'inscription lundi 5 février 2018 Statut Membre Dernière intervention 19 novembre 2019 - 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…

A voir également:

Enregistrer sous le nom de 2 cellules - MACRO VBA
Audacity enregistrer son pc - Guide
Enregistrer son ecran - Guide
Nom de l'adresse - Forum Consommation & Internet
Enregistrer video youtube - Guide
Trouver un nom avec une adresse ✓ - Forum Loisirs / Divertissements

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 26 juin 2018 à 11:19

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 51 Date d'inscription lundi 5 février 2018 Statut Membre Dernière intervention 19 novembre 2019 16
26 juin 2018 à 11:26

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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 26 juin 2018 à 11:34

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 51 Date d'inscription lundi 5 février 2018 Statut Membre Dernière intervention 19 novembre 2019 16
26 juin 2018 à 11:44

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 51 Date d'inscription lundi 5 février 2018 Statut Membre Dernière intervention 19 novembre 2019 16
26 juin 2018 à 11:46

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

Comment trouver un numéro à partir du nom et prénom

Que faut il écrire dans le champ obligatoire : Adresse (suite)*?

Discussions similaires

Newsletters