Discussion :

[Apoulit]

Bonjour je voudrait faire une copie partielle de mon classeur en appuyant sur le bouton "cmdpartiel"

Le but est de faire une copie SaveCopyAs ou une Copie et de ne sauver que la feuille 1 qui s'appelle "mafeuille" et seulement de B1 à K100.

Pour pouvoir garder la mise en forme , les couleurs mis en place au départ par des mise en forme conditionnelles.

Au départ j'avais dans l'idée un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
Private Sub cmdpartiel_Click()
Dim Path As String, valeur As String
Path = Worksheets("mafeuille").Path & "\"      'SEUL: Path = ActiveWorkbook.Path & "\" FONCTIONNE MAIS CA COPIE TOUT
 
valeur = "macopie_" & Format(Date, "dd_mm_yy") & "_" & Format(Time, "hh-mm") & ".xlsm"
 
Worksheets("mafeuille").SaveCopyAs Path & valeur
End Sub

Mais sa fonctionne pas :/ ... une petite idée ?

Merci d'avance.

[unparia]

Bonjour

Mais sa fonctionne pas :/ ... une petite idée ?

Oui. Une idée toute simple et assez évidente :
1) créer dynamiquement un nouveau classeur
2) y créer une feuille et la nommer
3) utiliser la méthode Range.Copy pour y coller la plage du premier classeur que tu veux que cette feuille contienne
4) sauvegarder ce nouveau classeur où tu le souhaites.

[Apoulit]

Bonjour peut on l'enregistrer alors sous un autre dossier "ma sauvegarde" ... faire un SaveCopyAs en indiquant un chemin pour atteindre le dossier ?

Merci.

[Menhir]

Le plus simple est de faire un Copy sur la Worksheet souhaitée, sans rien mettre concernant la destination (ni Before, ni After).
Ca créera un nouveau classeur automatiquement qui deviendra le classeur Actif.
Il te suffit alors de faire un simple SaveAs sur ce classeur.
Voir : https://msdn.microsoft.com/fr-fr/lib.../ff837784.aspx

[Apoulit]

Bonsoir, mais j'aimerai "sauver sous" le classeur entier ! dans le dossier de mon choix

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub cmdexport_Click()
 
Dim Path As String, valeur As String
Path = ActiveWorkbook.Path & "\"
 
 
 valeur = "Export_" & Format(Date, "dd_mmmm_yyyy") & "_" & Format(Time, "hh-mm") & ".xlsm"
ThisWorkbook.SaveCopyAs Path & valeur
End Sub

Comment ça , on enregistre tout comme je veux mais j'aimerai pouvoir l'enregistrer ailleurs que le classeur initial.


Merci.

[Menhir]

Bonsoir, mais j'aimerai "sauver sous" le classeur entier ! dans le dossier de mon choix

Il va falloir que tu sois plus clair concernant ta demande.

La feuille que tu veux copier, tu veux la copier dans ton classeur d'origine ou tu veux qu'elle soit dans un nouveau classeur ne contenant que cette feuille ?