T
tonyde54
Guest
bonsoir le forum
besoin d'aide
je voudrai sauvegader ma feuille dans un dossier facture surD:\toto\facture
comment faire d'apres ma macro si dessous
Private Sub CommandButton2_Click()
Worksheets("Facture").Copy 'sélectionne la feuil a enregister
FichierCible = Application.Dialogs(xlDialogSaveAs).Show([Facture!S5 & T5 & S4 & S6]) 'sauvegarde de la feuille sous un nom donné dans des cellules
For Each Obj In ActiveSheet.DrawingObjects 'suprime les objets se trouvant sur la feuille a l'enregistrement
Obj.Delete
Next Obj
ActiveWorkbook.Close True 'ferme la feuille après enregistrement
End Sub
merci d'avance
bye
tony
besoin d'aide
je voudrai sauvegader ma feuille dans un dossier facture surD:\toto\facture
comment faire d'apres ma macro si dessous
Private Sub CommandButton2_Click()
Worksheets("Facture").Copy 'sélectionne la feuil a enregister
FichierCible = Application.Dialogs(xlDialogSaveAs).Show([Facture!S5 & T5 & S4 & S6]) 'sauvegarde de la feuille sous un nom donné dans des cellules
For Each Obj In ActiveSheet.DrawingObjects 'suprime les objets se trouvant sur la feuille a l'enregistrement
Obj.Delete
Next Obj
ActiveWorkbook.Close True 'ferme la feuille après enregistrement
End Sub
merci d'avance
bye
tony