Bonjour,
J'ai une macro qui va chercher des données dans un autre classeur, mais pour qu'il soit fonctionnel il faut que le 2e classeur soit ouvert.
Auriez vous une solution pour faire fonctionner ce code sans avoir besoin d'ouvrir l'autre classeur ?
Sub CongéPerso()
Windows("BDD.xlsm").Activate
ligne = 2
While Cells(ligne, 1) <> ""
If Cells(ligne, 1) = "CP" Then
title_ = Cells(ligne, 1)
start_ = Cells(ligne, 2)
end_ = Cells(ligne, 3)
Duration_ = Cells(ligne, 4)
calendar_ = Cells(ligne, 5)
Windows("DOC VIERGE DEMANDE CP PROJET.xlsm").Activate 'ouvre le doc en quest
Sheets(calendar_).Select 'selectionne la feuille correspondant au nom du salarié
lig = 11
While Cells(lig, 1) <> ""
lig = lig + 1
Wend
Cells(lig, 1) = " Du " & start_ & " Au " & end_
Cells(lig, 3) = Duration_ / 24
'Cells(lig, 1).Characters.Font.Bold = True (classeur protégé --> Erreur)
Windows("BDD.xlsm").Activate
End If
ligne = ligne + 1
Wend
End Sub