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 besoinBonne journée a tous.
Partager