Enregistrer fichier dans répertoires variables
Bonjour,
Je suis nouveau dans ce forum et vous remerci du travail accompli car vos différents posts m'ont énormément fait progresser dans VBA.
Néanmoins et malgré avoir écumé pas mal de discussions, je bute sur un petit souci (pour vous bien entendu):
J'ai créé un fichier pour le travail qui doit être utilisé par différentes personnes.
Ce que je veux, c'est que la sauvegarde de ce fichier (sauvegardé avec sa date dans le nom) se place dans un répertoire spécifique celon le numéro d'identification du fonds d'investissement et la période (02-2010).
Tout fonctionne bien lorsque la macro doit créer le répertoire avec le numéro d'identification et le sous-répertoire de la période, mais le chemin que je spécifie pour la sauvegarde du fichier contenant les variables citées plus haut n'est pas reconnu :'(
Voici ce que j'ai fait et d'avance merci pour votre aide.
Pour terminer, désolé si ce post à déjà été évoqué ailleurs mais je ne l'ai pas trouvé:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Sub SousRepertoires()
fonds = Sheets("Analyse").Range("E9")
periode = Format(Date, "mm-yyyy")
document = Sheets("Analyse").Range("C5")
nomsave = document & " " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".xls"
Dim fsO As Object
Dim oRepertoire As Object
Dim oRacine As Object
Dim oSousRep As Object
' Vérifier si le répertoire destination sur la disquette éxiste.
If Dir$("B:\" & fonds, vbDirectory) <> "" Then
Else
Set fsO = CreateObject("Scripting.filesystemObject")
' Créer le répertoire
Set oRepertoire = fsO.createfolder("B:\" & fonds)
' L'établir comme racine pour d'autres répertoires
Set oRacine = oRepertoire.subfolders
' Ajouter un sous répertoire à MonRepertoire sans mention de l'endroit !
Set oSousRep = oRacine.Add(periode)
End If
ThisWorkbook.SaveAs ("B:\" & [fonds] \ [periode] \ (nomsave))
End Sub |