Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Gestion des années

  • Initiateur de la discussion Initiateur de la discussion kid
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kid

XLDnaute Nouveau
Bonjour à tous, et merci par avance pour votre aide.

J'utilise des macros qui vont chercher des données dans des dossiers de l'année en cours inscrite en dure.
J'aimerais faire en sorte de ne pas avoir à changer cette valeur tous les ans.
Si quelqu'un à une idée?

fichier = "1-OUTILS.xlsx"
chemin = "\\réseau\emplacement\répertoire\dossier\sous-dossier\fichier\classeur\ANNEE\"Ce lien n'existe plusANNEE
Workbooks.Open Filename:=chemin & fichier
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveWindow.Close

J'aimerais savoir si il est possible de faire la même chose avec RECHERCHEV

=SI(ESTNA(RECHERCHEH(B7;'Ce lien n'existe plus de bord ANNEE.xlsm]Feuil1'!$A$1:$Q$60;7;FAUX));"";(RECHERCHEH(B7;'Ce lien n'existe plus de bord ANNEE.xlsm]Feuil1'!$A$1:$Q$60;7;FAUX)))

Merci à vous
 
Bonjour,
J'ai essayé ça, mais erreur de compilation

Dim chemin As String, fichier As String
ANNEE = ANNEE(AUJOURDHUI())
Sheets("MAJ").Select
Range("B1").Select
If [B1] = "1" Then
fichier = "1-OUTILS.xlsx"
chemin = "\\réseau\emplacement\répertoire\dossier\sous-dossier\fichier\classeur\ANNEE\"
Ce lien n'existe plus
ANNEE
Workbooks.Open Filename:=chemin & fichier
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveWindow.Close

mais cela ne fonctionne pas
 
Bonjour,
Dans votre post #1 la première partie concerne le VBA, la seconde une formule XL.
Dans ma réponse, idem.
Donc en VBA utilisez :
VB:
ANNEE = Year(Date)
L'autre formule est réservée à une formule XL.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
19
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…