Importer des données de plusieurs classeurs

[bobjazz]

Bonjour le Forum,

Je voudrais importer des données de 3 classeurs, les feuilles sont identiques, dans un classeur destinataires.

Dans un premier temps, vider la feuille du destinataire et j’avoue que je ne sais pas comment faire pour que les données s'ajoutent les unes à la suite et non remplacées.

J’utilisais ce code pour importer 1 feuille, mais là je coince.
Code :
Sub test()
Dim classeurSource As Workbook, classeurDestination As Workbook
Set classeurSource = Application.Workbooks.Open("C:\source.xls", , True)
Set classeurDestination = ThisWorkbook
classeurSource.Sheets("Feuil1").Cells.Copy classeurDestination.Sheets("Feuil1").Range("A1")
classeurSource.Close False
End Sub

Merci d’avance

Bobjazz

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

dur voilà le code que j'ai mis dans la feuille concernée

Private Sub Worksheet_Activate()
feuille.Protect Password = "nevez"
ActiveWorkbook.RefreshAll
feuille.Unprotect Password = "nevez"
End Sub

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

comme cela, je pense que je commence à fatiguer LOL

Private Sub Worksheet_Activate()
Feuil2.Unprotect Password = "nevez"
ActiveWorkbook.RefreshAll
Feuil2.Protect Password = "nevez"
End Sub

 

[jpb388]

Re : Importer des données de plusieurs classeurs

re
exemple

Private Sub Worksheet_Activate()
activesheet.unprotect password="toto"
ActiveWorkbook.RefreshAll
activesheet.protect password="toto"
End Sub

le password n'est pas obligatoire

oui ta solution est bonne

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

Re

En cherchant j'ai intégré ce code et magique cela fonction

Private Sub Worksheet_Activate()
Sheets("TCB").Unprotect Password:="nevez"
ActiveWorkbook.RefreshAll
Sheets("TCB").Protect Password:="nevez"
End Sub

en tout cas Merci
et lors de mon prochain passage dans le Sud je te laisse un message privé.
J'aime bien voir et échanger avec les personnes en live.

Kenavo

 

[jpb388]

Re : Importer des données de plusieurs classeurs

c'est d'accord
a+