Bonjour à toutes et tous,
j'ai un soucis de syntaxe... je voudrais paramétrer la fonction Application.run selon l'année de mon fichier....
En effet mon fichier annuel_xxxx.xls s'incrémente tous les ans et pour éviter d'avoir à modifier en dur la macro tous les ans, j'aimerais si cela est possible automatiser tout ça.
Ci-dessous le bout de code qui pose prb...
Sub macro_toto()
.
.
.
année = Sheets("Datas").Range("C3") ==> ici je viens chercher la valeur de l'année, 2013 pour l'exemple
'Ouverture du fichier Annuel_2013.xls + macro 'non protection'
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & année & "_Annuel.xls", UpdateLinks:=False
Fichier_annuel = année & "_Annuel.xls"
Application.Run "'2013_Annuel.xls'!Non_Protection" ==> je veux paramétrer cette ligne avec la variable Fichier_annuel du style : Application.Run Fichier_annuel !Non_Protection
.
.
.
End Sub
Est-ce possible selon vous ? je pense que oui mais je ne trouve pas la bonne syntaxe...
Merci pour votre précieuse aide encore une fois
j'ai un soucis de syntaxe... je voudrais paramétrer la fonction Application.run selon l'année de mon fichier....
En effet mon fichier annuel_xxxx.xls s'incrémente tous les ans et pour éviter d'avoir à modifier en dur la macro tous les ans, j'aimerais si cela est possible automatiser tout ça.
Ci-dessous le bout de code qui pose prb...
Sub macro_toto()
.
.
.
année = Sheets("Datas").Range("C3") ==> ici je viens chercher la valeur de l'année, 2013 pour l'exemple
'Ouverture du fichier Annuel_2013.xls + macro 'non protection'
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & année & "_Annuel.xls", UpdateLinks:=False
Fichier_annuel = année & "_Annuel.xls"
Application.Run "'2013_Annuel.xls'!Non_Protection" ==> je veux paramétrer cette ligne avec la variable Fichier_annuel du style : Application.Run Fichier_annuel !Non_Protection
.
.
.
End Sub
Est-ce possible selon vous ? je pense que oui mais je ne trouve pas la bonne syntaxe...
Merci pour votre précieuse aide encore une fois