AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 05 20:58:56
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CODE VBS POUR RENOMER UN FICHIER EXCEL EN FONCTION DE LA DATE ET D'UN CONTENU.


Information sur la source

Catégorie :VBScript Classé sous : vbs, excel, move, rename Niveau : Débutant Date de création : 03/08/2007 Vu : 6 967
Auteur : yannlevrai Ecrire un message privé
Note :
Aucune note
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

Code VBS pour renomer un fichier excel en fonction de la date et d'un contenu.
Il faut avoir excel d'installer pour ouvir une application excel :-)

- Un messageBox de confirmation de lancement.
- Des répertoires d'arrivé et de départ.
- Un renomage qui dépend du contenu d'une cellule excel (en dur) et de la date, heure minute,...
- Un messageBox de débrefing, temps d'execution, nombres de fichiers copiés, récapitulatif des répertoires.


 

Source

  • ' VBScript source code
  • ' VBScript source code
  • '
  • Set Shell = WScript.CreateObject("WScript.Shell")
  • a = MsgBox("Etes-vous sûr de vouloir lancer la récupération", vbYesNo)
  • If (a <> 6) Then WScript.Quit
  • d1 = Time
  • Set fso = CreateObject("Scripting.FileSystemObject")
  • 'Source
  • Set foldeDEPART = fso.GetFolder("R:\05 DSI\03_Applications_Projets\08_Projets\01_Projets_A_Venir\SIAD_Reporting\Gestion_Projet\03_Mise_en_oeuvre\08 Technique\ZZ_draft\test_rapport\test_depart")
  • 'Destination
  • Set foldeDestination = fso.GetFolder("R:\05 DSI\03_Applications_Projets\08_Projets\01_Projets_A_Venir\SIAD_Reporting\Gestion_Projet\03_Mise_en_oeuvre\08 Technique\ZZ_draft\test_rapport\test_arrivee")
  • Set filecoll = foldeDEPART.Files
  • Set appExcel = CreateObject("Excel.Application")
  • i = 0
  • For Each Files In filecoll
  • Set wbexcel = appExcel.Workbooks.Open(Files)
  • CodeSectionAnalytique = wbexcel.Worksheets(1).Cells(6, 2)
  • wbexcel.Close
  • i = i + 1
  • If CodeSectionAnalytique = " - " Then
  • Files.Move foldeDestination & "\" & "Probleme_" & Files.Name
  • Else
  • newDay = day(now())
  • newMonth = month(now())
  • newYear = year(now())
  • newHour = Hour(Now())
  • newMinute = Minute(Now())
  • newSecond = Second(Now())
  • Files.Move foldeDestination & "\" & "CR_" & CodeSectionAnalytique & "_" & newYear & "_" & newMonth & "_" & newDay & "_" & newHour & "_" & newMinute & "_" & newSecond & ".xls"
  • End If
  • Next
  • Set appExcel = Nothing
  • Set wbexcel = Nothing
  • dFin = Time
  • dInter = dFin - d1
  • b = MsgBox(" -> " & i & " Fichiers déplacé(s) " & Chr(13) & "de -> " & foldeDestination & Chr(13) & "vers -> " & foldeDEPART & Chr(13) & " -> Temps de traitement : " & minute(dInter) & " min:" & Second(dInter) & " sec." , vbOkOnly, "VBS Script Rename")
  • If (b <> 6) Then WScript.Quit
  • WScript.Quit
' VBScript source code
' VBScript source code

'
Set Shell = WScript.CreateObject("WScript.Shell")

a = MsgBox("Etes-vous sûr de vouloir lancer la récupération", vbYesNo)

If (a <> 6) Then WScript.Quit



d1 = Time

Set fso = CreateObject("Scripting.FileSystemObject")
'Source
Set foldeDEPART = fso.GetFolder("R:\05 DSI\03_Applications_Projets\08_Projets\01_Projets_A_Venir\SIAD_Reporting\Gestion_Projet\03_Mise_en_oeuvre\08 Technique\ZZ_draft\test_rapport\test_depart")
'Destination
Set foldeDestination = fso.GetFolder("R:\05 DSI\03_Applications_Projets\08_Projets\01_Projets_A_Venir\SIAD_Reporting\Gestion_Projet\03_Mise_en_oeuvre\08 Technique\ZZ_draft\test_rapport\test_arrivee")

Set filecoll = foldeDEPART.Files
Set appExcel = CreateObject("Excel.Application")
i = 0
            For Each Files In filecoll
                
                Set wbexcel = appExcel.Workbooks.Open(Files)
                CodeSectionAnalytique = wbexcel.Worksheets(1).Cells(6, 2)
                wbexcel.Close
                i = i + 1
                If CodeSectionAnalytique = " - " Then
                    
                    Files.Move foldeDestination & "\" & "Probleme_" & Files.Name
                
                Else
                    newDay = day(now())
                    newMonth = month(now())
                    newYear = year(now())
                    newHour = Hour(Now())
                    newMinute = Minute(Now())
                    newSecond = Second(Now())
                    Files.Move foldeDestination & "\" & "CR_" & CodeSectionAnalytique & "_" & newYear & "_" & newMonth & "_" & newDay & "_" & newHour & "_" & newMinute & "_" & newSecond & ".xls"
                
                End If
            Next
            
            Set appExcel = Nothing
            Set wbexcel = Nothing
            
            dFin = Time
            dInter = dFin - d1


         b = MsgBox(" -> " & i & " Fichiers déplacé(s) " & Chr(13) & "de   -> " & foldeDestination & Chr(13) & "vers -> " & foldeDEPART & Chr(13) &  " -> Temps de traitement : " & minute(dInter) & " min:" & Second(dInter) & " sec." , vbOkOnly, "VBS Script Rename")
         If (b <> 6) Then WScript.Quit
         WScript.Quit

Conclusion

J'ai souvent été pris en stop ici.
Alors j'essaye d'aider un peu.
 

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Exporter un arrKeys VBS vers Excel [ par Jcouture ] Bonjour, J'aimerais savoir si il était possible de créer une fonction qui me permettrait d'exporter les données actuellement dans un arrKeys VBS vers Trier une feuille excel avec vbs [ par isabdo ] Bonjour a tous,Je cherche a faire un tri d'une colonne dans excel a partir d'un .vbs cree avec notepad.SVP, aidez-moi, c'est URGENT...Merci d'avance p 2 Questions ? 1) VBA 2) VBS [ par FFkiller ] Bonjour, En fait, j'ai deux questions bien distinctes (deux langages diff&#233;rents). 1)&nbsp;&nbsp; VBA sous EXCEL : Je cr&#233;e &#224; partir d VBS et excel [ par pcastain ] Bonjour,je voudrais, avec un fichier vbs, chercher un mot dans un tableau excel,et que le vbs me dise dans une msgbox : le mot "toto" ce trouve ligne Exécution vbs à partir de VBA sous Excel ? [ par ran31 ] BonjourTout est dans le sujet. J'ais un .vbs qui fonctionne et dont j'aimerais lancer &agrave; partir d'excel pour pouvoir traiter les donn&#233;es so lancer script VBS en cliquant dans Excel [ par audklie ] Bonjour tout le monde!Je voudrai lancer une appli (VBS) en cliquant dans une cellule sous excel. J'ai essayé les hyperlink, ca marche mais impossible VBS : Rechercher une valeur dans un tableau excel [ par sboulic ] Bonjour,Novice en VBScript (en prog tout court), je dois modifier un script de logon windows (.vbs) pour aller chercher une veleur dans un fichier.J'a [vbs] ADODB Excel - Query sur Interior.ColorIndex [ par JMO ] Bonsoir à tous,Est-il possible, sans passer par l'objet "Excel.Application", dans une requête de signifier, dans la clause Where, les cellules de [F1] Créer et compléter un fichier Excel en VBS [ par johann91 ] Bonjour,Je souhaiterais cr&#233;er un fichier excel et le compl&#233;ter en VBS. Je suis novice en VBS, et lors de mes recherches, je n'ai trouv&#233; problème pour inserer une formule dans excel à partir d'un VBS [ par mc04 ] Bonjourvoila mon problème:j'ai un fichier excel contenant des positions et des codes barres. le problème est que les positions ne sont pas dans un ord


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Console Nintendo DSi Noire
Entre 169€ et 170€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto friends
Photo femme plage beautéPhoto insecte volant

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,530 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.