Discussion :

[Mimosa777]

Bonjour a tous et a toutes,

j'ai un fichier excel qui contient plusieurs feuilles dont les données sont calculés grace a des macros. Tout ce que je souhaite est de simplement créer une macro qui me permettrait d'exporter dans un nouveau fichier excel 3 feuilles du fichier initial et en demandant à l'usager qui les exporte ou desire t-il enregistrer le nouveau fichier sur son ordinateur (fenetre enregistrer sous s'ouvrirait)

Pouvez-vous me donner une piste svp ou une facon de procéder.

Merci d'avance de votre aide

[JackOuYA]

bonsoir ,


Tu sauve classeur sous un autre nom ..?

Code :

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

Thisworkbook.saveas ....

[Mimosa777]

oui un autre nom..

[JackOuYA]

de quoi t'aider :

Code :

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

1
2
3
4
5
6
7
Sub yaSAuve()
 Dim yaSt
 yaSt = Application.GetSaveAsFilename
 If yaSt <> False Then
   ThisWorkbook.SaveAs yaSt
 End If
End Sub

tu dis quoi ..

[Mimosa777]

Bonjour JackOuYA et merci pour ton code. Effectivement, pour l'enregistrement c'est exactement ca que je voulais. Cependant, pour la copie, je desire uniquement copier les feuilles (feuill1, feuil2 et feuil4) sans les formules et macros. Simplement un fichier pour visualiser les données, rien d'autres.

Donc au fond, ma macro copierai d'abord les 3 feuilles dans un nouveau fichier et la j'executerai ta macro yaSAuve() pour sauvegarder ce nouveau fichier a un endroit spécifique.

Merci

[JackOuYA]

c'était le but de ma question précédente ..

cela change.. manquera à rajouter le code de sauvegarde :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub yaCopie()
Dim yaWk As Workbook
Dim yaWh As Worksheet
 ThisWorkbook.Sheets.Copy
 Set yaWk = Workbooks(Workbooks.Count)
 For Each yaWh In yaWk.Worksheets
    yaWh.Cells.Copy
    yaWh.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 Next
 
End Sub