Bonsoir le forum,
Je voudrais savoir si c'est possible d'envoyer une impression en PDF avec inscription du nom dans la boite de dialogue récupéré dans une cellule de la feuille excel.
Peut etre que la procédure est la meme que lorsque l'on demande d'endregistrer une feuille excel en lui donnant un nom deja présent dnas une cellule.
Mon but est simple, j'ai une macro qui enregistre des nom de personne et quand je l'ai rappele et que je dois imprimer la feuille qui contient toutes les données,je passe par le pdf et dans la boite de dialogue qui réclame un nom au pdf, je souhaiterai qu'il récupére le nom présent dans une cellule.
Merci vraiment beaucoup pour votre grande gentillesse a consacrer votre temps.
voic un exemple qui ne marche pas :
If FICHIER.Value = 'Imprimer' Then
Application.Dialogs(xlDialogPrinterSetup).Show
/// s'ouvre une boite de dialogue qui me permet de choisir mon imprimante
IMPDEMANDE.PrintOut
/// la feuille a imprimer
PrintToFile = True
Collate = True
printofilename = impresultat.Range('B159').Value & '.pdf'
/// le nom du document a imprimer en pdf.
Je précise que j'ai ACROBAT 5
Message édité par: kolivier, à: 19/06/2006 01:28
Je voudrais savoir si c'est possible d'envoyer une impression en PDF avec inscription du nom dans la boite de dialogue récupéré dans une cellule de la feuille excel.
Peut etre que la procédure est la meme que lorsque l'on demande d'endregistrer une feuille excel en lui donnant un nom deja présent dnas une cellule.
Mon but est simple, j'ai une macro qui enregistre des nom de personne et quand je l'ai rappele et que je dois imprimer la feuille qui contient toutes les données,je passe par le pdf et dans la boite de dialogue qui réclame un nom au pdf, je souhaiterai qu'il récupére le nom présent dans une cellule.
Merci vraiment beaucoup pour votre grande gentillesse a consacrer votre temps.
voic un exemple qui ne marche pas :
If FICHIER.Value = 'Imprimer' Then
Application.Dialogs(xlDialogPrinterSetup).Show
/// s'ouvre une boite de dialogue qui me permet de choisir mon imprimante
IMPDEMANDE.PrintOut
/// la feuille a imprimer
PrintToFile = True
Collate = True
printofilename = impresultat.Range('B159').Value & '.pdf'
/// le nom du document a imprimer en pdf.
Je précise que j'ai ACROBAT 5
Message édité par: kolivier, à: 19/06/2006 01:28