Discussion :

[Frululu]

Bonjour à tous,

Je suis à la recherche d'un morceau de code qui me permettrait d'envoyer des onglets portant des nom variables (mais dont l'index ne change pas) vers un nouveau classeur que je génère juste avant et que je choisi d'enregistrer qu'à la fin de ma procédure.
Voici pour le moment ce que j'ai pu écrire mais cela ne fonctionne 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
Sub enregistrezsous2()
 
Dim Outilstats As ThisWorkbook 'j'enregistre dans ma macro que mon classeur de travail est celui ci
Dim Nomfichier As String
Nomfichier = Sheets("Accueil").Range("Z6").Value 'recupere la valeur d'une cellule de mon classeur de travail
Workbooks.Add 'je crée un nouveau classeur qui va recevoir les onglets de mon classeur de travail
If ThisWorkbook.Name Like "Classeur*" Then
 
Workbooks(Outilstats).Sheets(3).Copy before:=Workbooks("classeur*").Sheets(1)
Workbooks(Outilstats).Sheets(4).Copy before:=Workbooks("classeur*").Sheets(2)
Application.Dialogs(xlDialogSaveAs).Show arg1:="c:\" & Nomfichier
End If
 
End Sub

Si vous avez une solution je suis preneur, Merci !!

François

[parmi]

Plutôt quelque chose comme ceci (sans tester...) ?

Code :

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

1
2
3
4
5
6
7
8
9
Dim Outilstats As Workbook 
Dim Classeur As Workbook 
 
Set Outilstats = ThisWorkbook
 
Workbooks.Add 
Set Classeur = ActiveWorkbook
Outilstats.Sheets(3).Copy before:=Classeur.Sheets(1)
...

[Frululu]

Merci beaucoup pour ton aide parmi,

La macro fonctionne (pas d'erreurs), Mais Excel crée deux nouveaux classeurs, et ne déplace pas les feuilles du classeur de travail. Bizarrement lorsque j'essaye avec d'autres feuilles que la 3 et la 4 cela fonctionne ... tu aurais une idée ?

Je mets mon fichier en pièce jointe pour que ce soit plus facile à visualiser
(sub enregistrezsous module SaveAs)

François

[parmi]

Je t'ai induit un peu en erreur avec mes Workbooks... désolé...

Voici un bout de code un peu plus simple et plus court

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub enregistrezsous()
    Dim Nomfichier As String
 
    Nomfichier = Sheets("Accueil").Range("Z6").Value
 
    'Cette ligne va créer le nouveau fichier qui devient ActiveWorkbook
    'en même temps qu'elle copie les 2 onglets mentionnés
    Sheets(Array("Données du 23-10-2013", "TCD 23-10-2013")).Copy
 
    ActiveWorkbook.SaveAs "c:\" & Nomfichier
    ActiveWorkbook.Close False
 
End Sub

[Frululu]

Merci beaucoup de ta réponse parmi,

Le code marche impeccable, j'ai juste changé les nom des feuilles dans le code par deux variables déclarées en fonction de la valeur de cellule pour qu'à chaque fois que le nom de des feuilles copiées change cela soit pris en compte !

Super, merci pour ton aide précieuse !!

François