Bonjour,

Je copie des valeurs d'une cellule excel d'un fichier vers un autre fichier.
Mais quand la valeur source est vide je souhaiterai qu'elle écrive le chiffre 0 dans la cellule cible.

J'ai tenté un if mais cela ne fonctionne pas, la valeur est toujours à blanc

Je fais la lecture de mes cellules
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
objExcel.Application.Visible = False 
	Lect1 = objExcel.Worksheets(1).Cells(38,5).Value 
	Lect2 = objExcel.Worksheets(1).Cells(17,5).Value 
	Lect3 = objExcel.Worksheets(1).Cells(18,5).Value 
	Lect4 = objExcel.Worksheets(1).Cells(19,5).Value
Et je tente de lui dire que si le contenu est vide, il faut qu'il devienne "0" avant l'écriture mais ça ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
If Lect1=" " Then 
Lect1="0"
End If
Si quelqu'un à une solution, il aura ma plus grande estime