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

 

[Jacky67]

Bonsoir,
Je propose les modifications présentes sur la feuille de démarrage
En B2, il faudra saisir le bon chemin.
Voir pièce jointe

*Non testé dans sa totalité par défaut des fichiers concernés.
Salutations
JJ

 

[grisan29]

bonjour Jacky
merci de ta réponse, mais d’où est extrait ce fichier, il n'y a pas de chemin sur feuille, le chemin est initialiser sur l'userform

 

[Jacky67]

Re..

bonjour Jacky
merci de ta réponse, mais d’où est extrait ce fichier, il n'y a pas de chemin sur feuille, le chemin est initialiser sur l'userform

R...
C'est une adaptation de celui que tu avais mis en PJ
Est-ce que cela ne convient pas?
Est-ce cela ne fonctionne pas ??
Si tu donnes le "nouveau chemin" complet on peut se passer de "chemin sur feuille"

Salutations
JJ

 

[grisan29]

bonjour Jacky67
ton fichier avec nouveau chemin bug car il trouve pas le chemin
il ne conviens pas car le chemin doit être écris dans le code
je sais que je pourrai avoir 2 userforms qui serait plus simple

le chemin pour devis est "D:\Facturation-v1s\devis"

et pour facture "D:\Facturation-v1s\facture"

 

[Jacky67]

bonjour Jacky67
ton fichier avec nouveau chemin bug car il trouve pas le chemin
il ne conviens pas car le chemin doit être écris dans le code
je sais que je pourrai avoir 2 userforms qui serait plus simple

le chemin pour devis est "D:\Facturation-v1s\devis"

et pour facture "D:\Facturation-v1s\facture"

Re..
Désolé, j'avais mal interprété la question.
Tu avais déjà mis le 2ème bouton, c'est bien cela?
C'est en cliquant sur "Modification facture" que la chemin doit changer ?
Alors, vois la PJ, ci c'est bien cela.

Salutations
JJ

 

[jecherche]

Bonjour

Dans le cas où l'on doit passer une information d'un objet à l'autre, une variable public peut être une alternative. Voir si ça peut convenir.


Jecherche

 

[grisan29]

bonjour je cherche
ca y est c'est juste ce qu'il faut je pense car il y a un affichage drôle dans la listview
je vais joindre l'aperçu de cet affichage, et aussi "affichage2"celui du classeur primaire qui ouvre bien les devis mais rempli les 2 1ères colonne de la même chose

 

[grisan29]

bonjour je cherche, jack67
j'ai effacer la listview pour en remettre une autre et 'affichage est revenu bien ??? bon sauf que j'ai le même souci qu'avec affiche2
j'ai intégré dans mon classeur le tien mais j'ai un manque de variables pour "TypeDoc"

 

[jecherche]

Bonjour

Le code fourni en exemple et le code du classeur primaire sont vraiment les mêmes? Car, je n'ai pas du tout le même affichage que l'affichage 2. As-tu essayé un pas-à-pas et à chaque ligne précédente de celle sélectionnée, en positionnant le curseur sur les variables, leur valeur s'affiche en infobulle.

Si tu ne trouves pas, il faudrait soumettre le code du classeur primaire; du moins, la macro
Private Sub UserForm_Initialize()


Jecherche

 

[jecherche]

Bonjour

Pour l'affichage différent, j'ai trouvé : ListView1.View = 3 'lvwReport ; je dois utiliser 3 au lieu de Lvwreport.
Maintenant avec le bon affichage, je n'ai pas le doublon du nom, l'affichage est correct.


Jecherche

 

[jecherche]

Bonjour,

Heu, je n'ai pas de doublon sur le nom car, j'ai modifié

  .ListItems.Add , , Fichier.Name
' .ListItems(Ctr).ListSubItems.Add , , Fichier.Name    'c'est cette ligne qui créé ton doublon sur le nom

 

[Si...]

salut

autre proposition

 

[grisan29]

bonjour jecherche, si..., jack67
merci a vous 3 je vous être occupé merveilleusement de ce que je n'arrivai pas
sans jeu de mot j'avais beau chercher le pourquoi du doublon et je remercie jecherche de l'avoir trouvé

et aussi quel est le code a mettre derrière le bouton "valider" qui valide le choix du chemin a utiliser, j'ai trouvé

  Private Sub CommandButton1_Click()
If TypeDoc = "devis" Then
    Chemin = "D:\Facturation-v1s\devis"
End If
If TypeDoc = "facture" Then
    Chemin = "D:\Facturation-v1s\facture"
End If

    Workbooks.Open Chemin & "\" & Me.ListView1.SelectedItem.Text
     Unload Me
End Sub

mais si j'enlève le coche devant option explicit il y a bug a TypeDoc , quelle variable lui assigné
aussi le bouton d'appel d'un devis où facture a le même bug de variable
aprèst il va falloir trouvé ou clore le post

 

[Jacky67]

...quel est le code a mettre derrière le bouton "valider" qui valide le choix du chemin a utiliser, j'ai trouvé

Re...
Dans le classeur que j'ai envoyé, c'est la variable "Chemin" est définie depuis le début, il n'y a rien à ajouter.
Pas besoin de variable tiers.

Salutations
JJ