Bonjour Fernandez, le Forum
Je ne suis pas certain d'avoir bien suivi ton déroulement car dans le context de ton codfe ces deux lignes ne servent à rien :
Dim CheminDatabase As String
CheminDatabase = ThisWorkbook.Path & 'Database.xls'
Puisque dans les deux cas tu fais ensuite référence à :
Set WBSource = ThisWorkbook
Set WBCible = ThisWorkbook
Donc pour l'instant
ce code ne peut fonctionner que dans le classeur où il se trouve
Ceci fera probablement l'objet d'une autre mise au point de code.
Pour le reste de ta question essaie tout simplement ceci dans un classeur comportant deux feuilles : 'Matrice' et 'BaseAdresse', la Feuille 'Matrice' contenant des données en 'F16:G20' comme ceci :
ZAZA1 TOTO1
ZAZA2 TOTO2
ZAZA3 TOTO3
ZAZA4 TOTO4
ZAZA5 TOTO5
Si tu fais tourner un code comme celui-ci :
Sub AdresseCopyDataToDatabase()
Dim WBSource As Workbook, WSSource As Worksheet
Dim WBCible As Workbook, WSCible As Worksheet
Dim RSource As Range, RCible As Range
Set WBSource = ThisWorkbook
Set WSSource = WBSource.Sheets('Matrice')
Set RSource = WSSource.Range('F16:G20')
Set WBCible = ThisWorkbook
Set WSCible = WBCible.Sheets('BaseAdresse')
Set RCible = WSCible.Range('A65536').End(xlUp)(2)
RCible.Resize(2, 5) = Application.Transpose(RSource)
End Sub
Dans la Feuille 'BaseAdresse', tu auras a partir de la dernière cellule vide de la Colonne 'A' à la Colonne 'E' ceci :
ZAZA1 ZAZA2 ZAZA3 ZAZA4 ZAZA5
TOTO1 TOTO2 TOTO3 TOTO4 TOTO5
Est-ce donc ceci que tu souhaites....
Bon Aprèm
[ol]@+Thierry[/ol]