Suivi de facturation sous Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Suivi de facturation sous Excel

hyperion66

Bonjour,

J'ai réussi à créer une facture qui m'enregistre la facture dans un dossier en fonction de l'année, ainsi qu'un sous-dossier portant le nom du client.

Je souhaiterai réaliser un suivi mensuel de mes facturations, en créant par exemple un fichier Excel avec un onglet récapitulatif de l'année (nommé 2007 pour cette année), ainsi que 12 onglets pour le suivi mensuel (nommés Janvier à Décembre ou 1 à 12). Je souhaiterai que dans chaque onglet soit automatiquement enregistré ma facture (le montant HT, nom du client et date de la facture) et avoir ainsi un total des factures pour chaque mois.

Cela a l'air plutôt compliqué, alors si vous voulez des précisions, n'hésitez pas.

Je veux faire cela sous Excel, en évitant si possible une BD Access, car j'ai dû mal à passer sous Access.

Merci d'avance.

Message édité par hyperion66 le 21-11-2007 à 08:51:39

---------------
MATOS VELO - Club Strava Matos Vélo - Combien de dodos avant Paris-Roubaix ?

Publicité

hyperion66

Voilà ce qui m'a été proposé sur un autre forum pour débuter le code :

Code :

Code :
If Dir(Chemin2 & Format(Range("Date" ), "yyyy" ) & ""Recap" & Format(Range("Date" ), "yyyy" ) & ".xls", 0) = "" Then
If Dir(Chemin1 & Format(Range("Date" ), "yyyy" ) & ""Recap" & Format(Range("Date" ), "yyyy" ) & ".xls", 0) = "" Then
Workbooks.Add
Sheets.Add before:=Sheets(1)
Sheets(1).Name = Year(Now)
For i = 2 To Sheets.Count
Sheets(i).Visible = False
Next i
For i = 1 To 12
Sheets.Add after:=Sheets(i)
Sheets(i + 1).Name = Right("0" & i, 2)
Next i
ActiveWorkbook.SaveAs Chemin1 & Format(Range("Date" ), "yyyy" ) & "Recap" & Format(Range("Date" ), "yyyy" ) & ".xls"
ActiveWorkbook.SaveAs Chemin2 & Format(Range("Date" ), "yyyy" ) & "Recap" & Format(Range("Date" ), "yyyy" ) & ".xls"
Else
Workbooks.Open Filename:=Chemin1 & Format(Range("Date" ), "yyyy" ) & "Recap" & Format(Range("Date" ), "yyyy" ) & ".xls"
End If
Else
Workbooks.Open Filename:=Chemin2 & Format(Range("Date" ), "yyyy" ) & "Recap" & Format(Range("Date" ), "yyyy" ) & ".xls"
End If

J'ai créé le squelette du fichier Recap que voici

Message édité par hyperion66 le 15-07-2007 à 12:02:09

---------------
MATOS VELO - Club Strava Matos Vélo - Combien de dodos avant Paris-Roubaix ?

gui-llaume

ca a l'air pas mal le début de macro qu'il t'es proposé !!

Idoine

Perso je partirais d'un modèle de classeur qui a déjà son onglet Récap et ses 12 onglets pour les mois, avec sur l'onglet Récap les formules déjà prêtes, et la macro se contenterait d'ouvrir les classeurs factures et de mettre les données dans les feuilles de mois...

hyperion66

Ca me conviendrait aussi, mais comment faire ?

---------------
MATOS VELO - Club Strava Matos Vélo - Combien de dodos avant Paris-Roubaix ?

FORUM HardWare.fr

Windows & Software

Logiciels

Suivi de facturation sous Excel

Sujets relatifs
[Excel] Faire une recherchv sur 2 valeurs ?	2 Listes déroulante dépendante sur Excel
Simplification de macro sur Excel	2 ème tentative : cherche les binaires de Word 6 et Excel 5
sous excel : utiliser valeur affichée et non celle calculée ?	Ouverture fichier Excel récupéré avec EasyRecovery
Où trouver les sources Excel 5 et Word 6	tracer une fonction affine sous excel 2007
Excel - Comment afficher et cacher un graphique	Macro sous Excel
Plus de sujets relatifs à : Suivi de facturation sous Excel

Page générée en 0.052 secondes