Automatiser un changement de date

Bonjour à tous,

J'utilise cette procédure pour enregistrer des bons de commandes dans un répertoire bien précis. Hors chaque année je suis obligé de reprendre tous mes codes à la main afin de changer l'année (ici BC 2013).

Existe t-il un moyen d'automatiser la procédure pour éviter cette saisie manuelle ?

Par exemple pour 2014, BC 2013 devient BC 2014 automatiquement.

Merci par avance pour votre aide

Code:

---

1 2 3 4

Sub Macro_S() Application.Dialogs(xlDialogOpen).Show ("S:\AGENTS\BON DE COMMANDE\BC 2013\") End Sub

---

bonjour
pour le moment nous somme encore en 2012

Code:

---

1 2 3

Sub Macro_S() Application.Dialogs(xlDialogOpen).Show ("S:\AGENTS\BON DE COMMANDE\BC " & Year(Date) & "\") End Sub

---

maintenant si ton objectif et de trouver le dossier de l'année suivante l'actuelle alors se sera

Code:

---

Year(Date) + 1

---

au plaisir

ça fonctionne très bien. Encore merci et joyeuses fêtes de fin d'année.
Bien amicalement

René

bonsoir
egalement