vendredi 31 décembre 2010

Ajouter les pieds de page Excel

Pour ajouter des pieds de pages automatiquement à tous les onglets d'un classeur excel, utiliser la macro suivante :


Sub AjoutePiedPage()
'
' AjoutePiedPage Macro
' Macro enregistrée le 29/08/2008 par C.Mege
'

For Each page In Worksheets
With page.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&""Arial Narrow,Normal""&8MMV - SI - &Z" & Chr(10) & "&F - Imprimé &D"
.CenterFooter = ""
.RightFooter = "&""Arial Narrow,Normal""&8Page &P"
.PrintErrors = xlPrintErrorsDisplayed
End With
Next
End Sub



La partie "&""Arial Narrow,Normal""&8 permet de définir la police et la taille de celle-ci (8 points)

Les codes &Z &F &D &P correspondent à des champs mis à jour automatiquement par excel (date, nom et emplacement du fichier...)

Comparaison récursive de répertoire en ligne de commande sous linux

Tout est dans le titre.

Après des essais divers avec diff -Narq, rsync dry-run, voici un moyen élégant et efficace :

comm -3 <(find /source -type f | sort)\
        <(find /dest -type f | sort)

comm compare deux fichiers (-1 affiche les lignes communes entre les deux; -2 les lignes uniquement dans le 1er fichier, -3 les lignes uniquement dans le 2ème fichier)
Ainsi, la commande ci dessus affichera les fichiers présents uniquement dans le répertoire /dest.