enregistrer

[glm]

Bonsoir le forum,

je cherche à enregistrer une partie d'une feuille active
Et le code que j'ai utilisé ne fonctionne pas comme je viens de le décrire
il enregistre le classeur entier! Pourquoi?
voici le code que j'utilise

Nom = "bdc" & Format(Date, "dd mm yy") & ".xls"
ActiveSheet.Range("C4:S60").Copy

With ActiveWorkbook
Application.Dialogs(xlDialogSaveAs).Show arg1:=Nom
.Close
End With

Merci pour votre aide
A+
glm

 

[Pierrot93]

Re : enregistrer

Bonsoir Glm,

C'est normal l'enregistrement dans Excel concerne le classeur, d'ailleurs dans ton code tu sauves ActiveWorkbook" c'est à dire le classeur actif. A ma connaissance il n'y a pas de moyen d'enregistrer uniquement une partie de feuille ...

Bonne soirée
@+

 

[glm]

Re : enregistrer

Bonsoir pierrot,
il me semblait qu'on pouvait le faire mais je n'arrive pas à trouver sur le forum
Merci pour ta réponse
A+

 

[Pierrot93]

Re : enregistrer

Re Glm

Oui j'ai du mal comprendre, peut être veux tu copier une partie d une feuille dans un nouveau classeu, dans ce cas utilise le code ci dessous.

Option Explicit
Sub test()
Dim NouvClas As String, NvClasseur As Workbook
Dim fName

ActiveSheet.Range("C4:S60").Copy

Set NvClasseur = Workbooks.Add

Do
    fName = Application.GetSaveAsFilename( _
        fileFilter:="Feuilles de calcul(*.xls), *.xls")
Loop Until fName <> False

ActiveSheet.Paste

NvClasseur.SaveAs Filename:=fName, FileFormat:=xlNormal

End Sub

@+

 

[glm]

Re : enregistrer

Effectivement cela fonctionne mais je cherche à garder la mise en forme que j'avais et y a t'il moyen de supprimer les feuilles inutile feuille 2 et feuille 3 de ce nouveau classeur
Merci

glm

 

[Pierrot93]

Re : enregistrer

Bonsoir Glm,

macro modifiée pour supprimer les feuilles, quand aux formats en principe ils suivent sauf les largeurs de colonnes. A voir selon ta version Excel.

Option Explicit
Sub test()
Dim NouvClas As String, NvClasseur As Workbook
Dim fName

ActiveSheet.Range("C4:S60").Copy

Set NvClasseur = Workbooks.Add

Do
    fName = Application.GetSaveAsFilename( _
        fileFilter:="Feuilles de calcul(*.xls), *.xls")
Loop Until fName <> False

ActiveSheet.Paste

Sheets(Array(2, 3)).Delete

NvClasseur.SaveAs Filename:=fName, FileFormat:=xlNormal

End Sub

@+

 

[glm]

Re : enregistrer

bonsoir,
grand merci pour la réponse, cela va me servir
j'ai trouvé un exemple qui est différent. je vais adapter à mon tableau ces solutions
Bonne nuit
A+