Discussion :

[persjussysylvain]

Bonjour,

J'ai tenté plein de solutions et recherché sur le forum mais je n'arrive pas à régler ce problème.

J'ai une formule qui me permet de rechercher les salariés qui sont présent le matin "m" et le soir "s".
Les informations recherchées sont dans un autre fichier [Salaries2018.xlsx] et dans différents classeurs : ici Septembre

=SI(OU(RECHERCHEV(C$3;[Salaries2018.xlsx]Septembre!$FI$3:$FS$37;3)="m";RECHERCHEV(C$3;[Salaries2018.xlsx]Septembre!$FI$3:$FS$37;3)="ms");1;"")

Je voudrais remplacer septembre par la valeur qui se trouve dans la cellule A1
ce qui me permettrait de rechercher les informations dans le bon classeur selon la date voulue

Par exemple si dans la cellule A1 du fichier actif on trouve "Novembre" je voudrais que la formule devienne :
=SI(OU(RECHERCHEV(C$3;[Salaries2018.xlsx]Novembre!$FI$3:$FS$37;3)="m";RECHERCHEV(C$3;[Salaries2018.xlsx]Novembre!$FI$3:$FS$37;3)="ms");1;"")

J'ai essayé plusieurs solutions dont :
=SI(OU(RECHERCHEV(C$3;[Salaries2018.xlsx]&A1&!$FI$3:$FS$37;3)="m";RECHERCHEV(C$3;[Salaries2018.xlsx]&A1&!$FI$3:$FS$37;3)="ms");1;"")
mais cela ne fonctionne pas

Pourriez vous svp m'aider à régler ce problème ?

Je vous remercie beaucoup

Cordialement

[catapoulpe]

Bonjour

La fonction INDIRECT devrait répondre simplement à ton besoin. Je te laisse la découvrir dans l'aide Excel, puis si tu n'arrives pas à poursuivre seul, reviens poser tes questions

[78chris]

Bonjour

La fonction INDIRECT ne fonctionne que soi le fichier externe est ouvert...

Peux-tu préciser ta version pour voir quelles pistes sont possibles.

[persjussysylvain]

Bonjour,

Merci de votre réponse, j'ai résolu mon problème.
Voici ma formule

=SI(OU(RECHERCHEV(C$3;INDIRECT("[Salaries2018.xlsx]"& C80 & "!$FI$3:$FS$37");3)="m";RECHERCHEV(C$3;INDIRECT("[Salaries2018.xlsx]"& C80 & "!$FI$3:$FS$37");3)="ms");1;0)

Le fichier Salariés2018 appartient à une collègue
J'ai ajouté un code vba a la fermeture de son fichier qui crée une copie de son fichier

J'ai inséré à l'ouverture de mon fichier un code vba qui ouvre sa copie, mets à jour les données et referme sa copie.

Private Sub Workbook_Open()
With ThisWorkbook
Workbooks.Open ("Q:\Commun\Salaries2018.xlsx")
Set WbkS = ActiveWorkbook
ActiveWorkbook.RefreshAll
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
WbkS.Close False
End With
End Sub

Merci de votre aide

J'attends votre réponse si vous avez des remarque à faire avant de noter cette discussion résolu

Cordialement



Je vous remercie de votre aide

Cordialement

[persjussysylvain]

Bonsoir,

Je viens de relancer mon fichier et je remarque que la fonction indirect ne marche pas si le fichier salaries2018 n'est pas ouvert donc je dois modifier le code vba pour qu'il ne ferme pas le fichier salaries2018.
Ce qui risque de poser problème si ma collègue ferme son fichier en même temps que j'utilise le mien : Salaries208 sera écrasé lors de la fermeture de son fichier ou ce sera impossible de l'écraser.
Je réféchi donc à une solution pour régler ce problème

Serait-il possible d'effacer la dernière ligne de ce code : WbkS.Close False
et le remplacer par un code qui renomme le fichier en Salaries2018Temp.xlsx et le laisser ouvert (et le masquer si possible)
ce qui me permettrait de récupérer les données avec la fonction INDIRECT sans avoir de problème si ma collègue ferme son fichier entre temps

Private Sub Workbook_Open()

With ThisWorkbook
Workbooks.Open ("Q:\Commun\Salaries2018.xlsx")
Set WbkS = ActiveWorkbook
ActiveWorkbook.RefreshAll
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
WbkS.Close False
End With
End Sub

J'ai essayé
With ThisWorkbook
Dim Fichier As String
Fichier = "Salaries2018Temp.xlsx"
Workbooks.Open ("Q:\Commun\Salaries2018.xlsx")
Set WbkS = ActiveWorkbook
ActiveWorkbook.RefreshAll
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Fichier, FileFormat:=xlOpenXMLWorkbook
WbkS.Close False
End With
End Sub

mais cela ne fonctionne pas et je maitrise vraiment pas vba

Merci de votre aide

Cordialement