Logiciel de facture création d'une Macro pour recp facture

Résolu/Fermé
bastoos Messages postés 4 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 10 juin 2015 - 9 juin 2015 à 13:49
bastoos Messages postés 4 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 10 juin 2015 - 10 juin 2015 à 16:08
Bonjour,

Je travaille actuellement sur un petit logiciel de facturation.
Je souhaite créer un tableau de recap qui reprendra les informations importantes des factures émises. Je souhaiterais qu'à chaque enregistrement de la facture, le tableau recap se remplisse automatiquement.

J'ai créé une macro qui permet d'enregistrer la facture en pdf, puis de supprimer la facture et de passer au numéro suivant.

Il me manque donc un dernier code qui me permettrait d'enregistrer les infos dans le tableau recap et de passer à la ligne suivante lors du prochain enregistrement.

Avez vous une idée du code que je dois utiliser.

Voici le document test.

Merci pour votre aide.
A voir également:

1 réponse

via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704
9 juin 2015 à 14:09
Bonjour

Où est le document test?
Le poster sur cjoint.com et revenir ici indiquer le lien fourni

Cdlmnt
Via

0
bastoos Messages postés 4 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 10 juin 2015
9 juin 2015 à 18:54
Merci pour ton retour. Voici le lien : http://www.cjoint.com/c/EFjq2BktPui
0
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704 > bastoos Messages postés 4 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 10 juin 2015
9 juin 2015 à 19:16
Re,

A la fin de la macro Enregistrer_PDF rajouter ces lignes :
Dim dlig As Long
With Sheets("RECAP")
dlig = .Range("A3").End(xlDown).Row + 1
.Range("A" & dlig) = ActiveSheet.Range("F3")
.Range("B" & dlig) = ActiveSheet.Range("F2")
.Range("C" & dlig) = ActiveSheet.Range("F8")
.Range("D" & dlig) = ActiveSheet.Range("F31")
End With


Cdlmnt
Via
0
bastoos Messages postés 4 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 10 juin 2015
10 juin 2015 à 10:19
Bonjour, Merci beaucoup pour ton retour mais cela ne fonctionne pas. Je ne comprends pas pourquoi:
http://www.cjoint.com/c/EFkitgvvwQi
0
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704 > bastoos Messages postés 4 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 10 juin 2015
10 juin 2015 à 12:18
Bonjour

La macro n'existe pas dans le fichier que tu m'as envoyé, je l'ai intégrée au début de la macro Enregistrer PDF
http://www.cjoint.com/c/EFkkrziY5Ut

Cdlmnt
Via
0
bastoos Messages postés 4 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 10 juin 2015
10 juin 2015 à 16:08
Merci beaucoup !
Bonne fin de journée
0