Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message de
news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: eKxXnvj7HHA.2208@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message de
news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message de
news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: eKxXnvj7HHA.2208@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message de
news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message de
news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
ud8876j7HHA.5184@TK2MSFTNGP03.phx.gbl...
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: eKxXnvj7HHA.2208@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message de
news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations
à caractère promotionnel passent bien après, surtout lorsque les vendanges
ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" a écrit dans le message de
news:Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message
de
news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations
à caractère promotionnel passent bien après, surtout lorsque les vendanges
ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: uMzApOk7HHA.1208@TK2MSFTNGP03.phx.gbl...
Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
ud8876j7HHA.5184@TK2MSFTNGP03.phx.gbl...
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de
news: eKxXnvj7HHA.2208@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations
à caractère promotionnel passent bien après, surtout lorsque les vendanges
ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" a écrit dans le message de
news:Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message
de
news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations à caractère promotionnel passent bien après, surtout
lorsque les vendanges ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" a écrit dans le message de
news:Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message
de news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations à caractère promotionnel passent bien après, surtout
lorsque les vendanges ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: uMzApOk7HHA.1208@TK2MSFTNGP03.phx.gbl...
Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
ud8876j7HHA.5184@TK2MSFTNGP03.phx.gbl...
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de news: eKxXnvj7HHA.2208@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations à caractère promotionnel passent bien après, surtout
lorsque les vendanges ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" a écrit dans le message de
news:Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message
de news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
re rex
en fait, tu crées une variable du nom de PDFname (que les puristes te
feront déclarer en haut de ta procédure : Dim PDFname As String) ; jusque
là, pas de problème et tu peux bien mettre cette ligne où tu veux ; mais
ensuite, tu veux en faire quoi de cette variable?
that's the question, my dearest rex
jps
"jps" a écrit dans le message de news:moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations à caractère promotionnel passent bien après, surtout
lorsque les vendanges ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" a écrit dans le message de
news:Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message
de news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
re rex
en fait, tu crées une variable du nom de PDFname (que les puristes te
feront déclarer en haut de ta procédure : Dim PDFname As String) ; jusque
là, pas de problème et tu peux bien mettre cette ligne où tu veux ; mais
ensuite, tu veux en faire quoi de cette variable?
that's the question, my dearest rex
jps
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uIcajwk7HHA.4880@TK2MSFTNGP03.phx.gbl...
moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations à caractère promotionnel passent bien après, surtout
lorsque les vendanges ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: uMzApOk7HHA.1208@TK2MSFTNGP03.phx.gbl...
Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
ud8876j7HHA.5184@TK2MSFTNGP03.phx.gbl...
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de news: eKxXnvj7HHA.2208@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
re rex
en fait, tu crées une variable du nom de PDFname (que les puristes te
feront déclarer en haut de ta procédure : Dim PDFname As String) ; jusque
là, pas de problème et tu peux bien mettre cette ligne où tu veux ; mais
ensuite, tu veux en faire quoi de cette variable?
that's the question, my dearest rex
jps
"jps" a écrit dans le message de news:moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations à caractère promotionnel passent bien après, surtout
lorsque les vendanges ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" a écrit dans le message de
news:Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message
de news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Bonjour Rex,
J'ai besoin aussi d'imprimer en pdf mais je n'y arrive pas facilement.
Ma méthode consiste à sauvegarder un fichier .prn via l'imprimante
"Acrobat
distiller" ("L'imprimante pdf" que j'ai est Acrobat distiller, je suppose
que
ça peut aussi marcher avec CutePdf).
Comme ceci :
MonDir = "D:Impressions"
MonFichierPDF = MonDir & "MonFichierEnPdf.prn" ' Format prn et non pas
MonWorkbook.PrintOut PrintToFile:=True, PrToFileName:=MonFichierPDF,
ActivePrinter:="Acrobat Distiller", Copies:=1, Collate:=True
À ce stade un fichier dont l'extension est .prn est créé dans le
répertoire
convenu.
Il suffit alors de lancer le programme Acrobat Distiller et de configurer
parmi les dossiers de contrôles celui convenu (MonDir).
Le programme Acrobat Distiller travaille en arrière plan en surveillant
tous
les répertoires souhaités. Y COMPRIS UN RÉPERTOIRE RÉSEAU. On peut le
lancer
une fois pour la journée et dès qu'un fichier .prn y arrive il est
converti
en .pdf. Cute pdf a normalement un module qui fait cette conversion il me
semble.
En fait ma macro n'imprime rien. Elle fabrique à la chaine une
cinquantaine
de fichiers .prn.
Voila, si quelqu'un a plus simple, je suis preneur.
Cordialement,
Trirème
Bonjour Rex,
J'ai besoin aussi d'imprimer en pdf mais je n'y arrive pas facilement.
Ma méthode consiste à sauvegarder un fichier .prn via l'imprimante
"Acrobat
distiller" ("L'imprimante pdf" que j'ai est Acrobat distiller, je suppose
que
ça peut aussi marcher avec CutePdf).
Comme ceci :
MonDir = "D:Impressions"
MonFichierPDF = MonDir & "MonFichierEnPdf.prn" ' Format prn et non pas
MonWorkbook.PrintOut PrintToFile:=True, PrToFileName:=MonFichierPDF,
ActivePrinter:="Acrobat Distiller", Copies:=1, Collate:=True
À ce stade un fichier dont l'extension est .prn est créé dans le
répertoire
convenu.
Il suffit alors de lancer le programme Acrobat Distiller et de configurer
parmi les dossiers de contrôles celui convenu (MonDir).
Le programme Acrobat Distiller travaille en arrière plan en surveillant
tous
les répertoires souhaités. Y COMPRIS UN RÉPERTOIRE RÉSEAU. On peut le
lancer
une fois pour la journée et dès qu'un fichier .prn y arrive il est
converti
en .pdf. Cute pdf a normalement un module qui fait cette conversion il me
semble.
En fait ma macro n'imprime rien. Elle fabrique à la chaine une
cinquantaine
de fichiers .prn.
Voila, si quelqu'un a plus simple, je suis preneur.
Cordialement,
Trirème
Bonjour Rex,
J'ai besoin aussi d'imprimer en pdf mais je n'y arrive pas facilement.
Ma méthode consiste à sauvegarder un fichier .prn via l'imprimante
"Acrobat
distiller" ("L'imprimante pdf" que j'ai est Acrobat distiller, je suppose
que
ça peut aussi marcher avec CutePdf).
Comme ceci :
MonDir = "D:Impressions"
MonFichierPDF = MonDir & "MonFichierEnPdf.prn" ' Format prn et non pas
MonWorkbook.PrintOut PrintToFile:=True, PrToFileName:=MonFichierPDF,
ActivePrinter:="Acrobat Distiller", Copies:=1, Collate:=True
À ce stade un fichier dont l'extension est .prn est créé dans le
répertoire
convenu.
Il suffit alors de lancer le programme Acrobat Distiller et de configurer
parmi les dossiers de contrôles celui convenu (MonDir).
Le programme Acrobat Distiller travaille en arrière plan en surveillant
tous
les répertoires souhaités. Y COMPRIS UN RÉPERTOIRE RÉSEAU. On peut le
lancer
une fois pour la journée et dès qu'un fichier .prn y arrive il est
converti
en .pdf. Cute pdf a normalement un module qui fait cette conversion il me
semble.
En fait ma macro n'imprime rien. Elle fabrique à la chaine une
cinquantaine
de fichiers .prn.
Voila, si quelqu'un a plus simple, je suis preneur.
Cordialement,
Trirème
re rex
en fait, tu crées une variable du nom de PDFname (que les puristes te
feront déclarer en haut de ta procédure : Dim PDFname As String) ; jusque
là, pas de problème et tu peux bien mettre cette ligne où tu veux ; mais
ensuite, tu veux en faire quoi de cette variable?
that's the question, my dearest rex
jps
"jps" a écrit dans le message de news:moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations à caractère promotionnel passent bien après, surtout
lorsque les vendanges ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" a écrit dans le message de
news:Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message
de news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
re rex
en fait, tu crées une variable du nom de PDFname (que les puristes te
feront déclarer en haut de ta procédure : Dim PDFname As String) ; jusque
là, pas de problème et tu peux bien mettre cette ligne où tu veux ; mais
ensuite, tu veux en faire quoi de cette variable?
that's the question, my dearest rex
jps
"jps" <vaderetrosp@mas> a écrit dans le message de news:
uIcajwk7HHA.4880@TK2MSFTNGP03.phx.gbl...
moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations à caractère promotionnel passent bien après, surtout
lorsque les vendanges ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: uMzApOk7HHA.1208@TK2MSFTNGP03.phx.gbl...
Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
ud8876j7HHA.5184@TK2MSFTNGP03.phx.gbl...
un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message
de news: eKxXnvj7HHA.2208@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
re rex
en fait, tu crées une variable du nom de PDFname (que les puristes te
feront déclarer en haut de ta procédure : Dim PDFname As String) ; jusque
là, pas de problème et tu peux bien mettre cette ligne où tu veux ; mais
ensuite, tu veux en faire quoi de cette variable?
that's the question, my dearest rex
jps
"jps" a écrit dans le message de news:moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations à caractère promotionnel passent bien après, surtout
lorsque les vendanges ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci pour
lui
jps
"rthompson" a écrit dans le message de
news:Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le message
de news:Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx