F
FERNANDEZ67
Guest
Bonjour,
j'ai le code suivant, et j'aimerai y intégrer le collage spéciale 'transpose' afin de pouvoir filtrer la base ultérieurement :
Sub AdresseCopyDataToDatabase()
Dim WBSource As Workbook, WSSource As Worksheet
Dim WBCible As Workbook, WSCible As Worksheet
Dim RSource As Range, RCible As Range
Dim CheminDatabase As String
CheminDatabase = ThisWorkbook.Path & '\\Database.xls'
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)
RSource.Copy RCible
End Sub
Etant une huître en VB, poiurriez vous m'aider à intégrer cette ligne dans le code...
D'avance merci pour votre précieuse aide qui me permet d'apprendre VB sur tas...
j'ai le code suivant, et j'aimerai y intégrer le collage spéciale 'transpose' afin de pouvoir filtrer la base ultérieurement :
Code:
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Dim WBSource As Workbook, WSSource As Worksheet
Dim WBCible As Workbook, WSCible As Worksheet
Dim RSource As Range, RCible As Range
Dim CheminDatabase As String
CheminDatabase = ThisWorkbook.Path & '\\Database.xls'
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)
RSource.Copy RCible
End Sub
Etant une huître en VB, poiurriez vous m'aider à intégrer cette ligne dans le code...
D'avance merci pour votre précieuse aide qui me permet d'apprendre VB sur tas...