Macro + Excel
Résolu
Bonjour,
Je suis entrain de configurer mon logiciel de facturation sur excel. J'ai un mac.
J'aurais aimé créer un bouton d'enregistrement PDF avec automatisation du chemin d'enregistrement mais aussi du nom.
Jusqu'alors j'ai réussi à écrire le code que je voulais, mais je ne comprends pas quel est le problème avec le nom. Voici le code que j'ai écris :
Sub PDFDEVIS()
'
'
PdfFullName = Worksheets("DEVIS").Cells(8, 8).Value & "_" & Worksheets("DEVIS").Cells(8, 3).Value
' PDFDEVIS Macro
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Macintosh HD:Users:aurelieclion:Dropbox:DEVIS:" & PdfFullName & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True, _
From:=1, To:=1
End Sub
Le problème vient de la partie "PdfFullName = Worksheets("DEVIS").Cells(8, 8).Value & "_" & Worksheets("DEVIS").Cells(8, 3).Value" . En effet, le devis est enregistré avec la partie 1 du nom, soit "Worksheets("DEVIS").Cells(8, 8).Value & "_" " mais ne tient pas compte de la deuxième partie "Worksheets("DEVIS").Cells(8, 3).Value".
Quelqu'un sait d'où vient le problème ? Quel signe j'ai oublié ? Je n'y connais absolument rien en développement, j'ai juste réussi à faire ça au bout d'une semaine de fouilles intensives sur le net...
Merci beaucoup pour votre temps!!
Aurélie
Je suis entrain de configurer mon logiciel de facturation sur excel. J'ai un mac.
J'aurais aimé créer un bouton d'enregistrement PDF avec automatisation du chemin d'enregistrement mais aussi du nom.
Jusqu'alors j'ai réussi à écrire le code que je voulais, mais je ne comprends pas quel est le problème avec le nom. Voici le code que j'ai écris :
Sub PDFDEVIS()
'
'
PdfFullName = Worksheets("DEVIS").Cells(8, 8).Value & "_" & Worksheets("DEVIS").Cells(8, 3).Value
' PDFDEVIS Macro
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Macintosh HD:Users:aurelieclion:Dropbox:DEVIS:" & PdfFullName & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True, _
From:=1, To:=1
End Sub
Le problème vient de la partie "PdfFullName = Worksheets("DEVIS").Cells(8, 8).Value & "_" & Worksheets("DEVIS").Cells(8, 3).Value" . En effet, le devis est enregistré avec la partie 1 du nom, soit "Worksheets("DEVIS").Cells(8, 8).Value & "_" " mais ne tient pas compte de la deuxième partie "Worksheets("DEVIS").Cells(8, 3).Value".
Quelqu'un sait d'où vient le problème ? Quel signe j'ai oublié ? Je n'y connais absolument rien en développement, j'ai juste réussi à faire ça au bout d'une semaine de fouilles intensives sur le net...
Merci beaucoup pour votre temps!!
Aurélie
