J'ai essayé d'appliquer ton code sur le classeur "main courante" que j'ouvre, petit problème, le classeur "main courante" s'ouvre bien, mais les données se renseignent toujours dans le classeur "test".....
J'avoue ne pas du tout comprendre pourquoi??
Dim iRow As Integer, num As Integer, _
dossier As String
dossier = ComboBox1 & "_" & ComboBox2 & "_" & TextBox1 & "_" & ComboBox3
Workbooks.Open Filename:=ThisWorkbook.Path & "\main courante.xls"
For Each W In Workbooks
If W.Name = "main courante.xls" Then
With Workbooks("main courante.xls").Sheets("2014")
iRow = Range("A" & Rows.Count).End(xlUp).Row + 1
num = Application.CountIf(Range("A:A"), "=*" & dossier & "*")
If num = 0 Then
Me.TextBox2 = dossier
Else
Me.TextBox2 = dossier & Format(num, "00")
End If
Cells(iRow, 1) = Me.TextBox2
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
MsgBox "Main courante renseignée"
End
End If
Next W
MsgBox "Vous devez ouvrir votre classeur ''main courante'' !", 16
End Sub