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) :
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
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
Cette ligne la :
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..)
Code : Sélectionner tout - Visualiser dans une fenêtre à part 'objWorkbookCible.Name = objworkbooksource.Name & "_" &
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
Partager