Discussion :

[Arnaud41]

Bonjour, je m’appelle Arnaud et je débute dans les macros Excel depuis deux semaines....
J’ai déjà compris pas mal de chose mais là je cale sur les conditions…
J'aurais besoin d'un code pour contrôler deux cellules, suivant ce qu'il y a dedans j'applique un enregistrement sous un nom et un chemin sur un serveur différent (il y a trois cas possible)
Exemple :

................1.....................................2
1 Présentation par : ........................CdR
2 Nature : .....................................Dépense
3 Mouvements : .............................Tous
4 Mandatement début : ...................01/09/2012 fin : 30/09/2012
5 Exercice :....................................2012
6 Etape budgétaire : .......................DM2
7 Type d'AP/EPCP : .........................EPF

Il faut que la condition de la case 2:2 soit égale à "Dépense" ET que la case 7:2 soit égale à "EPF", si oui j’enregistre mon fichier avec comme nom "depense_epf_oct" et sur le chemin "E:\Macro\T2B\1\"

Si non il faut que la case 2:2 soit égale à "Dépense" ET que la case 7:2 soit égale a "EPI" auquel cas j’enregistre mon fichier avec comme nom "depense_epi_oct" et sur le chemin "E:\Macro\T2B\2\"

Et si les deux conditions ci-dessus ne sont pas bonne il me reste un choix, si la case 2:2 soit égale à "Recette" ET que la case 7:2 soit égale a "REC" auquel cas j’enregistre mon fichier avec comme nom "recette_rec_oct" et sur le chemin "E:\Macro\T2B\3\"

Je ne sais pas si mes explications seront claires pour vous….

@+ Arnaud

[Theze]

Bonjour,

Une piste :

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
 
Sub Test()
 
    Dim Fichier As String
 
    'concatène les cellules B2 et B7 en minuscules et sans l'accent
    Fichier = LCase(Replace([B2], "é", "e")) & "_" & LCase([B7]) & "_oct.xls"
 
    'défini le dossier selon le cas
    Select Case [B7]
 
        Case "EPF"
        Fichier = "E:\Macro\T2B\1\" & Fichier
 
        Case "EPI"
        Fichier = "E:\Macro\T2B\2\" & Fichier
 
        Case "REC"
        Fichier = "E:\Macro\T2B\3\" & Fichier
 
    End Select
 
    MsgBox Fichier
 
End Sub

Hervé.

[gFZT82]

Bonjour,

Une autre solution

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 Test()
Dim Fichier As String
Dim EnregOK As Boolean
    EnregOK = True
    If Range("B2") = "Dépense" Then
        If Range("B7") = "EPF" Then
            Fichier = "E:\Macro\T2B\1\depense_epf_oct"
        ElseIf Range("B7") = "EPI" Then
            Fichier = "E:\Macro\T2B\2\depense_epi_oct"
        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") = "REC" Then
            Fichier = "E:\Macro\T2B\3\recette_rec_oct"
        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
End Sub

Cordialement.

[Arnaud41]

Salut, et merci pour vos réponses !

Je suis entrain de voir comment ça fonctionne :

Pour la solution de "Theze" a priori ça contrôle que la case "B7" ?

La solution de "gFZT82" me parait bien, mais après plusieurs essaie,
si j'ai "Dépense" en "B2" et "EPI" en "B7" il me l'enregistre pas ?


Autant pour moi, la soluce de "gFZT82" fonctionne bien, pour mes essaie je n'avais pas respecté la syntaxe Minuscule et Majuscule.....

J'essaie de comprendre mais j'ai quelques lacune là dessus.....

@+ Arnaud