J
jean
Guest
bonsoir à tous le forum
Dans mon programme de facturation, tous mes devis sont archivé dans un répertoire 'archive_devis' sous le nom du client et n° du devis.
Pour afficher tous les devis, j'ai un usf avec un listbox dans le programme principale qui me permet d'ouvrir un devis archivé.
J'ai créer une macro pour le transformer en facture.
Le problème est que la macro se trouve dans le classeur du devis.
Je souhaiterais avoir la macro dans le classeur principale, selectionner n'importe quel devis sans l'ouvrir et cliquer sur un button qui lance la macro.
Pour le moment j'ai cette macro qui ne fonctionne que pour un devis donné.
Sub tranform_devis_facture()
'
' tranform_devis_facture Macro
' Macro enregistrée le 2/08/2005 par jean COMTE
'
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('E12').Select
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('E12').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('H12').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('H12').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('E13').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('E13').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('E14').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('E14').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('G14').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('G14').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('E15').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('E15').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('L4').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('L13').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('D18:L27').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('D18:L27').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
ActiveWindow.SmallScroll Down:=18
Range('L51').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
ActiveWindow.SmallScroll Down:=11
Range('L51').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('L53').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('L53').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('L55').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('L55').Select
ActiveSheet.Paste
' FERMETURE DU DEVIS
Windows('devis Mr Fanuel 05-9.xls').Close
'=====================
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('c3').Select
End Sub
Je vous remercie d'avance pour une aide éventuelle
Jean
Dans mon programme de facturation, tous mes devis sont archivé dans un répertoire 'archive_devis' sous le nom du client et n° du devis.
Pour afficher tous les devis, j'ai un usf avec un listbox dans le programme principale qui me permet d'ouvrir un devis archivé.
J'ai créer une macro pour le transformer en facture.
Le problème est que la macro se trouve dans le classeur du devis.
Je souhaiterais avoir la macro dans le classeur principale, selectionner n'importe quel devis sans l'ouvrir et cliquer sur un button qui lance la macro.
Pour le moment j'ai cette macro qui ne fonctionne que pour un devis donné.
Sub tranform_devis_facture()
'
' tranform_devis_facture Macro
' Macro enregistrée le 2/08/2005 par jean COMTE
'
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('E12').Select
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('E12').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('H12').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('H12').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('E13').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('E13').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('E14').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('E14').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('G14').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('G14').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('E15').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('E15').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('L4').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('L13').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('D18:L27').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('D18:L27').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
ActiveWindow.SmallScroll Down:=18
Range('L51').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
ActiveWindow.SmallScroll Down:=11
Range('L51').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('L53').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('L53').Select
ActiveSheet.Paste
Windows('devis Mr Fanuel 05-9.xls').Activate
Range('L55').Select
Application.CutCopyMode = False
Selection.Copy
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('L55').Select
ActiveSheet.Paste
' FERMETURE DU DEVIS
Windows('devis Mr Fanuel 05-9.xls').Close
'=====================
Windows('facturev2.xls.xls').Activate
Sheets('facture').Select
Range('c3').Select
End Sub
Je vous remercie d'avance pour une aide éventuelle
Jean