Discussion :

[tomy7]

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 & "\"

[ouskel'n'or]

Code :

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

If ss03 = "" then exit sub

ou

Code :

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

1
2
3
4
5
If ss03 <> "" then
     'ton code
   else
     'rien !
endif

Non ?

[tomy7]

Pour la premiere solution , je ne pourrai l appliquer car j ai 110 select case comme celui la ... donc je ne peux faire un exit sub...

et pour la deuxieme je pref encore faire.

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
select case true 
case 1...
ss03 = 
fso.copyfiles...
case 2...
ss03 = 
fso.copyfiles...
case 3...
ss03 = 
fso.copyfiles...
case 4...
ss03 = 
fso.copyfiles...
end select
SHCreatedirectoryEx ...

Desole Ouskel'Nor mais non tes solutions ne m arrange pas pour une fois.
Dans tous les cas je te suis reconnaissant pour l aide que tu m apportes a chaque fois.

[tomy7]

je dis n importe quoi moi, tu devrai me rectifier Ouskel'Nor

Je ne peux faire ce que j ai dis dans le message precedent car le directory SSO3 ne sera egale a .... qu apres le end select.

donc impossible de faire un le fso.copyfile dans ce cas la...


il faut que je trouve une autre solution


EDIT:

je vais comme sa: (solution ouskel'Nor numero2)

Code :

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

1
2
3
4
 If ss03 = "" Then
    Else
        fso.CopyFile "D:\Documents and Settings\be30enginering\My Documents\shared\Safety inspection.doc", ss03 & "\"
End If

[Gorfael]

Salut tomy7
je vais comme sa: (solution ouskel'Nor numero2)

Code :

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

1
2
3
4
 If ss03 = "" Then
    Else
        fso.CopyFile "D:\Documents and Settings\be30enginering\My Documents\shared\Safety inspection.doc", ss03 & "\"
End If

euh... moi je préfère :

Code :

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

 If ss03 <> "" Then fso.CopyFile "D:\Documents and Settings\be30enginering\My Documents\shared\Safety inspection.doc", ss03 & "\"

A+

[tomy7]

je vais faire comme sa: (solution ouskel'Nor numero2)


Code :
If ss03 = "" Then
Else
fso.CopyFile "D:\Documents and Settings\be30enginering\My Documents\shared\Safety inspection.doc", ss03 & "\"
End If

non c est bien ce que j ai mis ou alors

Code :

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

1
2
3
4
If not ss03= "" then  fso.CopyFile "D:\Documents and Settings\be30enginering\My Documents\shared\Safety inspection.doc", ss03 & "\"
else
'rien
end if

[Gorfael]

Salut tomy7
pas tout compris, mais si ça marche, tu peu rajouter une variable Booleénne que tu testes avant de rechercher le directory

le code:

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
 
Dim Flg as Boolean
 
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"
        Flg=True
    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"
        Flg=True
    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"
        Flg=True
    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"
        Flg=True
End Select
if Flg then
    SHCreateDirectoryEx 0&, ss03, 0&
    fso.CopyFile "D:\Documents and Settings\be30enginering\My Documents\shared\Safety inspection.doc", ss03 & "\"
end if

Ou utiliser dans le select le CaseElse pour mettre une valeur par défaut
A+