Au secours problème sur excel

Au secours problème sur excel - Programmation

Marsh Posté le 27-08-2002 à 20:10:10    

je désire copier une feuille excel sous un autre nom et fermer ce fichier.  
voici mon code :
 
 
val = ""
val = Worksheets("Fiche Bid_NoBid" ).Cells(4, 2).Value
'sauvegarde de la feuille Bid no bid
'transférer la feuille dans un autre classeur
Worksheets("Fiche Bid_NoBid" ).Select
Worksheets("Fiche Bid_NoBid" ).Copy
      ActiveWorkbook.SaveAs Filename:= _
   "C:\toto\" & val, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
 
    ActiveWorkbook.Close  
 
 
-------------
 
mon souci : ma feuille est bien enregistrée la premiere fois mais quand je demande de réécraser le classeur j'ai dr watson qui me mets une erreur...
que dois-je faire????
 

Reply

Marsh Posté le 27-08-2002 à 20:10:10   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed