Numéroter d'un devis selon une cell définie
Résolu
BABAR07
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
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.
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.
A voir également:
- Numéroter d'un devis selon une cell définie
- Logiciel devis facture - Télécharger - Comptabilité & Facturation
- Free devis facture - Télécharger - Comptabilité & Facturation
- Numéroter page word - Guide
- Starlink direct to cell prix - Accueil - Opérateurs & Forfaits
- Vous devez disposer d'une autorisation pour effectuer cette action - Guide
2 réponses
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.
@ +
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.
@ +
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
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
bonjour , je te remerçie beaucoup mais tu vas penser que je suis bête car je ne sais pas où inclure ce que tu m'a proposé ci-dessous.si ce n'est pas trop te demander peut-tu me faire la macro complète, STP
j'ai essayé mais j'ai tout mélangé.
En te remerciant à l'avance,
nomfich=worksheets("Feuil1").[F10]
Filename:= "C:\Documents and Settings\Daniel\Bureau\DEVIS\" & nomfich & ".pdf"
j'ai essayé mais j'ai tout mélangé.
En te remerciant à l'avance,
nomfich=worksheets("Feuil1").[F10]
Filename:= "C:\Documents and Settings\Daniel\Bureau\DEVIS\" & nomfich & ".pdf"
si on remplace dans ta macro :
eric
nomfich=worksheets("Feuil1").[F10]
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\Daniel\Bureau\DEVIS\" & nomfich & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Range("F13:G18").Select
eric
