Bonjour
J'ai récupéré et modifié un morceau de programme pour pouvoir copier les cases d'une ligne dans une feuille active dans le fichier G:\Travail\Bms\Projets\Liste des numero de devis\Montage projet\2.Facturation\02 410 15.xls .
Mais j'ai le messag 'incompabilité de type'.
quelqu'un à t'il une idée sur l'origine du probleme ?
Merci par avance
Jean-Luc
J'ai récupéré et modifié un morceau de programme pour pouvoir copier les cases d'une ligne dans une feuille active dans le fichier G:\Travail\Bms\Projets\Liste des numero de devis\Montage projet\2.Facturation\02 410 15.xls .
Mais j'ai le messag 'incompabilité de type'.
quelqu'un à t'il une idée sur l'origine du probleme ?
Merci par avance
Jean-Luc
HTML:
Sub B_Transfert_De_Devis()
'
Dim Entree As Workbook
Dim Sortie As Workbook
Dim Nomfichierentree
Dim NomFichierSortie
'Chemin du classeur et f
Nomfichierentree = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
' On verifie que l'on a selectionné un nom de classeur
If Nomfichierentree <> False Then
NomFichierSortie = "G:\Travail\Bms\Projets\Liste des numero de devis\Montage projet\2.Facturation\02 410 15.xls"
If NomFichierSortie <> False Then
Set Sortie = Workbooks.Open(NomFichierSortie)
Sortie.Worksheets("Feuil1").Range(20, 1) = Nomfichierentree("Liste Devis").Range(10, 1)
' On ferme le classeur
Sortie.Close
End If
' On ferme le second
Entree.Close
End If
End Sub