Macro + Excel
Résolu
Lorrelei87
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Macro + Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
Et bienvenue sur CCM