Bonjour,
Voici un petit sujet de macro (je travaille avec Excel 2007).
J'ai un classeur dont le nom est "Classeur N", où N est une année, par exemple 2013.
Je veux le faire migrer vers l'année N+1.
Pour ce faire, j'ai rédigé une macro qui va bien, sauf le départ qui justement ne fonctionne pas.
Je joins donc le début de cette syntaxe boiteuse.
Le problème :
Je commence par enregistrer Classeur N sous le nom de Classeur N+1. C'est ça qui ne marche pas.
J'ai déclaré une variable "Année". Mais la machine ne la prend pas en compte, et appelle mon classeur "Classeur Année" et non pas "Classeur 2014".
Sub MigrClasseur
Dim Année As Integer
Sheets("Aperçu général").Select
Range("E1").Select
Année = ActiveCell.Value
ActiveWorkbook.Save
Année = Année + 1
ChDir _
"C:\Users\PhP\Documents\Sauvegarde générale\Budget"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\P\Documents\Sauvegarde générale\Budget\Classeur Année.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
.............................................
Bien sûr, je pourrais régler ce détail manuellement après coup, mais, tant qu'à faire ...
Voilà, si quelqu'un veut bien m'éclairer, je le remercie.
Bien à vous
Voici un petit sujet de macro (je travaille avec Excel 2007).
J'ai un classeur dont le nom est "Classeur N", où N est une année, par exemple 2013.
Je veux le faire migrer vers l'année N+1.
Pour ce faire, j'ai rédigé une macro qui va bien, sauf le départ qui justement ne fonctionne pas.
Je joins donc le début de cette syntaxe boiteuse.
Le problème :
Je commence par enregistrer Classeur N sous le nom de Classeur N+1. C'est ça qui ne marche pas.
J'ai déclaré une variable "Année". Mais la machine ne la prend pas en compte, et appelle mon classeur "Classeur Année" et non pas "Classeur 2014".
Sub MigrClasseur
Dim Année As Integer
Sheets("Aperçu général").Select
Range("E1").Select
Année = ActiveCell.Value
ActiveWorkbook.Save
Année = Année + 1
ChDir _
"C:\Users\PhP\Documents\Sauvegarde générale\Budget"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\P\Documents\Sauvegarde générale\Budget\Classeur Année.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
.............................................
Bien sûr, je pourrais régler ce détail manuellement après coup, mais, tant qu'à faire ...
Voilà, si quelqu'un veut bien m'éclairer, je le remercie.
Bien à vous