Discussion :

[Jiprès]

Bonjour,

Je souhaite créer une macro d'archive permettant d'enregistrer une feuille au même emplacement que mon fichier, créer un dossier avec le nom de l'année, puis un dossier avec le mois, et mettre le fichier dedans avec le nom de la feuille comme nom de fichier (ou le contenu de deux cases séparés par un -, le nom de la feuille est créé comme ça). Le but est d'avoir le fichier, et à coté, les dossiers d'archives par années puis par mois, et à l'intérieur, les différents fichiers, mais l'emplacement du fichier peux varier d'un ordi à l'autre, je ne peux donc pas utiliser de chemin précis.

J'ai vu beaucoup d'infos en faisant des recherches et j'ai vu qu'il était impossible d'enregistrer un fichier dans un dossier inexistant, est-ce vrai ?

Est-ce que quelqu'un as des idées pour commencer ?

Merci de votre aide.
Julien

[Invité]

Bonjour,

Regardez ce tuto de Christophe WARIN : Manipulations de fichiers

[Philippe Tulliez]

Bonjour Julien,
Ta question nécessite plusieurs réponse

Je souhaite créer une macro d'archive permettant d'enregistrer une feuille au même emplacement que mon fichier,

Voir la propriété Path de l'objet ThisWorbook

créer un dossier avec le nom de l'année, puis un dossier avec le mois, et mettre le fichier dedans avec le nom de la feuille comme nom de fichier (ou le contenu de deux cases séparés par un -, le nom de la feuille est créé comme ça)

Cette phrase également contient plusieurs questions.

1. Comment créer un dossier avec VBA ?
   La fonction Mkdir permet de créer un dossier en VBA
2. Comment manipuler une chaine de caractères ?
   Voir l'opérateur de concaténation (&)
3. le nom de l'année
   Je suppose que tu parles de son numéro
   La fonction Date, renvoie la date du jour, Year renvoie le numéro de l'année d'une date et Month le n° du mois d'une date donc MsgBox Year(Date()) affichera l'année et Month

[Jiprès]

Bonjour et merci de vos réponses.

En m'aidant de vos indications j'ai créé la macro suivante, G23 étant une case contenant l'année, et F23 contenant le mois :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Archive()
    If MsgBox("Souhaitez-vous archiver cette feuille ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Dim NWBK As Workbook
        MkDir "Application.ActiveWorkbook.Path" & "\" & ".Range(G23)"
        MkDir "Application.ActiveWorkbook.Path" & "\" & ".Range(G23)" & "\" & ".Range(F23)"
        ActiveSheet.Copy: Set NWBK = ActiveWorkbook
        NWBK.SaveAs "Application.ActiveWorkbook.Path" & ".Range(G23)\" & ".Range(F23)" & " & " \ " & " & NWBK.ActiveSheet.[C19] & " - " & "NWBK.ActiveSheet.[C17]" & ".xlsx", FileFormat:=51: NWBK.Close False
        Else
    End If
End Sub

Mais il m'indique l'erreur 76, chemin d'accès introuvable, et les dossiers ne se créent pas, qu'est-ce que j'ai fait comme erreurs ?

[Invité]

Pour toutes les références aux cellules, modifier la syntaxe de la façon suivante : Ex pour ".Range(G23)"

Code :

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

1
2
 
 .Range("G23")

[Jiprès]

Effectivement ^^

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Archive()
    If MsgBox("Souhaitez-vous archiver cette feuille ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Dim NWBK As Workbook
        MkDir "Application.ActiveWorkbook.Path" & "\" & ".Range("G23")"
        MkDir "Application.ActiveWorkbook.Path" & "\" & ".Range("G23")" & "\" & ".Range("F23")"
        ActiveSheet.Copy: Set NWBK = ActiveWorkbook
        NWBK.SaveAs "Application.ActiveWorkbook.Path" & ".Range("G23")\" & ".Range("F23")" & " & " \ " & " & NWBK.ActiveSheet.("C19") & " - " & "NWBK.ActiveSheet.("C17")" & ".xlsx", FileFormat:=51: NWBK.Close False
        Else
    End If
End Sub

Par contre maintenant j'ai des erreurs de compilation, je ne vois pas trop d'où elles peuvent venir.