Macro + Excel

Résolu
Lorrelei87 Messages postés 28 Statut Membre -  
pilas31 Messages postés 1878 Statut Contributeur -
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

1 réponse

  1. pilas31 Messages postés 1878 Statut Contributeur 648
     
    Bonjour,

    Cela doit fonctionner.
    Juste une question Cells(8,3) c'est la 8° ligne et la 3° colonne.
    n'avez vous pas inversé ce qui explique pourquoi Cells(8,8) est correct ?

    0
    1. Lorrelei87 Messages postés 28 Statut Membre
       
      MAGIQUE!!!!!!! Merci pour tout!!!!!!!
      0
    2. pilas31 Messages postés 1878 Statut Contributeur 648
       
      Avec plaisir
      Et bienvenue sur CCM
      0