Simplification code
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 SubBonjour,
Ta question mériterait d'être un peu plus clair ...
Car tu as deux pistes possibles :
- Soit ta nouvelle macro se charge d'ouvrir pour toi le fichier ...
- Soit ta nouvelle macro travaillera avec ton fichier sans l'ouvrir ...
Oui, c'est vrai j'aurais dû le préciser.
J'aimerais que la macro exécute la tâche sans l'ouvrir.
Re,
Pour travailler sur un classeur fermé ... tu vas quitter le terrain de la simplification ... pour aller vers la refonte ...
Je ne connais pas ton degré de familairité avec Excel ... mais ...
La solution la plus simple pour travailler avec un classeur fermé ... c'est ADO ...
Ci-dessous un lien qui explique tout ADO .... avec une très très grande clarté ...
http://boisgontierjacques.free.fr/pages_site/ado.htm
Bon Courage
je te remercie.
je vais jeter un coup d'œil.