Bonjour la communauté, voilà le problème du jour.
Dans ce code, les variables se définissent bien, les valeurs contenues sont correctes, les réfèrences aux cellules aussi mais rien ne s'écrit dans notre fichier BDL_v2.xls alors qu'il trouve bien toutes les informations et que je n'ai aucune erreur de compilation.
Tout fonctionne sauf que les lignes en rouge ne font pas la copie de la valeur trouvée dans BDL_v2.xls
Auriez-vous une idée à proposer...
Merci d'avance.
PS : solution trouvée à l'offset plus loin... désolé du dérangement !!!
Dans ce code, les variables se définissent bien, les valeurs contenues sont correctes, les réfèrences aux cellules aussi mais rien ne s'écrit dans notre fichier BDL_v2.xls alors qu'il trouve bien toutes les informations et que je n'ai aucune erreur de compilation.
Code:
Sub Upload_BDL()
'
' nom Upload BDL
' Macro enregistrée le 13/12/08 par Allan
'
Dim der_ligne As Integer
Dim chemin As String
Dim nom_fichier As String
Dim bdl As Object
'Dim bdl As String
Dim Plage_ILN_USF As Range
Dim Range_ILN_USF As Range
Dim Range_BDL_volume_ILN As Range
Dim vol_ILN As Range
chemin = "G:\BDL\"
nom_fichier = "BDL_v2.xls"
Set bdl = CreateObject(class:="excel.application")
bdl.Visible = True 'à modifier
'bdl.interactive = true 'pas nécessaire de l'écrire qd true
Set bdl = Workbooks.Open(chemin & nom_fichier)
der_ligne = Sheets("Amont_ILN").Cells(65536, 1).End(xlUp).Row + 1 'définition de la ligne où on va écrire des données
Windows("Userform_BDL_v7.xls").Activate
Sheets("Synthèse").Select
Set Plage_ILN_USF = Range(Cells(16, 2), Cells(16, Cells(17, 256).End(xlToLeft).Column))
For Each Range_ILN_USF In Plage_ILN_USF
If Range_ILN_USF <> "" Then 'rajouter le else au cas où l'ILN ne serait pas dans la base de données
'Call Envoyer_Identification 'remplissage automatique des identifiants projet
'============================ Recherche des données Volumes et Coûts =============================
Windows(nom_fichier).Activate
Sheets("Volume_ILN").Select
Set Range_BDL_volume_ILN = Range(Cells(1, 1), Cells(1, Cells(1, 256).End(xlToLeft).Column))
Set vol_ILN = Range_BDL_volume_ILN.Find(What:=Range_ILN_USF.Value, LookIn:=xlValues, lookat:=xlPart) 'recherche de l'ILN de la synthèse dans l'onglet "Volume_ILN"
[COLOR="Red"]vol_ILN.Offset(der_ligne, vol_ILN.Column).Value = Range_ILN_USF.Offset(2, 0).Value 'volume T&C
vol_ILN.Offset(der_ligne, vol_ILN.Column + 1).Value = Range_ILN_USF.Offset(2, 1).Value 'volume BIW
vol_ILN.Offset(der_ligne, vol_ILN.Column + 2).Value = Range_ILN_USF.Offset(22, 0).Value 'cout €/m3 TC
vol_ILN.Offset(der_ligne, vol_ILN.Column + 3).Value = Range_ILN_USF.Offset(22, 1).Value 'cout €/m3 BIW
vol_ILN.Offset(der_ligne, vol_ILN.Column + 4).Value = Range_ILN_USF.Offset(23, 0).Value 'cout €/veh TC
vol_ILN.Offset(der_ligne, vol_ILN.Column + 5).Value = Range_ILN_USF.Offset(23, 1).Value 'cout €/veh BIW
vol_ILN.Offset(der_ligne, vol_ILN.Column + 6).Value = Range_ILN_USF.Offset(24, 1).Value[/COLOR] 'cout total ILN
End If
Next
End Sub
Tout fonctionne sauf que les lignes en rouge ne font pas la copie de la valeur trouvée dans BDL_v2.xls
Auriez-vous une idée à proposer...
Merci d'avance.
PS : solution trouvée à l'offset plus loin... désolé du dérangement !!!
Dernière édition: