enregistrer nouveau classeur

**cag's** · 27/07/2015, 19h06

Bonjour à tous,

Je copie quatre feuilles de graphique "Graph1", "Graph2" , "Graph3" et "Graph4" dans un nouveau classeur, j'aimerai que l'utilisateur puisse enregistrer ce nouveau classeur et choisir le nom. Le problème c'est qu'avec "Application.GetSaveAsFilename" rien ne se passe ... je ne comprends pas bien, y a quelque chose que je dois mal saisir :/

Aussi dans mon nouveau classeur les feuilles se placent derrière la Feuil1 (comme indiqué dans le code), mais je voudrais supprimer cette feuille pour ne garder que les graphiques mais ça ne marche pas...

Quelqu'un voit le problème ?

en vous remerciant !

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
 
 
Sub CopierPlusieursFeuillesDunClasseurDansLautre()
 
    Dim Feuilles(1 To 4)
 
    Feuilles(1) = "Graph1"
    Feuilles(2) = "Graph2"
    Feuilles(3) = "Graph3"
    Feuilles(4) = "Graph4"
 
    FichierOùCopier = ActiveWorkbook.Name
    Application.Workbooks.Add
    FichierOùColler = ActiveWorkbook.Name
    Workbooks(FichierOùCopier).Activate
    Sheets(Feuilles).Select
    Sheets(Feuilles).Copy After:=Workbooks(FichierOùColler).Sheets(1)
 
    Workbooks(FichierOùColler).Sheets("Feuil1").Delete 'ne marche pas
 
   Application.GetSaveAsFilename 'ne fais rien
 
End Sub

**GastonLagaffe25** · 28/07/2015, 09h49

Bonjour,,
Je pense que tu dois supprimer ton second:

Code :

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

FichierOùColler = ActiveWorkbook.Name

Et regarde ce sujet pour sauvegarder ton classeur:
http://www.developpez.net/forums/d11...egistrer-sous/

**cag's** · 28/07/2015, 10h31

Je ne peux pas pq sinon je n'ai plus le nom du classeur où je dois copier :/
Le premier contient le nom du classeur où je dois copier et le deuxième le nom du classeur où je dois coller

**GastonLagaffe25** · 28/07/2015, 12h28

Autant pour moi, tu as raison...

Vu que tu copies tes onglets dans "FichierOùColler", il doit être actif.
Si "Workbooks(FichierOùColler).Sheets("Feuil1").Delete" ne marche pas, c'est peut-être parce-que ton nom de feuille n'est pas bon...

Vu que "Sheets(Feuilles).Copy After:=Workbooks(FichierOùColler).Sheets(1)" a fonctionné, tu peux essayer de passer par l'index de la feuille:

Code :

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

Workbooks(FichierOùColler).Worksheets(1).Delete

**Igloobel** · 28/07/2015, 13h56

Bonjour,

les données permettant de créer ces graphiques (qui semblent-ils occupent chacun une feuilles) restent sur le classeur d'origine ?

cela risque de posé des problèmes a mon avis

A+

**GastonLagaffe25** · 28/07/2015, 15h53

@Igloobel: pour ma part, je me suis dit qu'elles étaient dans les onglets recopiés...Si ce n'est pas le cas, c'est clair qu'il va y avoir un problème !

**vinc_bilb** · 28/07/2015, 15h54

Bonjour,

Je reprends votre code d'origine avec quelques commentaires insérés comme 'VB Blabla

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
Sub CopierPlusieursFeuillesDunClasseurDansLautre()
 
    Dim Feuilles(1 To 4)
 
    Feuilles(1) = "Graph1"  'VB Si c'est toutes les feuilles commençant par Graph, c'est compactable
    Feuilles(2) = "Graph2"
    Feuilles(3) = "Graph3"
    Feuilles(4) = "Graph4"
 
'VB Où est le parcours des feuilles(1 -> 4)?
    FichierOùCopier = ActiveWorkbook.Name 'VB Attention, le workbook actif change après, plutot ThisWorkbook
    Application.Workbooks.Add
    FichierOùColler = ActiveWorkbook.Name
    Workbooks(FichierOùCopier).Activate
    Sheets(Feuilles).Select
    Sheets(Feuilles).Copy After:=Workbooks(FichierOùColler).Sheets(1)
 
    Workbooks(FichierOùColler).Sheets("Feuil1").Delete 'ne marche pas    'VB  .Sheets(1) ... mais ça dépend des options excel du nombre de feuilles à la création
 
   Application.GetSaveAsFilename 'ne fais rien
 
'VB Voir quelquechose comme
Do
    fName = Application.GetSaveAsFilename
Loop Until fName <> False
Workbooks(FichierOùColler).SaveAs Filename:=fName
End Sub

**cag's** · 28/07/2015, 16h02

Merci GastonLagaffe25, la suppression de la Feuil1 fonctionne bien

Par contre ça ne marche toujours pas pour l'enregistrement :/

Igloobel, voici ce que j'essaie de faire:

Dans un classeur A je créé 4 graphiques dans quatre feuilles différentes (ça marche jusque là). Cependant dans ce classeur A j'ai pleins d'autres onglets divers.. En cliquant sur un bouton, je souhaite donc exporter ces 4 graphiques dans un autre classeur B puis les supprimer ensuite de mon classeur A. Je voudrais alors qu'en cliquant sur le bouton, une fenêtre d'enregistrement apparaisse afin que l'utilisateur puisse choisir le nom et l'endroit où il souhaite conserver ce classeur B avec tous les graphiques.. Enfin voilà dans l'idée mais dans la réalisation j'ai plus de difficultés

Peut être qu'il y a plus simple comme méthode ?

**vinc_bilb** · 28/07/2015, 16h10

.... heeuuu .... et où vont être les données d'entrées des graphes à la fin? Sur le classeur A?

**GastonLagaffe25** · 28/07/2015, 23h12

Pour enregistrer, pourquoi n'utilises tu pas Application.FileDialog(xlDialogSaveAs) ?

Code :

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

1
2
3
4
 With Application.FileDialog(2) 'ou xlDialogSaveAs
        .InitialFileName = Nom
        .Show
End with

**cag's** · 29/07/2015, 09h55

Oui les données d'entrée seront sur le classeur A. Je souhaite juste pouvoir faire une sauvegarde des graphiques uniquement dans un autre classeur B. Par contre les graphiques ne sont pas modifiables après c'est vrai.. Mais ce n'est pas grave car depuis mon classeur A je peux relancer instantanément la création de graphiques à partir de mes données. Le classeur B me sert juste "d'archivage" des graphiques. Lorsque j'utilise le bout de code que j'ai mis, les graphiques se copient bien dans le classeur B en gardant leur courbes. Après je gère pas l'enregistrement.. j'ai essayé avec les codes que vous m'avez proposé mais ça ne marche pas, je vois pas bien où ça plante..

@vinc_bilb : Dans le code je ne parcours pas mes feuilles pq j'utilise l'instruction :

Code :

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

1
2
3
 
  Sheets(Feuilles).Select
    Sheets(Feuilles).Copy After:=Workbooks(FichierOùColler).Sheets(1)

Feuilles sélectionne l'ensemble des feuilles de mon tableau, enfin c'est comme ça que je le vois...

Merci pour votre aide en tout cas !!

**GastonLagaffe25** · 29/07/2015, 13h38

Méfies toi car pour moi les graphiques ne vivent pas sans données...
Si tu les copies sans données sources entre 2 classeurs, les données sources utilisées sont dans ton classeur initial ("A" il me semble).
Vérifies cela en regardant les données des graphiques classeur "B".

Tu parles de sauvegarde donc si tu veux conserver tes graphiques, il faut choisir:
- soit d'avoir des graphiques avec leurs données
- soit de les conserver comme graphiques "morts" (images, PDF...)

**vinc_bilb** · 29/07/2015, 14h46

Bonjour

Si vous avez encore

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim Feuilles(1 To 4)
 
    Feuilles(1) = "Graph1" 
    Feuilles(2) = "Graph2"
    Feuilles(3) = "Graph3"
    Feuilles(4) = "Graph4"
 
    Sheets(Feuilles).Select
    Sheets(Feuilles).Copy After:=Workbooks(FichierOùColler).Sheets(1)

=> Si ça marche, je serais vraiment surpris: une sheet est définie par son nom ou son index, et là vous avez un tableau!

et voir aussi la partie sauvegarde avec une boite de dialogue, si besoin

Code :

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

1
2
3
4
5
6
'VB Voir quelquechose comme
Do
    fName = Application.GetSaveAsFilename
Loop Until fName <> False
Workbooks(FichierOùColler).SaveAs Filename:=fName
End Sub

**GastonLagaffe25** · 29/07/2015, 17h51

Envoyé par vinc_bilb

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim Feuilles(1 To 4)
 
    Feuilles(1) = "Graph1" 
    Feuilles(2) = "Graph2"
    Feuilles(3) = "Graph3"
    Feuilles(4) = "Graph4"
 
    Sheets(Feuilles).Select
    Sheets(Feuilles).Copy After:=Workbooks(FichierOùColler).Sheets(1)

=> Si ça marche, je serais vraiment surpris: une sheet est définie par son nom ou son index, et là vous avez un tableau!

@vinc_bilb: Je te confirme: la méthode Select d'une feuille gère ce type de sélection (tu peux également utiliser Array() directement)

Code :

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

   Sheets(Array("Graph1", "Graph2", "Graph3","Graph4")).Select

**vinc_bilb** · 30/07/2015, 10h45

Merci

**cag's** · 30/07/2015, 11h47

Oui effet c'est beaucoup plus simple d'enregistrer en format image vu que mes données reste sur le classeur A !

Voilà la procédure mise en place :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'Permet d'exporter les graphiques au format jpeg
Private Sub ExportGraph_Click()
 
    Dim Graph As Chart
 
    If Not (FeuilleExiste("Graph1") Or FeuilleExiste("Graph2") Or FeuilleExiste("Graph3") Or FeuilleExiste("Graph4")) Then
 
    For Each Graph In ThisWorkbook.Charts
        Graph.Export Filename:=ThisWorkbook.Path & "\" & Graph.Name & ".jpg", FilterName:="jpg"
       ' Graph.Export Application.GetSaveAsFilename(Graph.Name, "Fichier Texte (*.jpg), *.jpg")
    Next
 
End Sub

Merci bcp pour votre aide à tous !

**GastonLagaffe25** · 30/07/2015, 11h52

Content que tu aies résolu ton problème...
Et merci d'avoir partagé la solution !

enregistrer nouveau classeur [XL-2010]

Excel

Discussions similaires

Partager

Partager