copyfile sans bug

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:

---

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

---

Code:

---

If ss03 = "" then exit sub

---

ou

Code:

---

1 2 3 4 5

If ss03 <> "" then 'ton code else 'rien ! endif

---

Non ?

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:

---

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+

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:

---

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.

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:

---

1 2 3 4

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

---

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

Code:

---

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:

---

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

---

A+

Citation:

---

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:

---

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

---