structure condition

Question

bonjour je possede une fiche data avec des chemin de la forme: soit C:\CesvaData\2005-04-12_17-13- 57_000_RTA.xls ou C:\CesvaData\2005-04-12_17-13-57_000_RT.xls la différence ce joue au niveau de RT et RTA jai réalisé un prog qui ouvre ces fichiers un par un mais le pb c que ensuite je fais des traitements sur ces fichiers et que suivant le type RT ou RTA ce traitement change jaimerais donc que avt douvrir je fasse une structure condition qui me di si RTA alors une sorte de traitement et si RT alors une autre sorte QUES: comment faire pour que lordi reconnaisse RT ou RTA ds lextension du fichier? merci de rep svp voici mon prg: Sub ouvrirfichier() Dim z As Double Dim i As Double Dim rec As String Dim col As Double Application.ScreenUpdating = False For z = 1 To 100 Worksheets("DATA").Activate rec = Worksheets("DATA").Cells(z + 1, 1).Value Cells(z + 1, 1).Select ' si valeur alors faire tt le traitement If rec <> "" Then 'va chercher la source du fichier lister avec le pgr d'avt Workbooks.Open Filename:=rec rec = ActiveWorkbook.Name 'boucle qui copie les données une fois sur 2 puis les colle ds "inter" For ctr = 11 To 51 Step 2 Windows(rec).Activate i = (ctr - 8) Cells(7, ctr).Copy Workbooks("FichesCesva.xls").Sheets("inter").Cells(2, i) Next ctr Workbooks(rec).Close 'ensuite on ordonne les données, plus bonne police ds "inter" Windows("FichesCesva.xls").Activate Sheets("inter").Select Range("C2,E2,G2,I2,K2,M2,O2,Q2,S2,U2,W2,Y2,AA2,AC2,AE2,AG2,AI2,AK2,AM2,AO2,AQ2").Copy Range("C4") Range("C4:W4").Select With Selection.Font .Name = "Tahoma" .Size = 5.5 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With ' on copie le traitement col = z + 1 Selection.Copy ' on colle les données ds la feuille DATA Sheets("DATA").Select Cells(col, 3).Select ActiveSheet.Paste End If Next Sheets("data").Select End Sub le traitement et seulement pour les fichiers RTA pr les Rt c plus simple, dc indiquer moi la structure condition a taper svp salut

nostra78 · Answer

C pas facil &#224; comprendre.
RT et RTA ne sont pas des extensions mais xls oui.
If  RT Then
Instruction 
ElseIf  RTA then
Instruction 
End If
C pas ce que tu veux a mon avis.
Explique un peu mieux, je vois pas tu veux faire des trucs avant d'ouvrir les classuers. Alors qu'est ce qur RT et RTA???????

Tonin39 · Answer

ben sur ma feuille je r&#233;cup&#232;re les chemin dacces de mes fichiers et il y en a qui sont en RT.xls
et dautre en RTA.xls, jaimerais donc que avt douvrir les classeur il y est un test (structure condition), c a dire quon lise la liste de mes chemins dacces et kon dise si c RT alors tel traitement si c RTA alors c autre traitement

ta structure est celle que jenvisageait, mais je ne sais pa comment faire pour ke ds une cellule on reconnaisse si il y a RT ou RTA pour emsuite ouvrir les fichiers et associer le traitement que je veu

voila si ta besoin dautre chose di moi stp
merci et jcompte sur toi

nostra78 · Answer

Donc dans tes cellules tu as

C:\CesvaData\2005-04-12_17-13-  57_000_RTA.xls
ou


C:\CesvaData\2005-04-12_17-13-  57_000_RT.xls

Donc tu fais 
If rec Like "C:\CesvaData\2005-04-12_17-13-  57_000_RTA.xls" then
instruction RTA
Else
instruction RT
End If

Je pense que c ce que tu veux
Donne moi des nouvelles

Tonin39 · Answer

non pas vraiment le num&#233;ro peut changer moi fo juste ke jtrouve une m&#233;thode pr faire la diff entre un RT et RTA

merci

cs_CanisLupus · Answer

Salut,

Si tu as le chemin complet dans tes cellules, essaies :

select case ucase(left$(rec,7))
   case "RTA.XLS"

      instruction RTA
   case "_RT.XLS"
      instruction RT
   case else
      msgbox "type de fichier inconnu"
End select

Loup Gris

nostra78 · Answer

D = Right$(rec, Len(rec) - InStr(rec, "R"))
If D Like "TA.xls" then
instruction RTA
Else
instruction RT
End If
La je pense que c bon
Tiens moi au courant

cs_CanisLupus · Answer

Hou l&#224; la bourde ! Voil&#224; que je confond ma droite et ma gauche, je ne devais pas &#234;tre en forme hier.
Bien &#233;videmment, il fallait lire

select case ucase(right$(rec,7))
   case "RTA.XLS"
      instruction RTA
   case "_RT.XLS"
      instruction RT
   case else
      msgbox "type de fichier inconnu"
End select

Loup Gris

Tonin39 · Answer

question:

ca veut dire koi au juste qd tu fait ca: select case ucase(right$(rec,7))

cs_CanisLupus · Answer

right$(rec,7), je prend les 7 caract&#232;res de droite de la variable rec. 
ucase c'est pour mettre en majuscules avant de comparer. Quelquefois, ce n'est pas n&#233;cessaire si les instructions qu'on utilise ne font pas la diff&#233;rence entre minuscule et majuscule mais je pr&#233;f&#232;re conserver cette habitude, &#231;a &#233;vite pas mal d'erreurs.
select case, &#231;a remplace les if, elseif et autres if imbriqu&#233;s. C'est plus lisible et plus maintenable.

Loup Gris

Tonin39 · Answer

salut jai essayer ta structure CASE mais qd je compile jai une erreur Next ss for, voici mon code est-ce que kelkun peut me corriger svp:


Sub ouvrirfichier()


 


Dim z As Double


Dim i As Double


Dim rec As String


Dim col As Double


 


Application.ScreenUpdating = False


For z = 1 To 100


Worksheets("DATA").Activate


rec = Worksheets("DATA").Cells(z + 1, 1).Value


Cells(z + 1, 1).Select


' si valeur alors faire tt le traitement


Select Case UCase(Right$(rec, 7))


 


Case "RTA.XLS"


'va chercher la source du fichier lister avec le pgr d'avt


Workbooks.Open Filename:=rec


rec = ActiveWorkbook.Name


 


'boucle qui copie les donn&#233;es une fois sur 2 puis les colle ds "inter"


For ctr = 11 To 51 Step 2


Windows(rec).Activate


i = (ctr - 8)


Cells(7, ctr).Copy Workbooks("FichesCesva.xls").Sheets("inter").Cells(2, i)


Next ctr


Workbooks(rec).Close


 


'ensuite on ordonne les donn&#233;es, plus bonne police ds "inter"


Windows("FichesCesva.xls").Activate


Sheets("inter").Select


Range("C2,E2,G2,I2,K2,M2,O2,Q2,S2,U2,W2,Y2,AA2,AC2,AE2,AG2,AI2,AK2,AM2,AO2,AQ2").Copy Range("C4")


Range("C4:W4").Select


    With Selection.Font


        .Name = "Tahoma"


        .Size = 5.5


        .Strikethrough = False


        .Superscript = False


        .Subscript = False


        .OutlineFont = False


        .Shadow = False


        .Underline = xlUnderlineStyleNone


        .ColorIndex = xlAutomatic


    End With


   


 


Case "_RT.XLS"


Workbooks.Open Filename:=rec


rec = ActiveWorkbook.Name


Windows(rec).Activate


Range("B13:V13").Copy Workbooks("FichesCesva.xls").Sheets("inter").Cells(4, 3)


Workbooks(rec).Close


Windows("FichesCesva.xls").Activate


Sheets("inter").Select


Range("C4:W4").Select


    With Selection.Font


        .Name = "Tahoma"


        .Size = 5.5


        .Strikethrough = False


        .Superscript = False


        .Subscript = False


        .OutlineFont = False


        .Shadow = False


        .Underline = xlUnderlineStyleNone


        .ColorIndex = xlAutomatic


    End With


    ' on copie le traitement


col = z + 1


Selection.Copy


' on colle les donn&#233;es ds la feuille DATA


Sheets("DATA").Select


Cells(col, 3).Select


ActiveSheet.Paste


 


Next


Sheets("data").Select


End Sub

merci de rep c urgent

salut

cs_CanisLupus · Answer

Tu as oubli&#233; le End Select de l'instruction seclect case. A mettre apr&#232;s le bloc d'instruction du case  "_RT.XLS"

Loup Gris

Structure condition

11 réponses

Discussions similaires