Discussion :

[NEC14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bonjour
pour le moment nous somme encore en 2012

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Year(Date) + 1

au plaisir