facture enregistrement specifique

[jiro67]

Bonjour a tous

Voila suite a l'evolution de mon fichier 'facture' je rencontre quel petit souci dont je ne trouve pas sur la toile.

- premier point
Avec mon fichier 'facture' j'utilise une fonction pour enregistrer 1 feuille avec cette marco que j'ai bien évidement recup sur votre forum cela fonctionne a merveille et aurais aimer savoir si il etait possible qu'a chaque ordre donne pour enregistrer cela ferais un imprimer de ma feuille suivi de l'enregistrement comme il ce faisait avec la macro d'origine.
Sub Sauvegarder()
'Macro Dan le 18/09/10 pour millopas
Dim nomfichier As String, chemin As String
With ThisWorkbook
chemin = .Path & "\"
nomfichier = "Fact" & .Sheets("Facture").Range("B11")
.Sheets("Facture").Copy
End With
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier & ".xls"
.Close
End With
End Sub

- second point
Je voulais signaler est ce normal qu'avec la macro si dessus, lorsque ma feuille et enregistrer elle ce retrouve avec un autre style?.
Je m'explique mon fichier original a des couleur orange avec un typo classic et lorsque j'enregistre ma feuille je retrouve un fichier avec une couleur bleu et une autre typo... Comment puis remedier a cela?


Vous remerciant coridalement

 

[jiro67]

Re : facture enregistrement specifique

Bonjour
Petit up pour savoir si je suis hors sujet

Cordialement

 

[Gardien de phare]

Re : facture enregistrement specifique

Bonjour,

Hors sujet, non, mais pas de fichier joint, un titre ambigü, etc.