bonjour,
j ai utilise cette methode pour selectionner le directory en fonction de checkbox et d un combobox, mais lorsqu il n y a aucun des cas qui est vraie,
le copyfile me fait un bug.
Alors biensur je peux mettre le copyfile pour les 4 directory dans le select case true mais si quelqu un a une autre proposition plus propre et moins lourde... Merci


le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 Select Case True
    Case combobox2 = "A" And Sheet2.SalesSUP_03_A
        ss03 = "D:\Documents and Settings\be30enginering\My Documents\shared\structure\template A\1.0 Project Estimation And Booking\1.1 Sales Support\1.1.03 Correspondence to-from Third Party"
    Case combobox2 = "B" And Sheet2.SalesSUP_03_B
        ss03 = "D:\Documents and Settings\be30enginering\My Documents\shared\structure\template B\1.0 Project Estimation And Booking\1.1 Sales Support\1.1.03 Correspondence to-from Third Party"
    Case combobox2 = "C" And Sheet2.SalesSUP_03_C
        ss03 = "D:\Documents and Settings\be30enginering\My Documents\shared\structure\template C\1.0 Project Estimation And Booking\1.1 Sales Support\1.1.03 Correspondence to-from Third Party"
    Case combobox2 = "D" And Sheet2.SalesSUP_03_D
        ss03 = "D:\Documents and Settings\be30enginering\My Documents\shared\structure\template D\1.0 Project Estimation And Booking\1.1 Sales Support\1.1.03 Correspondence to-from Third Party"
    End Select
    SHCreateDirectoryEx 0&, ss03, 0&
    fso.CopyFile "D:\Documents and Settings\be30enginering\My Documents\shared\Safety inspection.doc", ss03 & "\"