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
HB
Bonsoir, Je me réponds à moi-même puisque tout le monde dort ;o) Cordialement, HB Sub Prt2Pdf_Lot() Dim Chemin, Sortie As String Dim Fichier, SAV As String Dim Nom As String Application.ScreenUpdating = False SAV = Application.ActivePrinter MsgBox SAV Chemin = "D:Sources" Sortie = "D:Cible" Fichier = Dir(Chemin & "*.doc*") Application.ActivePrinter = "Microsoft Print To PDF" Do While Fichier <> "" Nom = Split(Fichier, ".")(0) Application.PrintOut FileName:=Chemin & Fichier, _ OutputFileName:=Sortie & Nom & ".pdf", PrintToFile:=True Fichier = Dir() Loop Application.ActivePrinter = SAV Application.ScreenUpdating = True End Sub Le 06/11/2016 à 17:25, HB a écrit :
Bonjour, Y'a des doc & docx dans un dossier... Je voudrais faire une macro VBA qui les imprime ( avec "Microsoft Print to pdf") - dans un dossier que je choisis au lancement TRUC.doc donnera tout simplement TRUC.pdf donc les noms ne seront pas demandés. Faire une boucle pour balayer de répertoire ... ça ira. Choisir la bonne imprimante aussi... Mais je n'ai pas trouvé où transmettre - les noms des pdf - le lieu d'enregistrement pour que ça se fasse tout seul ;o( Merci d'avance, HB --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus
Bonsoir,
Je me réponds à moi-même puisque tout le monde dort ;o)
Cordialement,
HB
Sub Prt2Pdf_Lot()
Dim Chemin, Sortie As String
Dim Fichier, SAV As String
Dim Nom As String
Application.ScreenUpdating = False
SAV = Application.ActivePrinter
MsgBox SAV
Bonsoir, Je me réponds à moi-même puisque tout le monde dort ;o) Cordialement, HB Sub Prt2Pdf_Lot() Dim Chemin, Sortie As String Dim Fichier, SAV As String Dim Nom As String Application.ScreenUpdating = False SAV = Application.ActivePrinter MsgBox SAV Chemin = "D:Sources" Sortie = "D:Cible" Fichier = Dir(Chemin & "*.doc*") Application.ActivePrinter = "Microsoft Print To PDF" Do While Fichier <> "" Nom = Split(Fichier, ".")(0) Application.PrintOut FileName:=Chemin & Fichier, _ OutputFileName:=Sortie & Nom & ".pdf", PrintToFile:=True Fichier = Dir() Loop Application.ActivePrinter = SAV Application.ScreenUpdating = True End Sub Le 06/11/2016 à 17:25, HB a écrit :
Bonjour, Y'a des doc & docx dans un dossier... Je voudrais faire une macro VBA qui les imprime ( avec "Microsoft Print to pdf") - dans un dossier que je choisis au lancement TRUC.doc donnera tout simplement TRUC.pdf donc les noms ne seront pas demandés. Faire une boucle pour balayer de répertoire ... ça ira. Choisir la bonne imprimante aussi... Mais je n'ai pas trouvé où transmettre - les noms des pdf - le lieu d'enregistrement pour que ça se fasse tout seul ;o( Merci d'avance, HB --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus
HB
Il faut virer le "msgbox SAV" qui m'a servi pendant les tests ;o) HB Le 09/11/2016 à 21:20, HB a écrit :
Bonsoir, Je me réponds à moi-même puisque tout le monde dort ;o) Cordialement, HB Sub Prt2Pdf_Lot() Dim Chemin, Sortie As String Dim Fichier, SAV As String Dim Nom As String Application.ScreenUpdating = False SAV = Application.ActivePrinter MsgBox SAV Chemin = "D:Sources" Sortie = "D:Cible" Fichier = Dir(Chemin & "*.doc*") Application.ActivePrinter = "Microsoft Print To PDF" Do While Fichier <> "" Nom = Split(Fichier, ".")(0) Application.PrintOut FileName:=Chemin & Fichier, _ OutputFileName:=Sortie & Nom & ".pdf", PrintToFile:=True Fichier = Dir() Loop Application.ActivePrinter = SAV Application.ScreenUpdating = True End Sub Le 06/11/2016 à 17:25, HB a écrit :
Bonjour, Y'a des doc & docx dans un dossier... Je voudrais faire une macro VBA qui les imprime ( avec "Microsoft Print to pdf") - dans un dossier que je choisis au lancement TRUC.doc donnera tout simplement TRUC.pdf donc les noms ne seront pas demandés. Faire une boucle pour balayer de répertoire ... ça ira. Choisir la bonne imprimante aussi... Mais je n'ai pas trouvé où transmettre - les noms des pdf - le lieu d'enregistrement pour que ça se fasse tout seul ;o( Merci d'avance, HB --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus
Il faut virer le "msgbox SAV" qui m'a servi pendant les tests ;o)
HB
Le 09/11/2016 à 21:20, HB a écrit :
Bonsoir,
Je me réponds à moi-même puisque tout le monde dort ;o)
Cordialement,
HB
Sub Prt2Pdf_Lot()
Dim Chemin, Sortie As String
Dim Fichier, SAV As String
Dim Nom As String
Application.ScreenUpdating = False
SAV = Application.ActivePrinter
MsgBox SAV
Il faut virer le "msgbox SAV" qui m'a servi pendant les tests ;o) HB Le 09/11/2016 à 21:20, HB a écrit :
Bonsoir, Je me réponds à moi-même puisque tout le monde dort ;o) Cordialement, HB Sub Prt2Pdf_Lot() Dim Chemin, Sortie As String Dim Fichier, SAV As String Dim Nom As String Application.ScreenUpdating = False SAV = Application.ActivePrinter MsgBox SAV Chemin = "D:Sources" Sortie = "D:Cible" Fichier = Dir(Chemin & "*.doc*") Application.ActivePrinter = "Microsoft Print To PDF" Do While Fichier <> "" Nom = Split(Fichier, ".")(0) Application.PrintOut FileName:=Chemin & Fichier, _ OutputFileName:=Sortie & Nom & ".pdf", PrintToFile:=True Fichier = Dir() Loop Application.ActivePrinter = SAV Application.ScreenUpdating = True End Sub Le 06/11/2016 à 17:25, HB a écrit :
Bonjour, Y'a des doc & docx dans un dossier... Je voudrais faire une macro VBA qui les imprime ( avec "Microsoft Print to pdf") - dans un dossier que je choisis au lancement TRUC.doc donnera tout simplement TRUC.pdf donc les noms ne seront pas demandés. Faire une boucle pour balayer de répertoire ... ça ira. Choisir la bonne imprimante aussi... Mais je n'ai pas trouvé où transmettre - les noms des pdf - le lieu d'enregistrement pour que ça se fasse tout seul ;o( Merci d'avance, HB --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">https://www.avast.com/antivirus