Discussion :

[timmal]

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 :

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
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

[SfJ5Rpw8]

bonjour,


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

Code :

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

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

[timmal]

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.

[Invité]

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
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

[timmal]

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 !

[Invité]

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