Discussion :

[Arnaud41]

Bonjour,

Comment et quoi ajouter a ce code, afin qu'il regarde dans la cellule "B4" de la feuil1 ou il y ai mentionné "01/10/2012 fin : 31/10/2012"
Pour qu'il enregistre le fichier pour le mois de Octobre (par la suite automatiquement pour les autres mois) :

"DépensesFonct_2012-10" pour le "nom_fichier_1"
"DépensesInvest_2012-10" pour le "nom_fichier_2"
"Recettes_2012-10" pour le "nom_fichier_3"

Je voudrais aussi que l'on puisse rentrer les liens pour les chemins directement dans la feuille excel afin que la macro récupère ces liens sans que l'on soit obligé de bidouiller la macro a chaque fois que l'informatique nous change l'arborescence.... Aujourd'hui j'ai ça :
chemin_1 = "E:\Dir_Depense-EPF\"
chemin_2 = "E:\Dir_Depense-EPI\"
chemin_3 = "E:\Dir_Recette-EPF\"


Comment peut on faire ?

Voici le code que j'ai déjà :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
    temps = Time()
    heure = Split(temps, ":")
    heure = heure(0) & "H" & heure(1)
    temps = Date
    date_modif = Split(Date, "/")
    date_modif = date_modif(2) & "-" & date_modif(1)
 
    Dim Fichier As String
    Dim EnregOK As Boolean
    EnregOK = True
    chemin_1 = "E:\Dir_Depense-EPF\"
    chemin_2 = "E:\Dir_Depense-EPI\"
    chemin_3 = "E:\Dir_Recette-EPF\"
    nom_fichier_1 = "DépensesFonct_" & date_modif
    nom_fichier_2 = "DépensesInvest_" & date_modif
    nom_fichier_3 = "Recettes_" & date_modif
 
    If Range("B2") = "Dépense" Then
        If Range("B7") = "EPF" Then
            ChDir chemin_1
                ActiveWorkbook.SaveAs Filename:=chemin_1 & nom_fichier_1 & ".xls", FileFormat _
                    :=xlOpenXMLWorkbook, CreateBackup:=False
            Fichier = nom_fichier_1
        ElseIf Range("B7") = "EPI" Then
            ChDir chemin_2
                ActiveWorkbook.SaveAs Filename:=chemin_2 & nom_fichier_2 & ".xls", FileFormat _
                    :=xlOpenXMLWorkbook, CreateBackup:=False
            Fichier = nom_fichier_2
        Else
            EnregOK = False
            MsgBox " Ce type d'AP/EPCP n'est pas prévu dans un poste de Dépense."
        End If
    ElseIf Range("B2") = "Recette" Then
        If Range("B7") = "EPF" Then
            ChDir chemin_3
                ActiveWorkbook.SaveAs Filename:=chemin_3 & nom_fichier_3 & ".xls", FileFormat _
                    :=xlOpenXMLWorkbook, CreateBackup:=False
            Fichier = nom_fichier_3
        Else
            EnregOK = False
            MsgBox " Ce type d'AP/EPCP n'est pas prévu dans un poste de Recette."
        End If
    Else
        EnregOK = False
        MsgBox " Aucun traitement prévu pour ce poste."
    End If
    If EnregOK Then
        MsgBox "Enregistrement sous " & Fichier
    Else
        MsgBox "Pas d'enregistrement."
    End If

Merci

@+ Arnaud41

[Daniel.C]

Bonjour,

Pour le nom des fichiers :

Code :

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

1
2
    date_modif = Split([Feuil1!B4], "/")
    date_modif = date_modif(4) & "-" & date_modif(1)

Pour le premier dossier :

Code :

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

1
2
3
4
    Set FSO = CreateObject("scripting.fileSystemObject")
    chemin_1 = Application.GetOpenFilename("Classeurss (*.xls*), *.xls*", Title:="choisissez un classeur dans le dossier dan le dossier voulu")
    Set Doss = FSO.getfile(chemin_1)
    chemin_1 = Doss.ParentFolder.Path

Ne pas répéter la première ligne pour les autres chemins.

[Arnaud41]

Salut,

Merci a "Daniel.C"

Bon votre premier code :

Code :

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

1
2
    date_modif = Split([Feuil1!B4], "/")
    date_modif = date_modif(4) & "-" & date_modif(1)

Fonctionne a merveille..

Pour le deuxième je comprends pas trop, moi ce que je voudrais c'est sur la feuille dont l'onglet s'appelle "index" ou j'ai mon bouton de macro, mette un chemin reseau1 dans la cellule "B20", chemin reseau2 dans la cellule "B21", chemin reseau3 dans la cellule "B23", afin que la macro reprendre ces infos pour les utiliser sans que l'on rentre dans l'éditeur VBA, pour changer les chemins, s'ils changent.

Pour mes chemins réseaux en ce moment j'ai ça :

Code :

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

1
2
3
    chemin_1 = "E:\Dir_Depense-EPF\"
    chemin_2 = "E:\Dir_Depense-EPI\"
    chemin_3 = "E:\Dir_Recette-EPF\"

Mais chez nous les informaticiens change les chemins les lettres de lecteurs etc....

@+ Arnaud

[Daniel.C]

Code :

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

1
2
3
chemin_1 = [index!B20]
    chemin_2 = [index!B21]
    chemin_3 = [index!B23]

[Arnaud41]

Salut,

Merci "Daniel.C"

C'est exactement ce qu'il me fallait....

Merci encore

@+ Arnaud41