COPIE QUI NE S'AFFICHE PAS

[br44]

bonsoir le forum

je solicite encore une fois pour un petit problème de copie qui ne s'affiche pas .

dans la procédure qui suit mon souci se siturais au niveau de la varible erLingne=Range('A65536').End(xlUp).Offset(1,0)
la première copie fonctionne au niveau du program ,mais à la final je n'ais que le résultat de la deuxième copie qui s'affiche ,or je voudrais voir les deux copies à l'écran l'une en dessous de l'autres. Si quelqu'un a une solution je lui serais reconaissant .

voici le procédure:

Private Sub CommandButton2_Click()
Dim CHEMIN1 As String
Dim CHEMIN2 As String
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim F As String
Dim G As String
Dim DerLigne As Range

F=ActiveSheet.Range('C3').value
CHEMIN1='c:\\ mon chemin\\'
Set Wb1= Workbooks.Open(CHEMIN1 & 'ARCHIVES.XLS')
Worbooks('classeur à sauvegarder').Sheets('retour').Cells.Copy Destination:=Workbooks('ARCHIVES.XLS').Sheets(F).Cells

Worbooks('ARCHIVES.XLS').Save
Workbooks('ARCHIVES.XLS').Close

Set DerLigne=Range('A65536').End(xlUp).Offset(1,0)

G=ActiveSheet.Range('C3').value
CHEMIN2='C:\\mon chemin\\'
Set Wb2=Workbooks.Open(CHEMIN2 & 'ARCHIVES.XLS')
Worbooks('classeur à sauvegarder').Sheets('distribution').Cells.Copy Destination:=Workbooks('ARCHIVES.XLS').Sheets(G).Cells

Workbooks('ARCHIVES.XLS').save
End Sub

Je vous remercie par avance de toutes les solutions qui me qui me seront transimisent et vous dit donc A PLUS sur le forum

Bonne récéption BR44

 

[bebere]

bonsoir Br44
je n'ai pas testé
fais le si ça ne va pas mets des commentaires

Private Sub CommandButton2_Click()
Dim CHEMIN1 As String
Dim CHEMIN2 As String
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim F As String
Dim G As String
Dim DerLigne As Range

CHEMIN1 = 'C:\\mon\\chemin'
CHEMIN2 = 'C:mon chemin'

Set Wb1 = Workbooks.Open(CHEMIN1 & 'ARCHIVES.XLS')
Set Wb2 = Worbooks('classeur à sauvegarder')
Set Ws2 = Wb2.Sheets('retour')
'supposer que activesheet=Sheets('retour')d'ou ws2
F = Ws2.Range('C3').Value
Ws2.Copy Destination:=Wb1.Sheets(F)
Wb1.Close SaveChanges:=True
'quel sheet
Set DerLigne = Range('A65536').End(xlUp).Offset(1, 0)
'quel sheet
G = ActiveSheet.Range('C3').Value
Set Wb1 = Workbooks.Open(CHEMIN2 & 'ARCHIVES.XLS')
Wb2.Sheets('distribution').Copy Destination:=Wb1.Sheets(G)
Wb1.Save
End Sub

à bientôt

 

[br44]

re: bonsoir le forum ,bonsoir Bebere

tout d'abor un grand merci pour être intérésseé à mon problème.

en se qui conserne t'as procé dure je viens de la tester elle est intéressante mais elle contient une petite erreure

Au niveau des deux lignes suivantes :
Ws2.copy destination:=Wb1.Sheet (F) et
Ws2.Sheets('distribution').Copy destination:=Wb1.sheets(G)
il faut remplacer DESTINATION par BEFORE OU AFTER.

Cette procédure me revoie bien les deux copies, mais pas à l'endroit voulues.Elles se retrouvent en plus dans le classeur ARCHIVES.XLS

Or je voudrais qu'elles soients l'une sous l'autres dans la feuille('Janvier,Février ou Mars') du classeur (ARCHIVES).

exemple :

copie1 puis
copie2
j'ai pensé peut-être à une autres idée à creuser ,faire une boucle sur le mon nombres d'entrées (environ 200 pour chaques feuilles)
mais étant débutant en vba je vois pas trop comment créer cette procédure .

voici un exemple de mon idée:

copie2 sous copie1 puis copier le tout dans le classeur archives le tout sur 200 refs différantes .

pour ma part vais continuer à creuser dans se sens . De nouveau je te remercie et te dis à plus sur le forum . br44

ps : si quelqu'un d'autre à des idées à me soumettre n'hésiter pas ,un grand merci par avance à plus
BR44