GPAO

Bonjour,

Je souhaite mettre en place une GPAO et donc utiliser le VBA pour son fonctionnement.

Ci-joint mon fichier :

• 3 onglets servant de base de données : clients / dentc / tarifs
• 1 onglet saisie des commandes
• 1 onglet pour préparer la facturation
• 1 onglet pour émettre la facture
• 1 onglet pour transfert

Je souhaite à terme :

1/ transférer de COMMANDES à FACTURATION les colonnes a/b/c/d/e/f /i /j

uniquement les lignes dont la date est stipulée en B1 de FACTURATION

et mettre les lignes en dessous de la dernière ligne de FACTURATION

cela en cliquant sur le bouton onglet FACTURATION "Test Transfert"

2/ Générer les factures à la date souhaitée

les enregistrer une à une en format PDF

et les envoyer par mail

3/ que TRANSFERT se mette à jour à la date souhaitée pour transfert ventes

bouton "lister" onglet TRANSFERT.

4/ réaliser des userforms pour CLIENTS et COMMANDES

Aujourd'hui, j'ai réalisé le VBA pour l'étape 3 et commencer l'étape 1

Mais j'ai des erreurs et je n'arrive pas à les corriger.

Merci d'avance pour le coup de main.

Bonjour,

ci-joint étape 1 avec code dans module 3.

Bonjour THEV,

Merci pour le code : çà fonctionne bien.

Puis-je avoir une aide pour la génération des factures : selon une date de facturation

• remplissage onglet FACTURE
• copie de chaque Facture en PDF
• envoie par mail des Factures

Merci d'avance

OK. Je regarde.

ci-joint version avec génération des factures en PDF (code module 4)

A vérifier

Envoi mail à venir

ci-jointe version avec envoi e-mail

Bonjour THEV

Quand je clique sur le bouton FACTURER j'ai une erreur "erreur de compilation : projet ou bibliothèque introuvable"

sur la ligne 4 : Set factures = CreateObject("Scripting.Dictionary") (avec Factures en jaune).

Editeur VBA --> outils --> références

ajouter la bibliothèque Microsoft Scripting Runtime.

J'ai bien cocher éditeur VBA - Outils - références - Microsoft Scripting Runtime

pas plus de succès toujours le même bug : "erreur de compilation : projet ou bibliothèque introuvable"

est-ce parce que j'ai un PC en version XP ?

Il doit te manquer Microsoft .NET Framework 3.5.

Je te refais une version en utilisant l'objet "Collection" en lieu et place de l'objet "Scripting.Dictionary"

ci-joint nouvelle version

Cà avance ce projet, merci beaucoup !!

Toujours un problème sur cette macro, message :

'... envoi mail avec facture PDF "

objet = "Votre facture du " & .Range("B19")

Autre question : peut-on générer un PDF pour chaque facture ?

compta a écrit :

Toujours un problème sur cette macro, message :'... envoi mail avec facture PDF " objet = "Votre facture du " & .Range("B19")

Quel est le message d'erreur ? Il est possible que ce soit un problème au niveau de la définition de la variable "objet" .

ci-joint nouvelle version

compta a écrit :

Autre question : peut-on générer un PDF pour chaque facture ?

C'est tout à fait prévu dans le code. Les factures PDF sont générées dans le même répertoire que celui du classeur.

Voici le fichier avec mes interrogations :

1- dans l'userform :

quand je clique sur le bouton NOUVELLE COMMANDE j'ai un bug : "erreur de compilation : projet ou bibliothèque introuvable"

2- dans l'onglet Facturation : clic sur TEST Transfert

la commande du 30/09/2016 - saisie par le biais de l'userform - ne se transfère pas

==> est-ce dû au format généré par l'userform ? format texte

3- au niveau de FACTURER :

j'ai un bug "erreur d'exécution 457 : cette clé est déjà associée à un élément de cette sélection"

en jaune la ligne : factures.Add Key:=nom_client, Item:=données_fact

4- au niveau de FACTURER :

sur la journée du 17/09/2016 à facturer j'ai 1 seule facture (n°59820) mais 2 lignes de facturation

ces 2 lignes doivent apparaître sur cette même facture (pas pu vérifier du fait du bug)

5- au niveau de FACTURER :

j'aimerai pouvoir vérifier l'édition des factures avant l'envoi automatique par mail

• peut-on enregistrer les factures générées dans un répertoire précis ? (j'ai bien remarqué le PDF !!)
• avoir un message box demandant l'envoi par mail ? ce qui laisse le temps de vérifier

compta a écrit :

1- dans l'userform :quand je clique sur le bouton NOUVELLE COMMANDE j'ai un bug : "erreur de compilation : projet ou bibliothèque introuvable"

compta a écrit :

2- dans l'onglet Facturation : clic sur TEST Transfertla commande du 30/09/2016 - saisie par le biais de l'userform - ne se transfère pas==> est-ce dû au format généré par l'userform ? format texte

Cells(derlignes, 2) = DateValue(TextBox_DATE)

compta a écrit :

3- au niveau de FACTURER :j'ai un bug "erreur d'exécution 457 : cette clé est déjà associée à un élément de cette sélection"en jaune la ligne : factures.Add Key:=nom_client, Item:=données_fact

compta a écrit :

4- au niveau de FACTURER :sur la journée du 17/09/2016 à facturer j'ai 1 seule facture (n°59820) mais 2 lignes de facturationces 2 lignes doivent apparaître sur cette même facture (pas pu vérifier du fait du bug)

compta a écrit :

5- au niveau de FACTURER :j'aimerai pouvoir vérifier l'édition des factures avant l'envoi automatique par mail- peut-on enregistrer les factures générées dans un répertoire précis ? (j'ai bien remarqué le PDF !!)- avoir un message box demandant l'envoi par mail ? ce qui laisse le temps de vérifier

Pour le répertoire autre que celui du classeur, plusieurs solutions possibles :

1- le demander à chaque fois,

2- l'insérer dans la feuille Facturation dans une cellule ou dans un contrôle de texte.

Sur ce point, vous devez faire votre choix.

Bonjour

Je travaille sur le dossier....

Je soumettrai le projet final dans quelques jours je pense !!

Merci à THEV pour ses propositions

Bonjour !!

Voilà le projet mûrit !!

Je coince au niveau du remplissage de la facture :

- une commande peut avoir 3 lignes de facturation

* HT

* MAQ

* DEC

3 Questions : dans ma macro FACTSEULE

• -> pour une ligne de commande, je ne sais pas comment inscrire une seconde ligne (correspondant à MAQ) et donc une troisième ligne (correspondant à DEC)
• -> s'il existe 2 lignes de commandes pour une même facture, comment insérer de nouvelles lignes de commande sur ma facture
• -> cumuler le PORT : si plusieurs lignes commandes et donc plusieurs PORT, il faut cumuler les PORT.

A votre bonne aide !!

Bonsoir,

compta a écrit :

s'il existe 2 lignes de commandes pour une même facture, comment insérer de nouvelles lignes de commande sur ma facture

Il manquait dans le code, la recherche de la facture suivante :

              
                '... Numéro de facture suivant correspondant au n° facture de la feuille Factures, colonne AB
                Set num_afact = .Columns("AB").Find(num_fact, After:=num_afact)

                Loop Until num_afact.Address = num_afact1.Address

Les 2 autres questions sont traitées.

ci-joint fichier

NB: j'ai modifié le client "CI " qui n'existe pas en client "CS"

Bonjour THEV,

Merci pour ton aide.... très précieuse et claire !!

J'ai un bug "incompatibilité de type si j'ai une facture sans PORT

j'ai donc repris ton code :

If tableau(8) <> Empty Then
     .Cells(53, "D") = .Cells(53, "D") + tableau(8)
End If

Je continue la programmation.

On continue ...

avec de nouvelles questions ....

Je souhaite pouvoir créer toutes les factures qui correspondent à une référence de la colonne Q

(un onglet par facture pour pouvoir les modifier individuellement si erreur)

ex : référence PC1070 ==> 3 factures à créer

j'ai repris le code de THEV pour une facture seule, et je l'ai adaptée à de multiples factures.

J'ai un bug : renommer chaque onglet avec le n° de facture

Bonjour,

ci_jointe version adaptée.