Enregistrement d'une plage de cellule
Bonjour a tous?
- En partant du code suivant je voudrais, pouvoir sauvegarder qu'une plage de cellule de ma feuille "Facture", car pour le moment il enregistre toute la feuille, mais il y a des information sur la feuille qui non pas besoin d'etre enregistrer.
Sub SauvegardeFacture()
'
' SauvegardeFacture Macro
Dim extension As String, chemin As String, nomfichier As String
extension = ".xls"
chemin = "C:\" 'mettez ici le chemin de destination
nomfichier = Sheets("Facture").Range("G4") & extension
Sheets("Facture").Copy
ActiveWorkbook.SaveAs Filename:=chemin & nomfichier
End Sub- Disons que la plage de cellule serais la suivante: "A1:F54", tout le reste ne devrais pas etre sauvegarder.
es-ce possible??
merci.
Bonjour,
Ne peux-tu pas ajouter un bouton avec la macro suivante.
Il te suffit d'adapter la zone d'impression ici C4:F30
Sub Macro1()
Range("C4:F30").Select
ActiveSheet.PageSetup.PrintArea = "$C$4:$F$30"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Range("A3").Select
End Sub
A +
Bonjour a toi,
Ce n'est pas un probleme d'impression mais de sauvergarde
ma zone d'impression est bonne je n'ai que les cellule dont j'ai besoins, mais ces lors de l'enregistrement de la facture dans un autre classeur, les diverse info ce trouvent sur certaine cellule hors de la mise en page de le facture ne devrai pas etre enregistrer avec entre le bouton "enregistrer" qui affecter a une macro etc...
merci quand meme.
Salut le forum
Copie ta sélection dans une feuille Temporaire avec ta plage voulue, et
enregistre ensuite cette feuille.
Te reste qu'a l'effacer ensuite.
Myt