Pour renomer automatiquement des fichiers ou les déplacer Sub renameFiles() Dim i As Integer, strName As String, strNewName As String, strError As String On Error GoTo err_ScanSend Set fs = Application.FileSearch With fs .LookIn = "D:\temp\" .SearchSubFolders = T...

Permet de vérifier à chaque nom de fichier entré dans des cellules corresond bien un fichier. Sub CheckFiles() Dim selectedCell As Range Const strPath = "D:\temp\" For Each selectedCell In Selection If Dir(strPath & selectedCell.Value) = "" Then Debug...

Pour arrondir des grands chiffres au millier près, créer un formattage personnalisé ( Format / Custom ) et entrer le format suivant: #'###'"'000" pour plus de lisibilité, en ajoutant des espaces on a: #'###' " '000" ou dièse apostrophe dièse dièse dièse apostrophe gu...

Pour ajouter une ligne à un fichier log, créer le petit sub suivant

Code: Select all

Sub WriteLog(strText As String)
    Open DocToIndexPath & "index.log" For Append As #1
    Print #1, Now() & " " & strText
    Close #1
End Sub

et l'appeler avec

Code: Select all

WriteLog ("coucou ")

Autre solution: en utilisant la mise en forme conditionnelle. Balancer la formule suivante comme condition =ROW()=CELL("row") ou =LIGNE()=CELLULE("ligne") en français. Ensuite il faut ajouter une petite macro d'actualisation de la feuille: Private Sub Worksheet_SelectionChang...

Pour mettre en évidence la ligne et la colonne actuellement sélectionnée, ajouter ce petit bout de code dans le code de la feuille à traiter: Const ColorToApply = 19 ' jaune clair Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Cells.Interior.Pattern = xlNon...

Exemple de vb script ouvrant notepad après 10 secondes.
myExample.vbs

Code: Select all

Dim oShell
WScript.Sleep 10*1000   ' attendre 10 secondes
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.run("notepad.exe")

De nombreux services sous XP sont inutiles pour la majorité des utilisateurs et ne font que ralentir la machine.
http://assiste.com.free.fr/p/services_windows/services_xp.html donne une liste avec recommandations de désactivation ainsi qu'un descriptif détaillé de chaque service.