Enregistrer sous le nom de 2 cellules - MACRO VBA
Résolu
Ra32
Messages postés
52
Statut
Membre
-
Ra32 Messages postés 52 Statut Membre -
Ra32 Messages postés 52 Statut Membre -
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"
Merci de bien vouloir m'aider…
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
-
Bonjour,
comme ceci:
Dim NOM As String NOM = Range("F10") & "-" & Range("B13") "F:\6 - LOGICIEL FACTURES FOURNITURES\FACTURES FOURNITURES\FACTURES 2018\" & NOM & ".pdf"
-
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 -
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 -
-
-
