Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01men
01net Pro Entreprise informatique
Bureautique
Multimédia
Internet
Utilitaires
Personnaliser son pc
Loisirs
Sécurité
Logiciels Mobiles
Services en ligne
Divers

Astuce Excel : additionnez des factures sans les ouvrir

Dans un dossier, un certain nombre de classeurs Excel sont regroupés, chacun correspondant à une facture. Ces factures ont toutes la même structure : le total à payer se trouve toujours dans la cellule H10. Comment totaliser automatiquement les montants de toutes les factures du dossier, sachant qu'il en arrive régulièrement de nouvelles ?

laisser un avis
agrandir la photo
Pour résoudre votre problème, vous allez créer une macro qui examinera tous les classeurs du dossier (C:\Factures dans notre exemple) et additionnera les valeurs de la cellule H10 de chacun.
Pour cela, créez un classeur Excel dans un autre dossier puis tapez Alt + F11 pour ouvrir l'éditeur VBA. Déroulez le menu Insertion, Module et saisissez le listing ci-contre.

 Sub Total_Factures()

Total = 0

Dim NomFichier As String

    NomFichier = Dir("C:\Factures\*.XLS")

    Do Until NomFichier = ""

        Workbooks.Open Filename:="C:\Factures\" & NomFichier

        '-- Instructions effectuézes pour chaque fichier ------

        Total = Total + [H10] : ActiveWorkbook.Close

        NomFichier = Dir

    Loop

    MsgBox "Total des factures " & Total

End Sub

Revenez à Excel et tapez Alt + F8, sélectionnez Total_Factures et cliquez sur Exécuter. Le total s'affiche dans une boîte de dialogue. Notez que, en remplaçant Total = Total + [H10] par les instructions de votre choix, vous pouvez appliquer n'importe quel traitement à un ensemble de classeurs.

 

Ce qu'il vous faut
Niveau : Expert / Temps : 15 minute(s)
Logiciels :
Microsoft Office 2007 (Windows)
Matériel :
rien
envoyer
par mail
imprimer
l'article
PAS D'AVIS SUR CET ARTICLE
Répondre
 

Avis sur «Astuce Excel : additionnez des factures sans les ouvrir»

   
 
à lire aussi
TÉLÉCHARGEMENTS
Microsoft Office 2007 (Windows)
SUR LES MÊMES THÈMES
Virgin bloque The Pirate Bay en Grande-Bretagne
La guerre du Cloud aura bien lieu
Comment les militants PS animent le débat sur les réseaux sociaux
Time 2 Market
Datacentres 2012
HIT Paris 2012
Driver genius 11
Comment lutter contre les fraudes téléphoniques ?
Avast Internet Security 7
TuneUp Utilities 2012
Neuf sites web sur dix utilisent un protocole SSL obsolète
WinRar
Nero 11
La Promo de la semaine : image de gauche
Architecte 3D Silver 2012
Kaspersky Antivirus 2012
Anti-Hacks 2.0
Le projecteur Epson pour iPod/iPad en vidéo
Windows XP, bientôt la fin
Matinée 01 : e-commerce, la conquête client à l’heure du cross-canal