aide sur copier/coller classeur fermé

  • Initiateur de la discussion jean
  • Date de début
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
 

Discussions similaires