Discussion :

[Aper03]

Bonjour je suis actuellement en stage je dois faire du VBA et j'ai commencé le travail masi je n'arriver pas a exporter ma recherche sur une nouvelle instance excel.

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
25
26
27
28
29
30
31
Private Sub CommandButton1_Click()
 If DTPDate2.Caption > Label1.Caption Then
MsgBox "Veuillez selectionner une période valide.", vbExclamation, "Saisie Incorrecte"
   Exit Sub
End If
 
 
 
Dim nWkbk As New Workbook
Set nWkbk = Workbooks.Add
 
ActiveWorkbook.Sheets("Relevés").Cells("A1:A115").Copy , nWkbk.Sheets("Relevés")
nWkbk.SaveAs Filename = "T:\APE\VBA"
 
 
'Worksheets("Relevés").Select
'Range("A1:A115").Copy
 
Unload UserForm1
 
 
'  Dim nl As Long, nc As Integer
 ' With Me.lstWithAddItem
  ' nl = .ListCount   ' Nbre de lignes
   'nc = .ColumnCount ' Nbre de colonnes
'  End With
 ' With shtExport
  '.Cells.Clear ' Efface les cellules de la feuille
'  .Range(.Cells(1, 1), .Cells(nl, nc)) = Me.lstWithAddItem.List
 ' End With
End Sub

j’ai pour le moment utilisé ce code et je voudrais le résultat de la fenêtre suivante apparaisse sur un autre classeur excel


Merci d'avance

[78chris]

Bonjour

Copie l'onglet pas une plage vers un onglet qui n'existe pas dans nWkbk

[Aper03]

Bonjour j'ai réussie à faire un code qui permet de copier tout le Temp la première ligne ce qui est bien mais il faudrait un code qui permet de copier les lignes x1115 si la valeurs de la premières est égal à la valeurs que j'aurais sélectionner dans la liste déroulante "moule".

Voici mon code:

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
Private Sub CommandButton1_Click()
 If DTPDate2.Caption > Label1.Caption Then
MsgBox "Veuillez selectionner une période valide.", vbExclamation, "Saisie Incorrecte"
   Exit Sub
End If
 
 
Worksheets("relevés").Range("A1:A115").Copy
'if Moule.Value
 
Workbooks.Add
[A1].Select
ActiveSheet.Paste
 
 
Unload UserForm1

Merci d'avance