numéroter d'un devis selon une cell définie Résolu/Fermé

Question

Bonjour, 
c'est encore moi, j'ai un problème que je n'arrive pas à résoudre, je fait un devis, je le numérote, ensuite je 'imprime et je le sauvegarde dans un autre dossier avec la macro jointe , mais je n'arrive pas a lui faire comprendre qu'il soit enregisté sous le N° du devis ici c'est en F10, je joint ma macro, il me nomme mon dossier toujours avec 0
je travaille avec EXCEL 2007 sous XP

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\Daniel\Bureau\DEVIS\0.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Range("F13:G18").Select

Merci de tout coeur à toutes et à tous de m'apporté votre aide, même si je suis en retraîte , j'ai pas la grosse tête non plus.

Configuration: Windows XP / Internet Explorer 8.0

Sloubi76 · Answer

Bonsoir,

Si dans la macro le nom sous lequel doit être sauvegardé le fichier est invariable, le résultat est connu d'avance.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\Daniel\Bureau\DEVIS\0.pdf", 

Il convient de reprendre la macro est insérer une variable permettant d'incrémenter le nom du fichier.

@ +

eriiic · Answer

Bonsoir,

En plus complet :
nomfich=worksheets("Feuil1").[F10]
Filename:= "C:\Documents and Settings\Daniel\Bureau\DEVIS\" & nomfich & ".pdf"

Remplace Feuil1 par le nom réel de la feuille

eric

Numéroter d'un devis selon une cell définie

2 réponses

Discussions similaires