Discussion :

[zadio]

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 :

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

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

[Gorfael]

Salut zadio et le forum
Bienvenue

Il existe un sous-forum destiné aux macros et VBA. L'utiliser te permettrait d'avoir plus de réponses et plus rapidement, quand ça concerne du code.

Pas envie de tester, alors que quelques remarques purement personnelles :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub SousRepertoires()
Dim fsO As Object
Dim oRepertoire As Object
Dim oRacine As Object
Dim oSousRep As Object
fonds = Sheets("Analyse").Range("E9")
periode = Format(Date, "mm-yyyy")
document = Sheets("Analyse").Range("C5")
nomsave = document & " " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".xls"
 
 
' Vérifier si le répertoire destination sur la disquette éxiste.
If Dir$("B:\" & fonds, vbDirectory) = "" Then
    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

Pourquoi tester sous "else" en mettant non(condition) ?
Autant tester la condition en direct.

Pourquoi ne déclarer que quelques variables ? Il vaut mieux toutes les déclarées.

Ayant beaucoup de répertoires, sous-répertoires et fichiers contenant des noms avec dates, je préfère travailler avec la date à l'envers : AAAA-MM-JJ. Un classement permet d'avoir rapidement les fichiers par années et quand je recherche, c'est beaucoup plus rapide à grouper
2009-01
2009-02
....
2010-01
2010-02

alors que dans l'autre sens

01-2009
01-2010
......
02-2009
02-2010
Mais ce n'est qu'une question d'habitude de travail.

Comme je n'ai pas testé le code et que je n'ai pas l'habitude de travailler sur des créations de dossiers, sous-dossiers, fichiers (par macro), je l'ai juste réorganisé, en modifiant les erreurs qui me sautaient aux yeux.
Si ça ne fonctionne pas, pour aider au dépannage, exécute tes macros en pas-à-pas pour donner la ligne en erreur, et la nature de l'erreur. Le dépannage en est souvent plus rapide.
A+

[zadio]

Merci Gorfael,

Je vais tester.
Bonne journée

[zadio]

Ca marche très bien Gorfael.

Merci encore !