Userform avec ListBox qui marche mal

[Bricoltou]

Bonsoir le Forum

J'ai un userform avec 2 nom de fichier pour faire un archivage chaque semaine , le fichier Anomalie Carburant fonctionne alors que matrice chauffeur clic dans le vide .
J'ai controlé si le nom de mes fichiers dans mon code sont identiques a la feuille des données,j'ai aussi changé l'userform et ListBox
Les codes sont les mêmes ,qu'en pensez vous ?
Merci d'avance pour votre aide
@+
Bricoltou

 Private Sub ListBox_choix_feuille2_Change()
Select Case ListBox_choix_feuille2.Value
Case "Matrice_Chauffeur"
      'Workbooks.Open Filename:= _
      '"K:\Pilotage\Camionnage\Matrice_Chauffeur.xls"
      Workbooks.Open Filename:= _
     "C:\Documents and Settings\Desktop\Camionnage\Matrice_Chauffeur.xls"
      Dim no_sem As String
      ActiveSheet.Unprotect Password:="Terminal"
     no_sem = InputBox("Saisissez le numéro de la semaine ", "No de semaine")
      ChDir "C:\Documents and Settings\Desktop\Camionnage"
    ' ChDir "K:\Pilotage\Camionnage\Planning"
     'ActiveWorkbook.SaveAs Filename:="K:\Pilotage\Camionnage\Archives\Planning\" & "Planning" & no_sem & ".xls"
      ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Desktop\Camionnage\Archives\Planning\" & "Planning" & no_sem & ".xls"
      ActiveWorkbook.Close   
Case "Feuille_Carburant"
    ' Workbooks.Open Filename:= _
    ' "K:\Pilotage\Camionnage\Anomalie_Carburant.xls"
     Workbooks.Open Filename:= _
     "C:\Documents and Settings\Desktop\Camionnage\Anomalie_Carburant.xls"
      no_sem = InputBox("Saisissez le numéro de la semaine ", "No de semaine")
  '  ChDir "K:\Pilotage\Camionnage\Archives\anomalie_Gasoil"
     ChDir "C:\Documents and Settings\Desktop\anomalie_Gasoil"
  '   ActiveWorkbook.SaveAs Filename:="K:\Pilotage\Camionnage\Archives\anomalie_Gasoil\" & "Carburant" & no_sem & ".xls"
      ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Desktop\Camionnage\Archives\anomalie_Gasoil\" & "Planning" & no_sem & ".xls"
    ActiveWorkbook.Close
     Workbooks.Open Filename:= _
     End Select
     Unload Me
End Sub

 

[kjin]

Re : Userform avec ListBox qui marche mal

Bonsoir,
Et que fait-on avec qq lignes de code ??
A+
kjin