Discussion :

[Samiess]

Bonjour à Tous ,
j'ai un classeur nommé " classeur 1" , dans ce classeur j ai une macro , mon problème est le suivant :
Quand j active ma macro , mes résultats s'affichent sur la feuille 1 ,
une fois que ces résultats s affiche , je veux crée une copie de ses résultats dans un autre classeur et sous un autre nom en utilisant "Application.GetSaveAsFilename"
sans modifier le nom de mon "classeur 1"
Je suis obligé d'utiliser GetSaveasfile name car je ne connais pas à l avance dans quel fichier je vais faire mon enregistrement


j'ai essayé plusieurs fois mais j arrive pas à trouver mon erreur ,

Voila le code que j ai essayé d'appliquer , mais ça marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
'popo c est le chemin d 'accès de mon classeur 1
 
 
'Save the workbook
ActiveWorkbook.SaveAs Filename
 
  Dim ActSheet As Worksheet
    Dim ActBook As Workbook
    Dim CurrentFile As String
    Dim NewFileType As String
    Dim NewFile As String
    'Variable declaration
    Dim sOldFile As String
    Dim sNewFile As String
    Application.ScreenUpdating = False    ' Prevents screen refreshing.
 
    CurrentFile = ThisWorkbook.FullName
 
    NewFileType = "Excel Files 1997-2003 (*.xls), *.xls," & _
               "Excel Files 2007 (*.xlsx), *.xlsx," & _
               " Excel Files 2016 (*.xlsx), *.xlsx," & _
               "All files (*.*), *.*"
 
    NewFile = Application.GetSaveAsFilename( _
        InitialFileName:=NewFileName, _
        fileFilter:=NewFileType)
 
    If NewFile <> "" And NewFile <> "False" Then
        ActiveWorkbook.SaveAs Filename:=NewFile, _
            FileFormat:=xlNormal, _
            Password:="", _
            WriteResPassword:="", _
            ReadOnlyRecommended:=False, _
            CreateBackup:=False
 Set ActBook = ActiveWorkbook
        Workbooks.Open CurrentFile
       sOldFile = popo & "\" & "Classeur1.xlsm"
 
    sNewFile = popo & "\" & "Classeur1.xlsm"
 ActBook.Close
    End If
 
    Application.ScreenUpdating = True
 
 
   End Sub

[Philippe Tulliez]

Bonjour,
Pourrais-tu préciser le type d'objet que tu souhaites copier.
Est-ce un Range (plage de cellules) ou un Worksheet (feuille) ?
Si c'est un Range, les cellules à copier sont elles contiguës ou non contiguës ?

[Samiess]

C'est un Worksheet que je souhaite

[Philippe Tulliez]

Bonjour,
Et bien démarre l'enregistreur de macros.

• Fais un clic droit sur l'onglet de la feuille que tu veux copier
• Sélectionne la commande Déplacer ou copier... dans le menu contextuel.
• Ne pas oublier pas de cocher l'option Créer une copie
• Ensuite sélectionne le classeur où tu souhaites copier la feuille ainsi que la feuille avant laquelle tu souhaites insérer la feuille source
• Une fois la feuille copiée, arrête l'enregistreur de macros

Examine le code.
Tu verras c'est une instruction d'une simplicité déconcertante.

Code :

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

ObjetWorksheet.Copy Before;=ObjetClasseur.ObjetFeuille

C'est tout

Fais des essais et si tu ne t'en sors pas, reviens poser ta question que l'on puisse te guider.