Bonjour,
je débute au niveau de VBA et Excel, j'ai pu , avec l'aide de ce superbe forum, avancer un tantinet sur la conception d'une macro pour un logiciel d'édition de factures.
Par contre j'aimerais que mon fichier type (dans lequel j'insere le matos de sortie) s'incremente au niveau du numéro de facture dés l'impression de celle ci. ce qui fonctionne correctement. J'ai de plus une copie de la facture qui s enregistre sur mon disque. Le gros problème est que des que je ferme le fichier type, celui ci ne garde pas en memoire le dernier numéro de facture utilisé. comment faire?
ci joint la macro bidouillé....
Sub Enregistrement()
Dim Chemin1$, Client$, Fichier$, Numfact$, Jour$
[D11].Value = [D11].Value + 1
ThisWorkbook.Save
Jour = Format(Now(), "ddmmyyyy")
Client = Range("E6")
Numfact = Range("D11")
Fichier = Client & Jour & "_" & Numfact & ".xls"
ActiveWorkbook.SaveAs "C:\" & Format(Now(), "yyyy") & "\" & Fichier
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:", Collate:=True
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:", Collate:=True
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
pour l'imprimante il apparait deux fois car il m en faut deux copies, et c'est sous pdf creator pour mes tests.
par contre comment faire pour un "auto apprentissage? le classeur comporte une feuillet 2 qui recense les clients. si ils sont connus ils apparaissent dans une fenetre deroulante. J'aimerais avoir la possibilité que lorsque j'en saisi un inconnu, qu'il aille s'inscrire dans le feuillet 2 à la suite des autres....
j'en demande peut être beaucoup...
Merci !!
je débute au niveau de VBA et Excel, j'ai pu , avec l'aide de ce superbe forum, avancer un tantinet sur la conception d'une macro pour un logiciel d'édition de factures.
Par contre j'aimerais que mon fichier type (dans lequel j'insere le matos de sortie) s'incremente au niveau du numéro de facture dés l'impression de celle ci. ce qui fonctionne correctement. J'ai de plus une copie de la facture qui s enregistre sur mon disque. Le gros problème est que des que je ferme le fichier type, celui ci ne garde pas en memoire le dernier numéro de facture utilisé. comment faire?
ci joint la macro bidouillé....
Sub Enregistrement()
Dim Chemin1$, Client$, Fichier$, Numfact$, Jour$
[D11].Value = [D11].Value + 1
ThisWorkbook.Save
Jour = Format(Now(), "ddmmyyyy")
Client = Range("E6")
Numfact = Range("D11")
Fichier = Client & Jour & "_" & Numfact & ".xls"
ActiveWorkbook.SaveAs "C:\" & Format(Now(), "yyyy") & "\" & Fichier
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:", Collate:=True
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:", Collate:=True
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
pour l'imprimante il apparait deux fois car il m en faut deux copies, et c'est sous pdf creator pour mes tests.
par contre comment faire pour un "auto apprentissage? le classeur comporte une feuillet 2 qui recense les clients. si ils sont connus ils apparaissent dans une fenetre deroulante. J'aimerais avoir la possibilité que lorsque j'en saisi un inconnu, qu'il aille s'inscrire dans le feuillet 2 à la suite des autres....
j'en demande peut être beaucoup...
Merci !!