Copier un range dans un autre classeur

Bonjour à tous.

Voilà maintenant de nombreuses heures que je bute sur un problème que je n'arrive pas à surmonter.

J'ai un classeur avec deux feuilles, nommées "Base" et "Classlist".
Sur la feuille "Base", il y a un bouton avec du code VBA, et je cherche grâce à ce bouton à sélectionner une plage de cellules dans "Classlist" et à aller la coller dans un autre classeur que je crée entre temps.

Voici le code utilisé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub GenerateCorr()   Dim myRange As Range   '--------------------------------------------------------------- nomFichier = Feuil1.Range("D6").Value DateExam = Feuil1.Range("D8").Value   With Sheets("Classlist") Set myRange = Range(Cells(2, 2), Cells(14, 4)) End With   Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:\Outprint\" & nomFichier & " - " & DateExam & ".xlsm", FileFormat:=52   Application.DisplayAlerts = False Worksheets("Feuil1").Name = nomFichier Worksheets("Feuil2").Delete Worksheets("Feuil3").Delete Application.DisplayAlerts = True   Range(Cells(12, 16), Cells(25, 18)).Value = myRange   End Sub

---

Il n'y a pas de message d'erreur, mais mon range de cellules ne s'affiche pas dans le nouveau classeur.
Pour info, mon nouveau classeur se crée correctement, avec le bon nom, le bon nom de feuille, etc...

Merci d'avance pour votre coup de main !

Cordialement

Timmal

bonjour,


déjà revoir l'utilisation de With ..

Code:

---

1 2 3

With Sheets("Classlist") Set myRange = .Range(.Cells(2, 2), .Cells(14, 4)) End With

---

il manque les points "." définissant ou utilisé l'objet instancié par le with

Bonjour Bbil,

Tout d'abord, merci de votre réponse.

Je l'avais déjà essayé, je l'ai réessayé à l'instant et malheureusement, le résultat est toujours le même.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub GenerateCorr()   Dim myRange As Range Dim wb As Workbook '--------------------------------------------------------------- nomFichier = Feuil1.Range("D6").Value DateExam = Feuil1.Range("D8").Value With Sheets("Classlist") Set myRange = .Range(.Cells(2, 2), .Cells(14, 4)) End With Set wb = Workbooks.Add Application.DisplayAlerts = False myRange.Copy wb.Worksheets("Feuil1").Cells(12, 16).PasteSpecial Paste:=xlPasteValues wb.Worksheets("Feuil2").Delete wb.Worksheets("Feuil3").Delete Worksheets("Feuil1").Name = nomFichier Application.DisplayAlerts = True wb.SaveAs Filename:="C:\Outprint\" & nomFichier & " - " & DateExam & ".xlsm", FileFormat:=52     End Sub

---

Bonjour rdurupt,

Nous avons déjà fait un pas en avant dans la résolution, et rien que pour ça, je vous remercie :)

En revanche, il se passe quelque chose que je ne comprends pas.

Après avoir cliqué sur le bouton, je vois apparaitre une classeur "temporaire" avec mon range qui y est collé...
Mais ce n'est que par la suite que s'ouvre le nouveau classeur. Et les valeurs du range n'y sont pas en revanche dans celui-ci.

Ca fait en quelque sorte comme un pop-up, je vois apparaitre les valeurs dans un classeur, et une fraction de secondes après, un nouveau classeur s'ouvre, celui que l'on a généré.

Merci de votre aide !

je ne voie pas dans ton code que j'ai repris l'ouverture d'un deuxième classeur????