Bonsoir le forum
Je bute sur le code qui permet de sauvegarder un fichier Excel dans un répertoire déjà crée ou crée par la macro.
La référence est la cellule "G1" ( une année transformée en texte par formule CTXT) du fichier.
Le nom du fichier est extrait de la cellule "A1".
Le code ci dessous me crée un répertoire ANNEE au lieu de la valeur texte en "G1" qui est 2013.
Dim ANNEE As String
ANNEE = Range("G1").Text
If Dir(ThisWorkbook.Path & "\ANNEE", vbDirectory) = "" Then MkDir ThisWorkbook.Path & "\ANNEE"
ActiveWorkbook.SaveAs "D:\Mes documents\CCS\ANNEE\" & (ActiveWorkbook.Worksheets(1).Range("A1").Text & ".xls")
Petite précision ce code bloque si je réponds Non ou Annuler à la boîte de dialogue lors de l' enregistrement.
Chemin du fichier initial: D:\Mes documents\CCS\"Compil randos printemps"
Chemin de sauvegarde: D:\Mes documents\CCS\2013\"Compil randos printemps 2013"
\2014\"...."
Le fichier est rempli par macro, trié et lignes nulles supprimées avant enregistrement, le nom modifié me permet de le différencier facilement.
Merci aux contributeurs qui auront pris la peine de me lire et m' apporteront une solution.
Je bute sur le code qui permet de sauvegarder un fichier Excel dans un répertoire déjà crée ou crée par la macro.
La référence est la cellule "G1" ( une année transformée en texte par formule CTXT) du fichier.
Le nom du fichier est extrait de la cellule "A1".
Le code ci dessous me crée un répertoire ANNEE au lieu de la valeur texte en "G1" qui est 2013.
Dim ANNEE As String
ANNEE = Range("G1").Text
If Dir(ThisWorkbook.Path & "\ANNEE", vbDirectory) = "" Then MkDir ThisWorkbook.Path & "\ANNEE"
ActiveWorkbook.SaveAs "D:\Mes documents\CCS\ANNEE\" & (ActiveWorkbook.Worksheets(1).Range("A1").Text & ".xls")
Petite précision ce code bloque si je réponds Non ou Annuler à la boîte de dialogue lors de l' enregistrement.
Chemin du fichier initial: D:\Mes documents\CCS\"Compil randos printemps"
Chemin de sauvegarde: D:\Mes documents\CCS\2013\"Compil randos printemps 2013"
\2014\"...."
Le fichier est rempli par macro, trié et lignes nulles supprimées avant enregistrement, le nom modifié me permet de le différencier facilement.
Merci aux contributeurs qui auront pris la peine de me lire et m' apporteront une solution.