Bonjour,

J'ai aujourd'hui un problème avec un fichier mais je ne réussie pas à trouver d'ou vient le problème. Avez-vous une idée ? Le code est celui ci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim lig As Double
Dim col As Double

For Each cell In Workbooks("Fichier1.xls").Sheets("Statistiques").Range("C2:DO1465")
If cell.Value <> "" Then
lig = cell.Row
col = cell.Column
Workbooks("Fichier Commun.xls").Sheets("Statistiques").Cells(lig, col).Value = Workbooks("Fichier Commun.xls").Sheets("Statistiques").Cells(lig, col).Value + Workbooks("Fichier1.xls").Sheets("Statistiques").Cells(lig, col).Value
End If
Next cell

La ligne surligné est celle en gras et l'erreur est une incompatibilité de type (erreur13).

Merci à tous ceux qui pourront m'aider car j'en ai vraiment besoin Bonne journée a tous.