Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 4 sur 9
Aller à la page: <  1, 2, 3, 4, 5, 6, 7, 8, 9  >
Télécharger, convertir et renommer
Auteur Message
Répondre en citant
Message Télécharger, convertir et renommer 
Revue du message précédent :

.

c'est tmp.vbs qui est en cause, vraisemblablement il essai de faire imprimer vbs_downloader_engine
faut voir avec Hackoo
mais avant, supprime déjà le "rem" devant le "del"

Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Télécharger, convertir et renommer 
Protégé non, car quand je le lance seul le script conversion ça fonctionne.

Je vais regarder un peu.
J'ai une réunion là et en début d'aprem aussi.
Je serait de nouveau là vers 15h30 pour vous dire

Bon après les premiers tests, la conversion ne fonctionne pas tout simplement car le fichier n'est pas encore téléchargé...
En gros si je lance le script plusieurs fois de suite il converti les fichiers téléchargés la fois d'avant mais pas ceux de l'exécution en cours...



Répondre en citant
Message Télécharger, convertir et renommer 
Salut
C'est parce que il n'y a pas d'extension devant le fichier donc ajoutez l'extension.vbs et teste Mr. Green
Code:
@echo off
set "url_list_name=url.txt"
set "vbs_downloader_name=vbs_downloader_engine.vbs"
if not exist "%url_list_name%" echo error, "%url_list_name%" n'exist pas! & pause& goto :eof
call :gen_downloader
if not exist "%vbs_downloader_name%" echo error, "%vbs_downloader_name%" n'exist pas! & pause& goto :eof
for /f "usebackq tokens=*" %%i in ("%url_list_name%") do call :download_file "%%~i"
::Pause 3 secondes
ping -n 3 127.0.0.1 >nul
:: Suppression du Vbscript
del "%vbs_downloader_name%"

:download_file
echo downloading "%~1"
cscript //nologo //e:vbscript "%vbs_downloader_name%" "/input:%~1" "/output:%~nx1"
if errorlevel 1 echo error
goto :eof

:gen_downloader
(
echo.function getFileName^(content^)
echo.  if content= "" then
echo.    getFileName= ""
echo.    exit function
echo.  end if
echo.  set regEx= CreateObject^("VbScript.Regexp"^)
echo.  regEx.Pattern= "filename=\x22([^\x22]+)\x22"
echo.  getFileName= ^(regEx.Execute^(content^)^)^(0^).SubMatches^(0^)
echo.end function
echo.
echo.function main^(^)
echo.  target_link= WScript.Arguments.Named^("input"^)
echo.  set XMLObject= CreateObject^("MSXML2.XMLHTTP"^)
echo.  XMLObject.open "GET", target_link, false
echo.  XMLObject.send^(^)
echo.  if XMLObject.status = 200 then
echo.    set ADOStream= CreateObject^("ADODB.Stream"^)
echo.    ADOStream.open
echo.    ADOStream.Type= 1' option_type_binary
echo.    ADOStream.Write XMLObject.ResponseBody
echo.    file_save_name= getFileName^(XMLObject.getResponseHeader^("Content-Disposition"^)^)
echo.    if file_save_name= "" then
echo.      file_save_name = WScript.Arguments.Named^("output"^)
echo.    end if
echo.    ADOStream.SaveToFile file_save_name, 2 'option_save_and_overwrite
echo.    errorlevel=Err.Number
echo.    AdoStream.Close
echo.  end if
echo.    main= errorlevel
echo.end function
echo.
echo.WSCript.Quit^(main^(^)^)
)>"%vbs_downloader_name%"
goto :eof





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Télécharger, convertir et renommer 
.

non, non, j'ai éditer avant ton message, en fait j'avais pensé à un pdf protégé parce que je croyais
que tu voulais modifier un pdf ou l'imprimer.

mais le téléchargement est synchro, ça ne donne pas la main à la conversion avant que ça soit fini
au pire, fait un délais avec le "ping".



Répondre en citant
Message Télécharger, convertir et renommer 
Salut
Testez ce code pour le download et la conversion Wink

Code:
@echo off
Title Telechargement des fichiers
mode con cols=100 lines=8 & color 9B
:: *************************************Partie téléchargement********************************************************
:: Téléchargement des url
set "url_name=url.txt"
set "vbs_downloader_name=vbs_downloader_engine"
if not exist "%url_name%" echo error, "%url_name%" n'exist pas! & pause
call :gen_downloader
if not exist "%vbs_downloader_name%" echo error, "%vbs_downloader_name%" n'exist pas! & pause& goto :eof
for /f "usebackq tokens=*" %%i in ("%url_name%") do call :download_file "%%~i"
Del "%vbs_downloader_name%"
ping -n 3 127.0.0.1 >nul
goto Conversion

:download_file
echo downloading "%~1"
cscript //nologo //e:vbscript "%vbs_downloader_name%" "/input:%~1" "/output:%~nx1"
if errorlevel 1 echo error
goto :eof

:gen_downloader
(
echo.function getFileName^(content^)
echo.  if content= "" then
echo.    getFileName= ""
echo.    exit function
echo.  end if
echo.  set regEx= CreateObject^("VbScript.Regexp"^)
echo.  regEx.Pattern= "filename=\x22([^\x22]+)\x22"
echo.  getFileName= ^(regEx.Execute^(content^)^)^(0^).SubMatches^(0^)
echo.end function
echo.
echo.function main^(^)
echo.  target_link= WScript.Arguments.Named^("input"^)
echo.  set XMLObject= CreateObject^("MSXML2.XMLHTTP"^)
echo.  XMLObject.open "GET", target_link, false
echo.  XMLObject.send^(^)
echo.  if XMLObject.status = 200 then
echo.    set ADOStream= CreateObject^("ADODB.Stream"^)
echo.    ADOStream.open
echo.    ADOStream.Type= 1' option_type_binary
echo.    ADOStream.Write XMLObject.ResponseBody
echo.    file_save_name= getFileName^(XMLObject.getResponseHeader^("Content-Disposition"^)^)
echo.    if file_save_name= "" then
echo.      file_save_name = WScript.Arguments.Named^("output"^)
echo.    end if
echo.    ADOStream.SaveToFile file_save_name, 2 'option_save_and_overwrite
echo.    errorlevel=Err.Number
echo.    AdoStream.Close
echo.  end if
echo.    main= errorlevel
echo.end function
echo.
echo.WSCript.Quit^(main^(^)^)
)>"%vbs_downloader_name%"
goto :eof

:: **************************************Partie Conversion*******************************************************
:: Convert with PDFCreator (Création d'un script .vbs qui est supprimé après l'exécution)
:Conversion
mode con cols=80 lines=5 & color 9B
Title Generer le vbscript pour la conversion en PDF avec PDFCreator.exe by Hackoo
(
echo Option Explicit
echo Const maxTime = 60    ' in seconds
echo Const sleepTime = 250 ' in milliseconds
echo Dim objArgs, ifname, fso, PDFCreator, DefaultPrinter, ReadyState, _
echo i, c, AppTitle, Scriptname, ScriptBasename
echo Set fso = CreateObject("Scripting.FileSystemObject"^)
echo Scriptname = fso.GetFileName(Wscript.ScriptFullname^)
echo ScriptBasename = fso.GetFileName(Wscript.ScriptFullname^)
echo AppTitle = "PDFCreator - " ^& ScriptBaseName
echo Set PDFCreator = Wscript.CreateObject("PDFCreator.clsPDFCreator", "PDFCreator_"^)
echo PDFCreator.cStart "/NoProcessingAtStartup"
echo With PDFCreator
echo    .cOption("UseAutosave"^) = 1
echo    .cOption("UseAutosaveDirectory"^) = 1
echo    .cOption("AutosaveFormat"^) = 0 'La valeur 0 = PDF La valeur 1 = PNG
echo    DefaultPrinter = .cDefaultprinter
echo    .cDefaultprinter = "PDFCreator"
echo    .cClearcache
echo    .cPrinterStop = false
echo End With
echo For each ifname in FSO.GetFolder(GetPath(^)^).Files
echo    With PDFCreator
echo        If Not fso.FileExists(ifname^) Then
echo            MsgBox "Il n'y a pas de fichier : " ^& ifname, vbExclamation + vbSystemModal, AppTitle
echo            Exit For
echo        End If
echo        if Not .cIsPrintable(CStr(ifname^)^) Then
echo            MsgBox "Conversion : " ^& ifname ^& vbcrlf ^& vbcrlf ^& _
echo            "Une erreur s'est produite est: Le fichier n'est pas imprimable !", vbExclamation + vbSystemModal, AppTitle
echo            Exit For
echo            Wscript.Quit
echo        End if
echo    If Ucase(fso.GetExtensionName(ifname.Name^)^)="PPT" Or Ucase(fso.GetExtensionName(ifname.Name^)^)="PPTX" Then
echo        ReadyState = 0
echo        .cOption("AutosaveDirectory"^) = fso.GetParentFolderName(ifname^) 'Le dossier pour sauvegarder les fichiers convertis en PDF
echo        .cOption("AutosaveFilename"^) = fso.GetBaseName(ifname^)
echo        .cPrintfile cStr(ifname^)
echo        c = 0
echo Do While (ReadyState = 0^) and (c ^< (maxTime * 1000 / sleepTime^)^)
echo            c = c + 1
echo            Wscript.Sleep sleepTime
echo Loop
echo        If ReadyState = 0 then
echo            MsgBox "Conversion : " ^& ifname ^& vbcrlf ^& vbcrlf ^& _
echo            "Une erreur s'est produite est : Le temps est écoulé !", vbExclamation + vbSystemModal, AppTitle
echo            Exit For
echo        End If
echo      End If
echo    End With
echo Next
echo With PDFCreator
echo    .cDefaultprinter = DefaultPrinter
echo    .cClearcache
echo    WScript.Sleep 200
echo    .cClose
echo End With
echo ^'****************************************************************************************************
echo Public Sub PDFCreator_eReady(^)
echo    ReadyState = 1
echo End Sub
echo ^'****************************************************************************************************
echo Public Sub PDFCreator_eError(^)
echo    MsgBox "An error is occured!" ^& vbcrlf ^& vbcrlf ^& _
echo    "Error [" ^& PDFCreator.cErrorDetail("Number"^) ^& "]: " ^& PDFcreator.cErrorDetail("Description"^), vbCritical + vbSystemModal, AppTitle
echo    Wscript.Quit
echo End Sub
echo  ^'****************************************************************************************************
echo Function GetPath(^)
echo Dim path
echo   path = WScript.ScriptFullName
echo   GetPath = Left(path, InStrRev(path, "\"^)^)
echo End Function
 ) > tmp.vbs
 echo Generer le vbscript pour la conversion en PDF avec PDFCreator.exe
 ping -n 3 127.0.0.1 >nul
 cls
 echo la conversion en PDF avec PDFCreator.exe est en cours ....
 Start /Wait tmp.vbs
 ping -n 3 127.0.0.1 >nul
 Del tmp.vbs





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Télécharger, convertir et renommer 
Super ça fonctionne parfaitement

on ajoute la partie rename et on a ça :

Code:
@echo off
Title Telechargement des fichiers
mode con cols=100 lines=8 & color 9B
:: *************************************Partie téléchargement********************************************************
:: Téléchargement des url
set "url_name=url.txt"
set "vbs_downloader_name=vbs_downloader_engine"
if not exist "%url_name%" echo error, "%url_name%" n'exist pas! & pause
call :gen_downloader
if not exist "%vbs_downloader_name%" echo error, "%vbs_downloader_name%" n'exist pas! & pause& goto :eof
for /f "usebackq tokens=*" %%i in ("%url_name%") do call :download_file "%%~i"
Del "%vbs_downloader_name%"
ping -n 3 127.0.0.1 >nul
goto Conversion

:download_file
echo downloading "%~1"
cscript //nologo //e:vbscript "%vbs_downloader_name%" "/input:%~1" "/output:%~nx1"
if errorlevel 1 echo error
goto :eof

:gen_downloader
(
echo.function getFileName^(content^)
echo.  if content= "" then
echo.    getFileName= ""
echo.    exit function
echo.  end if
echo.  set regEx= CreateObject^("VbScript.Regexp"^)
echo.  regEx.Pattern= "filename=\x22([^\x22]+)\x22"
echo.  getFileName= ^(regEx.Execute^(content^)^)^(0^).SubMatches^(0^)
echo.end function
echo.
echo.function main^(^)
echo.  target_link= WScript.Arguments.Named^("input"^)
echo.  set XMLObject= CreateObject^("MSXML2.XMLHTTP"^)
echo.  XMLObject.open "GET", target_link, false
echo.  XMLObject.send^(^)
echo.  if XMLObject.status = 200 then
echo.    set ADOStream= CreateObject^("ADODB.Stream"^)
echo.    ADOStream.open
echo.    ADOStream.Type= 1' option_type_binary
echo.    ADOStream.Write XMLObject.ResponseBody
echo.    file_save_name= getFileName^(XMLObject.getResponseHeader^("Content-Disposition"^)^)
echo.    if file_save_name= "" then
echo.      file_save_name = WScript.Arguments.Named^("output"^)
echo.    end if
echo.    ADOStream.SaveToFile file_save_name, 2 'option_save_and_overwrite
echo.    errorlevel=Err.Number
echo.    AdoStream.Close
echo.  end if
echo.    main= errorlevel
echo.end function
echo.
echo.WSCript.Quit^(main^(^)^)
)>"%vbs_downloader_name%"
goto :eof

:: **************************************Partie Conversion*******************************************************
:: Convert with PDFCreator (Création d'un script .vbs qui est supprimé après l'exécution)
:Conversion
mode con cols=80 lines=5 & color 9B
Title Generer le vbscript pour la conversion en PDF avec PDFCreator.exe by Hackoo
(
echo Option Explicit
echo Const maxTime = 60    ' in seconds
echo Const sleepTime = 250 ' in milliseconds
echo Dim objArgs, ifname, fso, PDFCreator, DefaultPrinter, ReadyState, _
echo i, c, AppTitle, Scriptname, ScriptBasename
echo Set fso = CreateObject("Scripting.FileSystemObject"^)
echo Scriptname = fso.GetFileName(Wscript.ScriptFullname^)
echo ScriptBasename = fso.GetFileName(Wscript.ScriptFullname^)
echo AppTitle = "PDFCreator - " ^& ScriptBaseName
echo Set PDFCreator = Wscript.CreateObject("PDFCreator.clsPDFCreator", "PDFCreator_"^)
echo PDFCreator.cStart "/NoProcessingAtStartup"
echo With PDFCreator
echo    .cOption("UseAutosave"^) = 1
echo    .cOption("UseAutosaveDirectory"^) = 1
echo    .cOption("AutosaveFormat"^) = 0 'La valeur 0 = PDF La valeur 1 = PNG
echo    DefaultPrinter = .cDefaultprinter
echo    .cDefaultprinter = "PDFCreator"
echo    .cClearcache
echo    .cPrinterStop = false
echo End With
echo For each ifname in FSO.GetFolder(GetPath(^)^).Files
echo    With PDFCreator
echo        If Not fso.FileExists(ifname^) Then
echo            MsgBox "Il n'y a pas de fichier : " ^& ifname, vbExclamation + vbSystemModal, AppTitle
echo            Exit For
echo        End If
echo        if Not .cIsPrintable(CStr(ifname^)^) Then
echo            MsgBox "Conversion : " ^& ifname ^& vbcrlf ^& vbcrlf ^& _
echo            "Une erreur s'est produite est: Le fichier n'est pas imprimable !", vbExclamation + vbSystemModal, AppTitle
echo            Exit For
echo            Wscript.Quit
echo        End if
echo    If Ucase(fso.GetExtensionName(ifname.Name^)^)="PPT" Or Ucase(fso.GetExtensionName(ifname.Name^)^)="PPTX" Then
echo        ReadyState = 0
echo        .cOption("AutosaveDirectory"^) = fso.GetParentFolderName(ifname^) 'Le dossier pour sauvegarder les fichiers convertis en PDF
echo        .cOption("AutosaveFilename"^) = fso.GetBaseName(ifname^)
echo        .cPrintfile cStr(ifname^)
echo        c = 0
echo Do While (ReadyState = 0^) and (c ^< (maxTime * 1000 / sleepTime^)^)
echo            c = c + 1
echo            Wscript.Sleep sleepTime
echo Loop
echo        If ReadyState = 0 then
echo            MsgBox "Conversion : " ^& ifname ^& vbcrlf ^& vbcrlf ^& _
echo            "Une erreur s'est produite est : Le temps est écoulé !", vbExclamation + vbSystemModal, AppTitle
echo            Exit For
echo        End If
echo      End If
echo    End With
echo Next
echo With PDFCreator
echo    .cDefaultprinter = DefaultPrinter
echo    .cClearcache
echo    WScript.Sleep 200
echo    .cClose
echo End With
echo ^'****************************************************************************************************
echo Public Sub PDFCreator_eReady(^)
echo    ReadyState = 1
echo End Sub
echo ^'****************************************************************************************************
echo Public Sub PDFCreator_eError(^)
echo    MsgBox "An error is occured!" ^& vbcrlf ^& vbcrlf ^& _
echo    "Error [" ^& PDFCreator.cErrorDetail("Number"^) ^& "]: " ^& PDFcreator.cErrorDetail("Description"^), vbCritical + vbSystemModal, AppTitle
echo    Wscript.Quit
echo End Sub
echo  ^'****************************************************************************************************
echo Function GetPath(^)
echo Dim path
echo   path = WScript.ScriptFullName
echo   GetPath = Left(path, InStrRev(path, "\"^)^)
echo End Function
 ) > tmp.vbs
 echo Generer le vbscript pour la conversion en PDF avec PDFCreator.exe
 ping -n 3 127.0.0.1 >nul
 cls
 echo la conversion en PDF avec PDFCreator.exe est en cours ....
 Start /Wait tmp.vbs
 ping -n 3 127.0.0.1 >nul
 Del tmp.vbs

:: **************************************Partie Renommage*******************************************************
:: Rename with actual date at then end of name
:Rename
setlocal enableDelayedExpansion
for %%F in (*.pdf) do (
:: if (%%F NEQ *_%date:~3,2%%date:~-4%.pdf)
:: On définit une variable nom qui correspond au nom du fichier en traitement.
  set "name=%%F"
:: On dit que le nom est égal à l'ancien nom avec son extension et en plus le mois et l'année actuels
  ren "!name!" "!name:.pdf=_052014.pdf!"
)


Un grand merci à tous les deux.
Dernier point.
La conversion met une marge sur le PDF, comme si le document était réduit.
Vous avez une solution ?
ça le fait avec les conversions via pdf creator.

Peut on faire la même conversion en passant par pwp ?
héhé j'en demande toujours plus Smile

En tous cas vraiment merci à tous les deux, vous avez été là du début à la fin



Répondre en citant
Message Télécharger, convertir et renommer 
Bonjour,

Bon, j'ai pu constater un petit problème qui ne vient pas de vous, ou de votre travail.
Mais de stratégie...
Tout le monde n'a pas PDF creator, certain ont sa version payante, d'autres adobe....
Mais, tout le monde (en tout cas une plus grande partie) possède word excel, pwpt...

Donc, j'ai un peu cherché, et j'ai trouvé ça en .vbs :


Code:
    'Variable
    NomFICHIERPDF="nomfichierpdf"
    'constantes
    Const wdExportFormatPDF = 17
    Const wdExportOptimizeForPrint = 0
    Const wdExportAllDocument = 0
    Const wdExportDocumentContent = 0
    Const wdExportCreateNoBookmarks = 0
    Path = Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName)-1)
    Const wdGoToBookmark = -1
    Const wdDoNotSaveChanges = 0
    Const ForReading = 1, ForWriting = 2
    Const bWaitOnReturn = true
    Dim WshShell, wordApp, wordDoc, wordRange, fso, f
    Set wordApp = CreateObject("Word.Application" )
    wordApp.Visible = False
    Set wordDoc = wordApp.Documents.Open(path & "Vide.doc" )
    'enregistrement
    wordDoc.SaveAs(path & "test.doc" )
    'sauvegarde en pdf
    strDocPDF = path & NomFICHIERPDF & ".pdf"
    wordDoc.ExportAsFixedFormat strDocPDF, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument, 1, 1, wdExportDocumentContent, True, True, wdExportCreateNoBookmarks, True, True, False
    wordApp.Quit
    'fermer processus word
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
    Set colProcessList = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 'winword.exe'" )
    For Each objProcess in colProcessList
        objProcess.Terminate()
    Next
    'fenetre ok
    wscript.echo "Enregistrement fichier :" & CHR(10) & " " & CHR(10) & path & NomFICHIERPDF & ".pdf"
    'suppression fichier.txt
    fso.DeleteFile(path & "test.doc" )


En gros, je voudrais la même chose, mais avec powerpoint, je suis entrain de chercher pour l'adapter un peu



Répondre en citant
Message Télécharger, convertir et renommer 
Salut Laughing
[VBS] Téléchargement + Installation silencieuse de PDFCreator




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Télécharger, convertir et renommer 
salut

ça ne me convient pas ^^
il met une marge sur le pdf, il n'est pas à l'échelle de la page.
Et les installation sont bloquées sur les post du traavail



Répondre en citant
Message Télécharger, convertir et renommer 
Salut,
Peut-être vous trouviez votre bonheur ici dans ce Vbscript Laughing

VBScript to Convert Microsoft Office Files (Word, Excel, PowerPoint) to PDF

OfficeConvert2PDF.vbs

Code:
Option Explicit
 '---------------------
' CONFIGURATION START
'---------------------
'Display a summary in a message box when the conversions are complete
Const SUMMARY_DISPLAY = TRUE
Const SUMMARY_TITLE = "Conversion Complete"
 
'File extensions for PDFs
Const PDF_Extension = "pdf"
 
'Results for CheckFile Function
Const CHECKFILE_OK = 0
Const CHECKFILE_FileDoesNotExist = 1
Const CHECKFILE_NotMSOFile = 2
 
'Settings to produce PDFs from the applications
Const EXCEL_PDF = 0
Const EXCEL_QualityStandard = 0
Const WORD_PDF = 17
Const POWERPOINT_PDF = 32
 
'File types returned from OfficeFileType function
Const FILE_TYPE_NotOffice = 0
Const FILE_TYPE_Word = 1
Const FILE_TYPE_Excel = 2
Const FILE_TYPE_PowerPoint = 3
 
'Valid file type lists
Const FILE_TYPE_DELIMITER = "|"
Dim g_strFileTypesWord
g_strFileTypesWord="|DOC|DOCX|"
Dim g_strFileTypesExcel
g_strFileTypesExcel="|XLS|XLSX|"
Dim g_strFileTypesPowerPoint
g_strFileTypesPowerPoint="|PPT|PPTX|"
'----------------------
' CONFIGURATION FINISH
'----------------------
 
 
'Call the main routine
Main
'--------------------
' MAIN ROUTINE START
'--------------------
Sub Main()
    Dim colArgs, intCounter, objFSO, strFilePath
     
    'Get the command line arguments for the script
    ' - Each chould be a file to be processed
    Set colArgs = Wscript.Arguments
    If colArgs.Count > 0 Then
        For intCounter = 0 to colArgs.Count - 1
            strFilePath = Wscript.Arguments(intCounter)
             
            'Check we have a valid file and process it
            Select Case CheckFile(strFilePath)
                Case CHECKFILE_OK
                    Select Case OfficeFileType(strFilePath)
                        Case FILE_TYPE_Word
                            SaveWordAsPDF strFilePath
                             
                        Case FILE_TYPE_Excel
                            SaveExcelAsPDF strFilePath
                             
                        Case FILE_TYPE_PowerPoint
                            SavePowerPointAsPDF strFilePath
                    End Select
                     
                Case CHECKFILE_FileDoesNotExist
                    MsgBox """" & strFilePath & """", vbCritical, "File " & intCounter & " does not exist"
                    WScript.Quit
                     
                Case CHECKFILE_NotMSOFile
                    MsgBox """" & strFilePath & """", vbCritical, "File " & intCounter & " is not a valid file type"
                    WScript.Quit
            End Select
        Next
    Else
        'If there's not even one argument/file to process then exit
        Msgbox "Please pass a file to this script", 48,"No File Provided"
        WScript.Quit
    End If
     
     
    'Display an optional summary message
    If SUMMARY_DISPLAY then
        If colArgs.Count > 1 then
            MsgBox CStr(colArgs.Count) & " files converted.", vbInformation, SUMMARY_TITLE
        Else
            MsgBox "1 file converted.", vbInformation, SUMMARY_TITLE
        End If
    End If
End Sub
'---------------------
' MAIN ROUTINE FINISH
'---------------------
 
 
'--------------------
' SUB-ROUTINES START
'--------------------
Sub SaveExcelAsPDF(p_strFilePath)
    'Save Excel file as a PDF
     
    'Initialise
    Dim objExcel, objWorkbook
    Set objExcel = CreateObject("Excel.Application")
     
    'Open the file
    Set objWorkbook = objExcel.Workbooks.Open(p_strFilePath)
     
    'Save the PDF
    objWorkbook.ExportAsFixedFormat EXCEL_PDF, PathOfPDF(p_strFilePath), EXCEL_QualityStandard, TRUE, FALSE, , , FALSE
     
    'Close the file and exit the application
    objWorkbook.Close FALSE
    objExcel.Quit
End Sub
 
 
Sub SaveWordAsPDF(p_strFilePath)
    'Save Word file as a PDF
     
    'Initialise
    Dim objWord, objDocument
    Set objWord = CreateObject("Word.Application")
     
    'Open the file
    Set objDocument = objWord.Documents.Open(p_strFilePath)
     
    'Save the PDF
    objDocument.SaveAs PathOfPDF(p_strFilePath), WORD_PDF
 
    'Close the file and exit the application
    objDocument.Close FALSE
    objWord.Quit
End Sub
 
 
Sub SavePowerPointAsPDF(p_strFilePath)
    'Save PowerPoint file as a PDF (slides only)
     
    'Initialise
    Dim objPowerPoint, objSlideDeck
    Set objPowerPoint = CreateObject("PowerPoint.Application")
     
    'PowerPoint errors if it isn't visible :-(
    'objPowerPoint.Visible = TRUE
     
    'Open the file
    Set objSlideDeck = objPowerPoint.Presentations.Open(p_strFilePath, , , FALSE)
     
    'Save the PDF
    objSlideDeck.SaveAs PathOfPDF(p_strFilePath), POWERPOINT_PDF, True
 
    'Close the file and exit the application
    objSlideDeck.Close
    objPowerPoint.Quit
End Sub
'---------------------
' SUB-ROUTINES FINISH
'---------------------
 
 
'-----------------
' FUNCTIONS START
'-----------------
Function CheckFile(p_strFilePath)
    'Check file exists and is an office file (Excel, Word, PowerPoint)
     
    'Initialise
    Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")
     
    'Check the file exists and is an office file
    If IsOfficeFile(p_strFilePath) then
        If objFSO.FileExists(p_strFilePath) then
            CheckFile = CHECKFILE_OK
        Else
            CheckFile = CHECKFILE_FileDoesNotExist
        End If
    Else
        CheckFile = CHECKFILE_NotMSOFile
    End If
End Function
 
 
Function OfficeFileType(p_strFilePath)
    'Returns the type of office file, based upon file extension
     
    OfficeFileType = FILE_TYPE_NotOffice
     
    If IsWordFile(p_strFilePath) then
        OfficeFileType = FILE_TYPE_Word
    End If
     
    If IsExcelFile(p_strFilePath) then
        OfficeFileType = FILE_TYPE_Excel
    End If
     
    If IsPowerPointFile(p_strFilePath) then
        OfficeFileType = FILE_TYPE_PowerPoint
    End If
End Function
 
Function IsOfficeFile(p_strFilePath)
    'Returns true if a file is an office file (Excel, Word, PowerPoint)
     
    IsOfficeFile = IsWordFile(p_strFilePath) OR IsExcelFile(p_strFilePath) OR IsPowerPointFile(p_strFilePath)
End Function
 
 
Function IsWordFile(p_strFilePath)
    'Returns true if a file is a Word file
     
    IsWordFile = IsInList(GetFileExtension(p_strFilePath), g_strFileTypesWord)
End Function
 
 
Function IsExcelFile(p_strFilePath)
'Returns true if a file is an Excel file
 
    IsExcelFile = IsInList(GetFileExtension(p_strFilePath), g_strFileTypesExcel)
End Function
 
 
Function IsPowerPointFile(p_strFilePath)
'Returns true if a file is a PowerPoint file
 
    IsPowerPointFile = IsInList(GetFileExtension(p_strFilePath), g_strFileTypesPowerPoint)
End Function
 
 
Function IsInList(p_strSearchFor, p_strSearchIn)
    'Search a delimited list for a text string and return true if it's found
     
    Dim intResult
     
    intResult = InStr(1, p_strSearchIn, FILE_TYPE_DELIMITER & p_strSearchFor & FILE_TYPE_DELIMITER, vbTextCompare)
     
    If IsNull(intResult) then
        IsInList = FALSE
    Else
        If intResult = 0 then
            IsInList = FALSE
        Else
            IsInList = TRUE
        End If
    End If
End Function
 
 
Function GetFileExtension(p_strFilePath)
    'Return the file extension from a file path
     
    Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    GetFileExtension = objFSO.GetExtensionName(p_strFilePath)
End Function
 
 
Function PathOfPDF(p_strOriginalFilePath)
    'Return the path for the PDF file
    'The path will be the same as the original file but with a different file extension
     
    Dim objFSO
     
    'Initialise
    Set objFSO = CreateObject("Scripting.FileSystemObject")
     
        'Build the file path
    'Set the directory
    PathOfPDF = objFSO.GetParentFolderName(p_strOriginalFilePath) & "\"
     
    'Add the original file name without the extension
    PathOfPDF = PathOfPDF & Left(objFSO.GetFileName(p_strOriginalFilePath), Len(objFSO.GetFileName(p_strOriginalFilePath)) - Len(objFSO.GetExtensionName(p_strOriginalFilePath)))
     
    'Finally add the the new file extension
    PathOfPDF = PathOfPDF & PDF_Extension
End Function
'------------------
' FUNCTIONS FINISH
'------------------





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Télécharger, convertir et renommer 
Effectivement ça me covient beaucoup mieux.
Rete à changer le fonctionnement, ne pas faire un glissé de fichier mais l'adapter au script complet, convertir tout le repertoire Smile

Tu peux me faire ça ?



Répondre en citant
Message Télécharger, convertir et renommer 
Salut
J'ai trouvé un autre vbscript qu'on peut l’utiliser facilement dans un batch Okay Laughing

PPT2PDF.vbs
Code:
Option Explicit
'http://msdn.microsoft.com/en-us/library/office/bb251061(v=office.12).aspx
Const ppSaveAsPDF = 32
Dim oFSO ' Public reference to FileSystemObject
Dim oPPT ' Public reference to PowerPoint App
Call Main()
'**************************************************************************
Sub Main()
    Dim sInput
    If wscript.Arguments.Count <> 1 Then
        Wscript.Echo "You need to specify input and output files."
        wscript.Quit
    End If
    ' PowerPoint version must be 12 or later (PowerPoint 2007 or later)
    Set oPPT = CreateObject("PowerPoint.Application")
    If CDbl(oPPT.Version) < 12 Then
        Wscript.Echo "PowerPoint version must be 2007 or later!"
        oPPT.Visible = True
        oPPT.Quit
        Set oPPT = Nothing
        wscript.Quit
    End If
    ' Store Input Argument and detect execute mode (single file / Folder batch mode)
    sInput = wscript.Arguments(0)
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    If IsPptFile(sInput) Then
        PPT2PDF sInput
    ElseIf oFSO.FolderExists(sInput) Then
        Wscript.Echo "Batch Start: " & Now
        Wscript.Echo "Root Folder: " & sInput
        BatchPPT2PDF sInput
    Else
        Wscript.Echo """" & sInput & """ is not a PPT file or Folder!"
    End If
    ' Close PowerPoint app if no other presentations are opened
    If oPPT.Presentations.Count = 0 Then oPPT.Quit
    Set oPPT = Nothing
    Set oFSO = Nothing
End Sub
'**************************************************************************
Private Sub BatchPPT2PDF(sFDR)
    Dim oFDR, oFile
    Wscript.Echo String(50, Chr(151))
    Wscript.Echo "Processing Folder: " & sFDR
    For Each oFile In oFSO.GetFolder(sFDR).Files
        If IsPptFile(oFile.Name) Then
            PPT2PDF(oFile)
        End If
    Next
    For Each oFDR In oFSO.GetFolder(sFDR).SubFolders
        BatchPPT2PDF oFDR
    Next
End Sub
'**************************************************************************
Private Function IsPptFile(sFile)
    IsPptFile = (InStr(1, Right(sFile, InStrRev(sFile, ".")), "ppt") > 0)
End Function
'**************************************************************************
Private Sub PPT2PDF(sFile)
    On Error Resume Next
    Dim sPDF, oPres
    sPDF = Left(sFile,InstrRev(sFile,".")) & "pdf"
    Set oPres = oPPT.Presentations.Open(sFile, True, False, False) ' Read Only, No Title, No Window
    Err.Clear
    oPres.SaveAs sPDF, ppSaveAsPDF
    oPres.Close
    Set oPres = Nothing
    If Err.Number = 0 Then
        Wscript.Echo "OK" & vbTab & sPDF
    Else
        Wscript.Echo "X" & vbTab & sPDF & " [ERR " & Err.Number & ": " & Err.Description & "]"
        Err.Clear
    End If
End Sub
'**************************************************************************


Le Batch en question :

PPT2PDF.bat
Code:
@echo off
Title Conversion PPT vers PDF
echo Conversion PPT vers PDF
mode con cols=100 lines=22 & Color 9B
Set PPT2PDF=PPT2PDF.vbs
for %%A in (.) do (cscript.exe //NoLogo %PPT2PDF% %%A)
Pause





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Télécharger, convertir et renommer 
Salut,

OK, c'est bon ça fonctionne, j'essaye de mettre tout ça dans le premier batch.
(cration du vbs dans le bat initial et son lancement juste après)

Merci, je te tiens au courant si j'y arrive



Répondre en citant
Message Télécharger, convertir et renommer 
Voilà ça fonctionne.

La je pense que c'est la perfection par rapport à mes attentes.

Un grand merci à vous Hackoo et temp :

Code:
@echo off
Title Telechargement des fichiers
mode con cols=100 lines=8 & color 9B
:: *************************************Partie téléchargement********************************************************
:: Téléchargement des url
set "url_name=url.txt"
set "vbs_downloader_name=vbs_downloader_engine"
if not exist "%url_name%" echo error, "%url_name%" n'exist pas! & pause
call :gen_downloader
if not exist "%vbs_downloader_name%" echo error, "%vbs_downloader_name%" n'exist pas! & pause& goto :eof
for /f "usebackq tokens=*" %%i in ("%url_name%") do call :download_file "%%~i"
Del "%vbs_downloader_name%"
ping -n 3 127.0.0.1 >nul
goto Conversion

:download_file
echo downloading "%~1"
cscript //nologo //e:vbscript "%vbs_downloader_name%" "/input:%~1" "/output:%~nx1"
if errorlevel 1 echo error
goto :eof

:gen_downloader
(
echo.function getFileName^(content^)
echo.  if content= "" then
echo.    getFileName= ""
echo.    exit function
echo.  end if
echo.  set regEx= CreateObject^("VbScript.Regexp"^)
echo.  regEx.Pattern= "filename=\x22([^\x22]+)\x22"
echo.  getFileName= ^(regEx.Execute^(content^)^)^(0^).SubMatches^(0^)
echo.end function
echo.
echo.function main^(^)
echo.  target_link= WScript.Arguments.Named^("input"^)
echo.  set XMLObject= CreateObject^("MSXML2.XMLHTTP"^)
echo.  XMLObject.open "GET", target_link, false
echo.  XMLObject.send^(^)
echo.  if XMLObject.status = 200 then
echo.    set ADOStream= CreateObject^("ADODB.Stream"^)
echo.    ADOStream.open
echo.    ADOStream.Type= 1' option_type_binary
echo.    ADOStream.Write XMLObject.ResponseBody
echo.    file_save_name= getFileName^(XMLObject.getResponseHeader^("Content-Disposition"^)^)
echo.    if file_save_name= "" then
echo.      file_save_name = WScript.Arguments.Named^("output"^)
echo.    end if
echo.    ADOStream.SaveToFile file_save_name, 2 'option_save_and_overwrite
echo.    errorlevel=Err.Number
echo.    AdoStream.Close
echo.  end if
echo.    main= errorlevel
echo.end function
echo.
echo.WSCript.Quit^(main^(^)^)
)>"%vbs_downloader_name%"
goto :eof

:: **************************************Partie Conversion*******************************************************
:Conversion

(
echo Option Explicit
echo ^'http://msdn.microsoft.com/en-us/library/office/bb251061^(v^=office.12^).aspx
echo Const ppSaveAsPDF ^= 32
echo Dim oFSO ^' Public reference to FileSystemObject
echo Dim oPPT ^' Public reference to PowerPoint App
echo Call Main^(^)
echo ^'**************************************************************************
echo Sub Main^(^)
echo     Dim sInput
echo     If wscript.Arguments.Count ^<^ 1 Then
echo         Wscript.Echo "You need to specify input and output files."
echo         wscript.Quit
echo     End If
echo     ^' PowerPoint version must be 12 or later ^(PowerPoint 2007 or later^)
echo     Set oPPT ^= CreateObject^("PowerPoint.Application"^)
echo     If CDbl^(oPPT.Version^) ^< 12 Then
echo         Wscript.Echo "PowerPoint version must be 2007 or later^^!"
echo         oPPT.Visible ^= True
echo         oPPT.Quit
echo         Set oPPT ^= Nothing
echo         wscript.Quit
echo     End If
echo     ^' Store Input Argument and detect execute mode ^(single file / Folder batch mode^)
echo     sInput ^= wscript.Arguments^(0^)
echo     Set oFSO ^= CreateObject^("Scripting.FileSystemObject"^)
echo     If IsPptFile^(sInput^) Then
echo         PPT2PDF sInput
echo     ElseIf oFSO.FolderExists^(sInput^) Then
echo         Wscript.Echo "Batch Start: " ^& Now
echo         Wscript.Echo "Root Folder: " ^& sInput
echo         BatchPPT2PDF sInput
echo     Else
echo         Wscript.Echo """" ^& sInput ^& """ is not a PPT file or Folder^^!"
echo     End If
echo     ^' Close PowerPoint app if no other presentations are opened
echo     If oPPT.Presentations.Count ^= 0 Then oPPT.Quit
echo     Set oPPT ^= Nothing
echo     Set oFSO ^= Nothing
echo End Sub
echo ^'**************************************************************************
echo Private Sub BatchPPT2PDF^(sFDR^)
echo     Dim oFDR^, oFile
echo     Wscript.Echo String^(50^, Chr^(151^)^)
echo     Wscript.Echo "Processing Folder: " ^& sFDR
echo     For Each oFile In oFSO.GetFolder^(sFDR^).Files
echo         If IsPptFile^(oFile.Name^) Then
echo             PPT2PDF^(oFile^)
echo         End If
echo     Next
echo     For Each oFDR In oFSO.GetFolder^(sFDR^).SubFolders
echo         BatchPPT2PDF oFDR
echo     Next
echo End Sub
echo ^'**************************************************************************
echo Private Function IsPptFile^(sFile^)
echo     IsPptFile ^= ^(InStr^(1^, Right^(sFile^, InStrRev^(sFile^, "."^)^)^, "ppt"^) ^> 0^)
echo End Function
echo ^'**************************************************************************
echo Private Sub PPT2PDF^(sFile^)
echo     On Error Resume Next
echo     Dim sPDF^, oPres
echo     sPDF ^= Left^(sFile^,InstrRev^(sFile^,"."^)^) ^& "pdf"
echo     Set oPres ^= oPPT.Presentations.Open^(sFile^, True^, False^, False^) ^' Read Only^, No Title^, No Window
echo     Err.Clear
echo     oPres.SaveAs sPDF^, ppSaveAsPDF
echo     oPres.Close
echo     Set oPres ^= Nothing
echo     If Err.Number ^= 0 Then
echo         Wscript.Echo "OK" ^& vbTab ^& sPDF
echo     Else
echo         Wscript.Echo "X" ^& vbTab ^& sPDF ^& " \[ERR " ^& Err.Number ^& ": " ^& Err.Description ^& "\]"
echo         Err.Clear
echo     End If
echo End Sub
echo ^'**************************************************************************
)>"PPT2PDF.vbs"

Title Conversion PPT vers PDF
echo Conversion PPT vers PDF
mode con cols=100 lines=22 & Color 9B
Set PPT2PDF=PPT2PDF.vbs
for %%A in (.) do (cscript.exe //NoLogo %PPT2PDF% %%A)
Pause
 Del PPT2PDF.vbs

:: **************************************Partie Renommage*******************************************************
:: Rename with actual date at then end of name
:Rename
setlocal enableDelayedExpansion
for %%F in (*.pdf) do (
:: if (%%F NEQ *_%date:~3,2%%date:~-4%.pdf)
:: On définit une variable nom qui correspond au nom du fichier en traitement.
  set "name=%%F"
:: On dit que le nom est égal à l'ancien nom avec son extension et en plus le mois et l'année actuels
  ren "!name!" "!name:.pdf=_052014.pdf!"
)




Répondre en citant
Message Télécharger, convertir et renommer 
Bon, en fait j'ai un tout petit problème haha.

Je viens de constater que le nom du fichier lors du téléchargement n'est pas tout à fait correct, il manque des espaces :/

Si temp tu peux regarder un peu, je vais essayer de comprendre ton code.

EDIT :
Bon pour le titre du document, temp, ça ne vient pas de ton code apparemment...
c'est le lien qui fait ça, même le navigateur nous donne directement le nom comme ça.

En revanche du coup, est il possible d'ajouter un espace, avec une règle, un espace entre chaque mot du titre en gros...
Là j'avoue que j'ai peur que se soit impossible... ou beaucoup trop compliqué...
Mais bon, qui ne tente rien n'a rien.


Et enfin, la fermeture de la console après la conversion pour que ça passe directement au renommage, sans avoir à "appuyer sur une touche pour continuer"



Répondre en citant
Message Télécharger, convertir et renommer 
Salut
Code:
@echo off
Title Telechargement des fichiers
mode con cols=100 lines=8 & color 9B
:: *************************************Partie téléchargement********************************************************
:: Téléchargement des url
set "url_name=url.txt"
set "vbs_downloader_name=vbs_downloader_engine"
if not exist "%url_name%" echo error, "%url_name%" n'exist pas! & pause
call :gen_downloader
if not exist "%vbs_downloader_name%" echo error, "%vbs_downloader_name%" n'exist pas! & pause& goto :eof
for /f "usebackq tokens=*" %%i in ("%url_name%") do call :download_file "%%~i"
Del "%vbs_downloader_name%"
ping -n 3 127.0.0.1 >nul
goto Conversion

:download_file
echo downloading "%~1"
cscript //nologo //e:vbscript "%vbs_downloader_name%" "/input:%~1" "/output:%~nx1"
if errorlevel 1 echo error
goto :eof

:gen_downloader
(
echo.function getFileName^(content^)
echo.  if content= "" then
echo.    getFileName= ""
echo.    exit function
echo.  end if
echo.  set regEx= CreateObject^("VbScript.Regexp"^)
echo.  regEx.Pattern= "filename=\x22([^\x22]+)\x22"
echo.  getFileName= ^(regEx.Execute^(content^)^)^(0^).SubMatches^(0^)
echo.end function
echo.
echo.function main^(^)
echo.  target_link= WScript.Arguments.Named^("input"^)
echo.  set XMLObject= CreateObject^("MSXML2.XMLHTTP"^)
echo.  XMLObject.open "GET", target_link, false
echo.  XMLObject.send^(^)
echo.  if XMLObject.status = 200 then
echo.    set ADOStream= CreateObject^("ADODB.Stream"^)
echo.    ADOStream.open
echo.    ADOStream.Type= 1' option_type_binary
echo.    ADOStream.Write XMLObject.ResponseBody
echo.    file_save_name= getFileName^(XMLObject.getResponseHeader^("Content-Disposition"^)^)
echo.    if file_save_name= "" then
echo.      file_save_name = WScript.Arguments.Named^("output"^)
echo.    end if
echo.    ADOStream.SaveToFile file_save_name, 2 'option_save_and_overwrite
echo.    errorlevel=Err.Number
echo.    AdoStream.Close
echo.  end if
echo.    main= errorlevel
echo.end function
echo.
echo.WSCript.Quit^(main^(^)^)
)>"%vbs_downloader_name%"
goto :eof

:: **************************************Partie Conversion*******************************************************
:Conversion

(
echo Option Explicit
echo ^'http://msdn.microsoft.com/en-us/library/office/bb251061^(v^=office.12^).aspx
echo Const ppSaveAsPDF ^= 32
echo Dim oFSO ^' Public reference to FileSystemObject
echo Dim oPPT ^' Public reference to PowerPoint App
echo Call Main^(^)
echo ^'**************************************************************************
echo Sub Main^(^)
echo     Dim sInput
echo     If wscript.Arguments.Count ^<^ 1 Then
echo         Wscript.Echo "You need to specify input and output files."
echo         wscript.Quit
echo     End If
echo     ^' PowerPoint version must be 12 or later ^(PowerPoint 2007 or later^)
echo     Set oPPT ^= CreateObject^("PowerPoint.Application"^)
echo     If CDbl^(oPPT.Version^) ^< 12 Then
echo         Wscript.Echo "PowerPoint version must be 2007 or later^^!"
echo         oPPT.Visible ^= True
echo         oPPT.Quit
echo         Set oPPT ^= Nothing
echo         wscript.Quit
echo     End If
echo     ^' Store Input Argument and detect execute mode ^(single file / Folder batch mode^)
echo     sInput ^= wscript.Arguments^(0^)
echo     Set oFSO ^= CreateObject^("Scripting.FileSystemObject"^)
echo     If IsPptFile^(sInput^) Then
echo         PPT2PDF sInput
echo     ElseIf oFSO.FolderExists^(sInput^) Then
echo         Wscript.Echo "Batch Start: " ^& Now
echo         Wscript.Echo "Root Folder: " ^& sInput
echo         BatchPPT2PDF sInput
echo     Else
echo         Wscript.Echo """" ^& sInput ^& """ is not a PPT file or Folder^^!"
echo     End If
echo     ^' Close PowerPoint app if no other presentations are opened
echo     If oPPT.Presentations.Count ^= 0 Then oPPT.Quit
echo     Set oPPT ^= Nothing
echo     Set oFSO ^= Nothing
echo End Sub
echo ^'**************************************************************************
echo Private Sub BatchPPT2PDF^(sFDR^)
echo     Dim oFDR^, oFile
echo     Wscript.Echo String^(50^, Chr^(151^)^)
echo     Wscript.Echo "Processing Folder: " ^& sFDR
echo     For Each oFile In oFSO.GetFolder^(sFDR^).Files
echo         If IsPptFile^(oFile.Name^) Then
echo             PPT2PDF^(oFile^)
echo         End If
echo     Next
echo     For Each oFDR In oFSO.GetFolder^(sFDR^).SubFolders
echo         BatchPPT2PDF oFDR
echo     Next
echo End Sub
echo ^'**************************************************************************
echo Private Function IsPptFile^(sFile^)
echo     IsPptFile ^= ^(InStr^(1^, Right^(sFile^, InStrRev^(sFile^, "."^)^)^, "ppt"^) ^> 0^)
echo End Function
echo ^'**************************************************************************
echo Private Sub PPT2PDF^(sFile^)
echo     On Error Resume Next
echo     Dim sPDF^, oPres
echo     sPDF ^= Left^(sFile^,InstrRev^(sFile^,"."^)^) ^& "pdf"
echo     Set oPres ^= oPPT.Presentations.Open^(sFile^, True^, False^, False^) ^' Read Only^, No Title^, No Window
echo     Err.Clear
echo     oPres.SaveAs sPDF^, ppSaveAsPDF
echo     oPres.Close
echo     Set oPres ^= Nothing
echo     If Err.Number ^= 0 Then
echo         Wscript.Echo "OK" ^& vbTab ^& sPDF
echo     Else
echo         Wscript.Echo "X" ^& vbTab ^& sPDF ^& " \[ERR " ^& Err.Number ^& ": " ^& Err.Description ^& "\]"
echo         Err.Clear
echo     End If
echo End Sub
echo ^'**************************************************************************
)>"PPT2PDF.vbs"

Title Conversion PPT vers PDF
echo Conversion PPT vers PDF
mode con cols=100 lines=22 & Color 9B
Set PPT2PDF=PPT2PDF.vbs
for %%A in (.) do (cscript.exe //NoLogo %PPT2PDF% %%A)
Del PPT2PDF.vbs
Goto Rename
:: **************************************Partie Renommage*******************************************************
:: Rename with actual date at then end of name
:Rename
setlocal enableDelayedExpansion
for %%F in (*.pdf) do (
:: if (%%F NEQ *_%date:~3,2%%date:~-4%.pdf)
:: On définit une variable nom qui correspond au nom du fichier en traitement.
  set "name=%%F"
:: On dit que le nom est égal à l'ancien nom avec son extension et en plus le mois et l'année actuels
  ren "!name!" "!name:.pdf=_%date:~3,2%_%date:~-4%.pdf!"
)





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Télécharger, convertir et renommer 
Nickel, merci Hackoo



Message Télécharger, convertir et renommer 


Montrer les messages depuis:
Répondre au sujet Page 4 sur 9
Aller à la page: <  1, 2, 3, 4, 5, 6, 7, 8, 9  >
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch