Chemin d'enregistrement avec variable, mac 2011
Bonjour à tous,
Voici une macro qui permet la création et l'enregistrement d'un PDF dans le dossier "Facturier" spécifié par le chemin "Disque dur:Users:admin:Ventes:Facturier:" & Nom , la variable "Nom" contient le nom du client et le numéro de facture.
Ça fonctionne, mais je voudrais classer par année les fichiers PDF qui arrivent dans le dossier "Facturier" en y ajoutant un sous-dossier par année et donc ajouter une variable indiquant l'année dans le chemin (variable "Annee" récupérée dans le numéro de facture), à la suite de Facturier.
Les essais que j'ai effectués ajoutent la variable "Annee" au nom du fichier PDF mais ne la considèrent pas comme la suite du chemin d'enregistrement. Le code est ci-dessous.
Je vous remercie pour votre aide.
Dul
[code]Sub Facturation_Image2_QuandClic()
Dim Nom As String
Dim Annee As String
Dim Mois As String
Dim MTexte As String
'recupere année et mois dans le numero de facture
Annee = Right(Range("F38").Text, 4)
MTexte = Range("F38").Value
Mois = Mid(MTexte, 5, 2)
'creation du nom du PDF ou F38 est le numero de facture et K20 le nom du client
Nom = "facture #" & Sheets("Facturation").Range("f38") & " " & Range("k20") & ".pdf"
ActiveSheet.PageSetup.PrintArea = "$C$2:$O$81" ' ajout pour forcer la zone a chaque fois
'chemin enregistrement fichier PDF
Worksheets("Facturation").ExportAsFixedFormat xlTypePDF, _
"Disque dur:Users:admin:Ventes:Facturier:" & Anne & Nom
MsgBox "Facture PDF sauvegardée"
End Sub
/code]