Sub B_Transfert_De_Devis()
'
Dim Entree As Workbook
Dim Sortie As Workbook
Dim Nomfichierentree
Dim NomFichierSortie
'
Set Entree = ActiveWorkbook
' pour essai futur
'''Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xls), *.xsl")
'
If NomFichierSortie <> False Then
'
Set Sortie = Workbooks.Open("G:\Travail\Bms\Projets\Liste des numero de devis\Montage projet\2.Facturation\02 410 15.xls")
'Transfert
'Voir pour remplacer la ligne d'entre par la ligne 10 par celle pointée en index
'Voir pour remplacer la ligne en sortie par la premiere ligne libre entre la ligne 1 et 26.
Sortie.Sheets("Liste").Cells(20, 1) = Entree.Sheets("Liste Devis").Cells(10, 2)
Sortie.Sheets("Liste").Cells(20, 2) = Entree.Worksheets("Liste Devis").Cells(10, 3)
Sortie.Sheets("Liste").Cells(20, 3) = Entree.Worksheets("Liste Devis").Cells(10, 4)
'
Sortie.Close
'
' On ferme le second
Entree.Close
End If
End Sub