changer le chemin avec 2 boutons

[grisan29]

bonsoir a tous et toutes
j'ai un userform qui s'ouvre a l'aide d'un bouton et sur lequel la listview se charge de données qui sont dans un dossier "devis" sur c:
mais je voudrais par un 2ème bouton ouvrir le même userform mais en lui changeant le chemin afin qu'il se charge des données de "factures" sur c:
voici le code de l'userform(pas vu d’icône pour le code) mes excuses
le chemin dans le bouton doit etre aussi changer par la même

Option Explicit

  Private Sub CommandButton1_Click()

  chemin = "D:\Facturation-v1s\devis"
  Workbooks.Open chemin & "\" & Me.ListView1.SelectedItem.Text
  Unload Me
End Sub
  Private Sub CommandButton3_Click()
  Unload Me
  End Sub

Private Sub UserForm_Initialize()
  Dim Fichier As Object, FSO As Object, C As Range, Ctr As Long, F As Object
  chemin = "D:\Facturation-v1s\devis"
  Set FSO = CreateObject("Scripting.FileSystemObject")
  'Définit les entêtes de colonnes
  With ListView1
  With .ColumnHeaders
  .Clear 'Supprime les anciens entêtes
  'Ajout des colonnes
  .Add , , "Nom fichier", 200
  .Add , , "Taille (ko)", 50, lvwColumnRight
  .Add , , "Créé le", 60, lvwColumnCenter
  .Add , , "Modifié le", 60, lvwColumnCenter
  .Add , , "Commentaires", 190, lvwColumnLeft
  End With
  .View = lvwReport 'affichage en mode Rapport
  .Gridlines = True 'affichage d'un quadrillage
  .FullRowSelect = True 'Sélection des lignes comlètes
  End With
  '----- Remplissage ListView------------------------
  With ListView1
  For Each Fichier In FSO.GetFolder(chemin).Files
  Ctr = Ctr + 1
  .ListItems.Add , , Fichier.Name
  .ListItems(Ctr).ListSubItems.Add , , Fichier.Name
  .ListItems(Ctr).ListSubItems.Add , , Fichier.Size / 1024
  .ListItems(Ctr).ListSubItems.Add , , Fichier.datecreated
  .ListItems(Ctr).ListSubItems.Add , , Fichier.datelastmodified
  Next Fichier
  End With



End Sub

voici en plus le fichier qui extrait de son contexte présente un bug inexplicable pour moi au 1er.Add

 

[jecherche]

Bonjour,

Je m'excuse de ne pas voir téléversé le fichier. Pour passer TypeDoc en variable publique, je l'ai inscrite en module1. Passant du texte, elle est de type String. Cette méthode donne l'opportunité d'avoir plusieurs chemins différents.


Jecherche

 

[grisan29]

bonjour a tous

Merci beaucoup de vos réponse qui encourage dans ce nouvel environnement
je ne sais si l'option d'un post résolu est a l'affiche, sinon faire comme avant marqué dans l'entête
ben non il n'est plus accessible
bonne fin de journée