Discussion :

[illight]

Bonjour,

Je voudrais copier une feuille de mon classeur existant dans un classeur que je vais créer. De plus, je voudrais que ce nouveau classeur est pour nom le nom de l'ancien classeur, "_", et le nom de la feuille que je copie..vous suivez jusque la ?
Il faut aussi savoir que l'ancien classeur a plusieurs feuilles (60) et que donc cette fonction je vais "l'automatiser" pour pouvoir le faire pour toutes les feuilles...(d'ailleurs faudra tetre que je l'automatise aussi pour les classeurs vu qu'il y en a 3 ou 4 enfin ça je verrai plus tard pas ça le plus important bref...)
J'ai donc créé cette fonction pour débuter pour voir ce que ça donnait (après il suffira juste de rajouter une boucle) :

Code :

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

1
2
3
4
5
6
7
8
9
Sub macro()
Dim objWorkbookCible As Workbook
Dim objworkbooksource As Workbook
Set objworkbooksource = ActiveWorkbook
Set objWorkbookCible = Application.Workbooks.Add
'objWorkbookCible.Name = objworkbooksource.Name & "_" & objworkbooksource.Worksheets(1).Name
Worksheets(1).Copy after:=Workbooks(objWorkbookCible.Name).Worksheets("Feuil1")
 
End Sub

Quand je fais cette macro, il me créé bien un nouveau classeur, mais il ne copie pas les données de ma feuille dans le nouveau classeur et il créé une nouvelle feuille nommée "Feuil1 (2)" vide

Cette ligne la :

Code :

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

'objWorkbookCible.Name = objworkbooksource.Name & "_" &

je l'ai mise en commentaire parce qu'il me disait que cette opération n'était pas possible parce que le classeur était en lecture seule (un truc comme ça..)
J'ai essayé de changé après mais ça a pas marché non plus

Quelqu'un aurait-il une solution ?

Je vous remercie par avance de toute l'aide que vous m'apporterez

[SfJ5Rpw8]

tiens en modifiant un peu ton code ...:

Code :

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

1
2
3
4
5
6
7
8
Sub macro()
 Dim objWorkbookCible As Workbook
 Dim objworkbooksource As Workbook
  Set objworkbooksource = ActiveWorkbook
  Worksheets(1).Copy
  Set objWorkbookCible = ActiveWorkbook
  ActiveWorkbook.SaveAs objworkbooksource.Name & "_" & objworkbooksource.Worksheets(1).Name
End Sub

[ouskel'n'or]

J'avais ça dans un coin

Code :

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

1
2
3
4
5
6
7
8
Sub CopierUneFeuilleDunClasseurDansLautre()
    FichierOùCopier = ActiveWorkbook.Name
    Application.Workbooks.Add
    FichierOùColler = ActiveWorkbook.Name
    Workbooks(FichierOùCopier).Activate
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy After:=Workbooks(FichierOùColler).Sheets(2)
End Sub

... et j'arrive après la bagarre...

A+

[illight]

merci c'est nickel

Hop la résolvélu

[NinNin25]

Hello,

Je sais que ça date, mais j'ai une solution qui tient en 1 ligne si jamais :

Code :

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

Workbooks("tonFichierDeBase").Sheets("LafeuilleQueTuVeuxCopierDansUnNouveauClasseur").Copy

Quand je fais ça, ça me génère un nouveau classeur "Classeur1.xlsx" avec une copie de la feuille et qui garde le même nom.
Tu n'as plus qu'à enregistrer ton fichier sous un nouveau nom.

Voilà

[Merkes]

Salut, toujours dans le même sujet, j'aimerai que le nouveau classeur crée prenne automatiquement le nom de la feuille copiée.

Merci de m'aider svp !

[Philippe Tulliez]

Bonjour,
Cette discussion étant très ancienne et de plus résolue, il eut été préférable d'en créer une nouvelle quitte a faire référence à celle-ci

Etant donné que la feuille copiée dans le nouveau classeur est la feuille active, pour récupérer son nom c'est simplement ActiveSheet.Name

Autre solution à adapter car un message va s'afficher

Code :

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

1
2
3
4
5
6
7
Sub t()
  Dim sht As Worksheet
  Set sht = ThisWorkbook.Worksheets("A traiter")
  sht.Copy
  ActiveWorkbook.SaveAs Filename:=sht.Name
  Set sht = Nothing
End Sub