Je voudrais si possible pousser un peu plus loin
les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement,
en format PDF, sur notre réseau. J'y fais des mise
à jour et tous savent que la dernière bonne version
est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print()
Application.ActivePrinter = "CutePDF Writer sur CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:", Collate:=True
End Sub
Cependant je voudrais indiquer directement dans la macro
le répertoire et le nom du fichier (même nom que le fichier EXCEL
en fait)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Tu veux quelque chose dans le genre ????
Sub PDF_print() Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .LeftHeader ThisWorkbook.Path .RightHeader = ThisWorkbook.Name End With .PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End With End With End Sub
"Gaspareau" a écrit dans le message de news: Bonjour
Je voudrais si possible pousser un peu plus loin les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement, en format PDF, sur notre réseau. J'y fais des mise à jour et tous savent que la dernière bonne version est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print() Application.ActivePrinter = "CutePDF Writer sur CPW2:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End Sub
Cependant je voudrais indiquer directement dans la macro le répertoire et le nom du fichier (même nom que le fichier EXCEL en fait)
C'est faisable ??
MErci beaucoup
Tu veux quelque chose dans le genre ????
Sub PDF_print()
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.LeftHeader ThisWorkbook.Path
.RightHeader = ThisWorkbook.Name
End With
.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:", Collate:=True
End With
End With
End Sub
"Gaspareau" <123@234> a écrit dans le message de news: uQhWjhJmHHA.1624@TK2MSFTNGP02.phx.gbl...
Bonjour
Je voudrais si possible pousser un peu plus loin
les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement,
en format PDF, sur notre réseau. J'y fais des mise
à jour et tous savent que la dernière bonne version
est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print()
Application.ActivePrinter = "CutePDF Writer sur CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:", Collate:=True
End Sub
Cependant je voudrais indiquer directement dans la macro
le répertoire et le nom du fichier (même nom que le fichier EXCEL
en fait)
Sub PDF_print() Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .LeftHeader ThisWorkbook.Path .RightHeader = ThisWorkbook.Name End With .PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End With End With End Sub
"Gaspareau" a écrit dans le message de news: Bonjour
Je voudrais si possible pousser un peu plus loin les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement, en format PDF, sur notre réseau. J'y fais des mise à jour et tous savent que la dernière bonne version est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print() Application.ActivePrinter = "CutePDF Writer sur CPW2:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End Sub
Cependant je voudrais indiquer directement dans la macro le répertoire et le nom du fichier (même nom que le fichier EXCEL en fait)
C'est faisable ??
MErci beaucoup
Gaspareau
Merci d'avoir répondu
non, en fait lorsque j'imprime un document PDF, on me demande le nom du fichier qui sera sauvegarder ainsi que le répertoire dans le quel le document doit être "imprimé"
Donc je voudrais savoir si je peux indiquer à l'imprimante PDF le nom et le répertoire dans lequel je veux avoir le document
Merci encore
On 17 mai, 12:04, "MichDenis" wrote:
Tu veux quelque chose dans le genre ????
Sub PDF_print() Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .LeftHeader ThisWorkbook.Path .RightHeader = ThisWorkbook.Name End With .PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End With End With End Sub
"Gaspareau" a écrit dans le message denews: uQhWjhJmHHA.1__BE GIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$ Bonjour
Je voudrais si possible pousser un peu plus loin les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement, en format PDF, sur notre réseau. J'y fais des mise à jour et tous savent que la dernière bonne version est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print() Application.ActivePrinter = "CutePDF Writer sur CPW2:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End Sub
Cependant je voudrais indiquer directement dans la macro le répertoire et le nom du fichier (même nom que le fichier EXCEL en fait)
C'est faisable ??
MErci beaucoup
Merci d'avoir répondu
non, en fait lorsque j'imprime un document PDF,
on me demande le nom du fichier qui sera sauvegarder
ainsi que le répertoire dans le quel le document doit
être "imprimé"
Donc je voudrais savoir si je peux indiquer à l'imprimante PDF le nom
et le répertoire dans lequel je veux avoir le document
Merci encore
On 17 mai, 12:04, "MichDenis" <michde...@hotmail.com> wrote:
Tu veux quelque chose dans le genre ????
Sub PDF_print()
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.LeftHeader ThisWorkbook.Path
.RightHeader = ThisWorkbook.Name
End With
.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:", Collate:=True
End With
End With
End Sub
"Gaspareau" <123@234> a écrit dans le message denews: uQhWjhJmHHA.1__BE GIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@TK2MSFTNGP02.phx.gbl...
Bonjour
Je voudrais si possible pousser un peu plus loin
les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement,
en format PDF, sur notre réseau. J'y fais des mise
à jour et tous savent que la dernière bonne version
est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print()
Application.ActivePrinter = "CutePDF Writer sur CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:", Collate:=True
End Sub
Cependant je voudrais indiquer directement dans la macro
le répertoire et le nom du fichier (même nom que le fichier EXCEL
en fait)
non, en fait lorsque j'imprime un document PDF, on me demande le nom du fichier qui sera sauvegarder ainsi que le répertoire dans le quel le document doit être "imprimé"
Donc je voudrais savoir si je peux indiquer à l'imprimante PDF le nom et le répertoire dans lequel je veux avoir le document
Merci encore
On 17 mai, 12:04, "MichDenis" wrote:
Tu veux quelque chose dans le genre ????
Sub PDF_print() Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .LeftHeader ThisWorkbook.Path .RightHeader = ThisWorkbook.Name End With .PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End With End With End Sub
"Gaspareau" a écrit dans le message denews: uQhWjhJmHHA.1__BE GIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$ Bonjour
Je voudrais si possible pousser un peu plus loin les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement, en format PDF, sur notre réseau. J'y fais des mise à jour et tous savent que la dernière bonne version est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print() Application.ActivePrinter = "CutePDF Writer sur CPW2:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End Sub
Cependant je voudrais indiquer directement dans la macro le répertoire et le nom du fichier (même nom que le fichier EXCEL en fait)
C'est faisable ??
MErci beaucoup
dunkelzahn
Bonjour,
C'est des messages de CutePDF qui sont hors contexte du VBA. La fenêtre d'impression ne prévoit pas de lignes pour enregistrer le nom du fichier. JE crois que ca va être dans l'impossible. Enfin, s'il y a quelqu'un qui trouve je suis également preneur.
On 18 mai, 02:39, Gaspareau wrote:
Merci d'avoir répondu
non, en fait lorsque j'imprime un document PDF, on me demande le nom du fichier qui sera sauvegarder ainsi que le répertoire dans le quel le document doit être "imprimé"
Donc je voudrais savoir si je peux indiquer à l'imprimante PDF le nom et le répertoire dans lequel je veux avoir le document
Merci encore
On 17 mai, 12:04, "MichDenis" wrote:
Tu veux quelque chose dans le genre ????
Sub PDF_print() Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .LeftHeader ThisWorkbook.Path .RightHeader = ThisWorkbook.Name End With .PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End With End With End Sub
"Gaspareau" a écrit dans le message denews: uQhWjhJmHHA.1__ BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__... __END_MASK_i?a63jfAD$ Bonjour
Je voudrais si possible pousser un peu plus loin les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement, en format PDF, sur notre réseau. J'y fais des mise à jour et tous savent que la dernière bonne version est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print() Application.ActivePrinter = "CutePDF Writer sur CPW2:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End Sub
Cependant je voudrais indiquer directement dans la macro le répertoire et le nom du fichier (même nom que le fichier EXCEL en fait)
C'est faisable ??
MErci beaucoup- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
C'est des messages de CutePDF qui sont hors contexte du VBA. La
fenêtre d'impression ne prévoit pas de lignes pour enregistrer le nom
du fichier. JE crois que ca va être dans l'impossible. Enfin, s'il y a
quelqu'un qui trouve je suis également preneur.
On 18 mai, 02:39, Gaspareau <gaspar...@gmail.com> wrote:
Merci d'avoir répondu
non, en fait lorsque j'imprime un document PDF,
on me demande le nom du fichier qui sera sauvegarder
ainsi que le répertoire dans le quel le document doit
être "imprimé"
Donc je voudrais savoir si je peux indiquer à l'imprimante PDF le nom
et le répertoire dans lequel je veux avoir le document
Merci encore
On 17 mai, 12:04, "MichDenis" <michde...@hotmail.com> wrote:
Tu veux quelque chose dans le genre ????
Sub PDF_print()
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.LeftHeader ThisWorkbook.Path
.RightHeader = ThisWorkbook.Name
End With
.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:", Collate:=True
End With
End With
End Sub
"Gaspareau" <123@234> a écrit dans le message denews: uQhWjhJmHHA.1__ BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__... __END_MASK_i?a63jfAD$z__@TK2MSFTNGP02.phx.gbl...
Bonjour
Je voudrais si possible pousser un peu plus loin
les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement,
en format PDF, sur notre réseau. J'y fais des mise
à jour et tous savent que la dernière bonne version
est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print()
Application.ActivePrinter = "CutePDF Writer sur CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:", Collate:=True
End Sub
Cependant je voudrais indiquer directement dans la macro
le répertoire et le nom du fichier (même nom que le fichier EXCEL
en fait)
C'est faisable ??
MErci beaucoup- Masquer le texte des messages précédents -
C'est des messages de CutePDF qui sont hors contexte du VBA. La fenêtre d'impression ne prévoit pas de lignes pour enregistrer le nom du fichier. JE crois que ca va être dans l'impossible. Enfin, s'il y a quelqu'un qui trouve je suis également preneur.
On 18 mai, 02:39, Gaspareau wrote:
Merci d'avoir répondu
non, en fait lorsque j'imprime un document PDF, on me demande le nom du fichier qui sera sauvegarder ainsi que le répertoire dans le quel le document doit être "imprimé"
Donc je voudrais savoir si je peux indiquer à l'imprimante PDF le nom et le répertoire dans lequel je veux avoir le document
Merci encore
On 17 mai, 12:04, "MichDenis" wrote:
Tu veux quelque chose dans le genre ????
Sub PDF_print() Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .LeftHeader ThisWorkbook.Path .RightHeader = ThisWorkbook.Name End With .PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End With End With End Sub
"Gaspareau" a écrit dans le message denews: uQhWjhJmHHA.1__ BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__... __END_MASK_i?a63jfAD$ Bonjour
Je voudrais si possible pousser un peu plus loin les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement, en format PDF, sur notre réseau. J'y fais des mise à jour et tous savent que la dernière bonne version est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print() Application.ActivePrinter = "CutePDF Writer sur CPW2:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End Sub
Cependant je voudrais indiquer directement dans la macro le répertoire et le nom du fichier (même nom que le fichier EXCEL en fait)
C'est faisable ??
MErci beaucoup- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
jps
bonjour dunkelzahn peut-être qu'à grands coups de Send Keys quand tu as à l'écran la fenêtre de PDF te demandant ce que tu veux enregistrer.... jps
"dunkelzahn" a écrit dans le message de news: Bonjour,
C'est des messages de CutePDF qui sont hors contexte du VBA. La fenêtre d'impression ne prévoit pas de lignes pour enregistrer le nom du fichier. JE crois que ca va être dans l'impossible. Enfin, s'il y a quelqu'un qui trouve je suis également preneur.
On 18 mai, 02:39, Gaspareau wrote:
Merci d'avoir répondu
non, en fait lorsque j'imprime un document PDF, on me demande le nom du fichier qui sera sauvegarder ainsi que le répertoire dans le quel le document doit être "imprimé"
Donc je voudrais savoir si je peux indiquer à l'imprimante PDF le nom et le répertoire dans lequel je veux avoir le document
Merci encore
On 17 mai, 12:04, "MichDenis" wrote:
Tu veux quelque chose dans le genre ????
Sub PDF_print() Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .LeftHeader ThisWorkbook.Path .RightHeader = ThisWorkbook.Name End With .PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End With End With End Sub
"Gaspareau" a écrit dans le message denews: uQhWjhJmHHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$ Bonjour
Je voudrais si possible pousser un peu plus loin les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement, en format PDF, sur notre réseau. J'y fais des mise à jour et tous savent que la dernière bonne version est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print() Application.ActivePrinter = "CutePDF Writer sur CPW2:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End Sub
Cependant je voudrais indiquer directement dans la macro le répertoire et le nom du fichier (même nom que le fichier EXCEL en fait)
C'est faisable ??
MErci beaucoup- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
bonjour dunkelzahn
peut-être qu'à grands coups de Send Keys quand tu as à l'écran la fenêtre de
PDF te demandant ce que tu veux enregistrer....
jps
"dunkelzahn" <dunkelzahn.dunkelzahn@gmail.com> a écrit dans le message de
news: 1179479547.322843.127620@n59g2000hsh.googlegroups.com...
Bonjour,
C'est des messages de CutePDF qui sont hors contexte du VBA. La
fenêtre d'impression ne prévoit pas de lignes pour enregistrer le nom
du fichier. JE crois que ca va être dans l'impossible. Enfin, s'il y a
quelqu'un qui trouve je suis également preneur.
On 18 mai, 02:39, Gaspareau <gaspar...@gmail.com> wrote:
Merci d'avoir répondu
non, en fait lorsque j'imprime un document PDF,
on me demande le nom du fichier qui sera sauvegarder
ainsi que le répertoire dans le quel le document doit
être "imprimé"
Donc je voudrais savoir si je peux indiquer à l'imprimante PDF le nom
et le répertoire dans lequel je veux avoir le document
Merci encore
On 17 mai, 12:04, "MichDenis" <michde...@hotmail.com> wrote:
Tu veux quelque chose dans le genre ????
Sub PDF_print()
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.LeftHeader ThisWorkbook.Path
.RightHeader = ThisWorkbook.Name
End With
.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:", Collate:=True
End With
End With
End Sub
"Gaspareau" <123@234> a écrit dans le message denews:
uQhWjhJmHHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@TK2MSFTNGP02.phx.gbl...
Bonjour
Je voudrais si possible pousser un peu plus loin
les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement,
en format PDF, sur notre réseau. J'y fais des mise
à jour et tous savent que la dernière bonne version
est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print()
Application.ActivePrinter = "CutePDF Writer sur CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:", Collate:=True
End Sub
Cependant je voudrais indiquer directement dans la macro
le répertoire et le nom du fichier (même nom que le fichier EXCEL
en fait)
C'est faisable ??
MErci beaucoup- Masquer le texte des messages précédents -
bonjour dunkelzahn peut-être qu'à grands coups de Send Keys quand tu as à l'écran la fenêtre de PDF te demandant ce que tu veux enregistrer.... jps
"dunkelzahn" a écrit dans le message de news: Bonjour,
C'est des messages de CutePDF qui sont hors contexte du VBA. La fenêtre d'impression ne prévoit pas de lignes pour enregistrer le nom du fichier. JE crois que ca va être dans l'impossible. Enfin, s'il y a quelqu'un qui trouve je suis également preneur.
On 18 mai, 02:39, Gaspareau wrote:
Merci d'avoir répondu
non, en fait lorsque j'imprime un document PDF, on me demande le nom du fichier qui sera sauvegarder ainsi que le répertoire dans le quel le document doit être "imprimé"
Donc je voudrais savoir si je peux indiquer à l'imprimante PDF le nom et le répertoire dans lequel je veux avoir le document
Merci encore
On 17 mai, 12:04, "MichDenis" wrote:
Tu veux quelque chose dans le genre ????
Sub PDF_print() Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .LeftHeader ThisWorkbook.Path .RightHeader = ThisWorkbook.Name End With .PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End With End With End Sub
"Gaspareau" a écrit dans le message denews: uQhWjhJmHHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$ Bonjour
Je voudrais si possible pousser un peu plus loin les infos que me donne l'enregistreur de macros
Je m'explique
J'ai un document que je dois publier régulièrement, en format PDF, sur notre réseau. J'y fais des mise à jour et tous savent que la dernière bonne version est sur le réseau
L'enregistreur de macro me donne le code suivant :
Sub PDF_print() Application.ActivePrinter = "CutePDF Writer sur CPW2:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "CutePDF Writer sur CPW2:", Collate:=True End Sub
Cependant je voudrais indiquer directement dans la macro le répertoire et le nom du fichier (même nom que le fichier EXCEL en fait)
C'est faisable ??
MErci beaucoup- Masquer le texte des messages précédents -