Bonjour à tous,
je chercher à modifier le code ci-dessous pour pouvoir ouvrir et fermer le fichier Arbo automatiquement pendant l'exécution du code,
parce que dans le cas actuel je suis obligé de garder le fichier Arbo ouvert pour exécuter le code que j'ai sur EOTP, si non le code affiche erreur
Merci d'avance
End Sub
je chercher à modifier le code ci-dessous pour pouvoir ouvrir et fermer le fichier Arbo automatiquement pendant l'exécution du code,
parce que dans le cas actuel je suis obligé de garder le fichier Arbo ouvert pour exécuter le code que j'ai sur EOTP, si non le code affiche erreur
Merci d'avance
VB:
Sub test()
Dim dl1 As Integer, dl2 As Integer, i As Integer
Set arbo = Workbooks("Arbo.xlsx").Sheets("Sheet1")
Set eotp = ThisWorkbook.Sheets("EOTP")
dl1 = arbo.Range("A" & Rows.Count).End(xlUp).Row
arbo.Range("B2:C" & dl1).Copy eotp.Range("A8")
With eotp
dl2 = eotp.Range("A" & Rows.Count).End(xlUp).Row
.Range("A8:B8").Interior.ColorIndex = 4 'RGB(0, 255, 0)
For i = 8 To dl2
If .Range("B" & i) = "COMPTES TRANSITOIRES" Or .Range("B" & i) = "INTRA" Or .Range("B" & i) = "EXTRA" Then
.Range("A" & i & ":B" & i).Interior.ColorIndex = 3 'RGB(0, 176, 240)
End If
If .Range("B" & i) = "COMPTE PROVISOIRE" Or .Range("B" & i) = "PRODUCTION" Or .Range("B" & i) = "AUTRES MATERIAUX" Or .Range("B" & i) = "MATOS" Or .Range("B" & i) = "ACHATS" Then
.Range("A" & i & ":B" & i).Interior.ColorIndex = 8 'RGB(255, 51, 0)
End If
Next i
End With
End Sub