(resolu)envoyer lignes de listbox dans classeurs sur C:merci lone-wolf et si...

grisan29 · 11 Novembre 2016

bonjour a tous et toutes
je cherche a faire un peu comme un carnet de commandes mais avec un classeur exel, avec un userform et une listbox ,mais c'est la que ça vas plus car je ne sais comment envoyer les lignes sélectionnées dans le classeur qui est déterminer par le choix du combobox , de plus ces classeurs au nom de fournisseurs se trouvent dans un dossier sur C:\fournisseurs
comme mon explication n'est peut être pas clair, je vous joints des exempes
le dossier"fournisseurs" est mettre sous C: et le test commande listbox est le classeur test

j'ai mis un code qui envoie correctement les lignes sur la feuille
il vaux mieux que je donne plus d'explication
donc quand l'userform s'initialise la listbox se charge du contenu de la feuille et comme un devis ne concerne pas qu'un seul fournisseurs, je sélectionne les lignes correspond a tel fournisseurs
et je voudrais pouvoir désélectionnée les lignes après dès l'appui sur le bouton "transfert" qui lui envoie les lignes sélectionnées dans la feuille choisi dans la combobox, afin de continuer les commandes

merci par avance a celui que ça tente

grisan29 · 12 Novembre 2016

bonjour Si.... lone-wolf et le forum
merci de ta réponse si... mais j'ai appelé le post "
envoyer lignes de listbox dans classeurs sur C:
ton classeur lui contient toutes les feuilles, si je déplace les feuilles sous c: il n'y plus de commandes pour envoyer les lignes sélectionnées

si.... c'est une méprise si j'ai écrit ceci
j'ai mis un code qui envoie correctement les lignes sur la feuille
oui c'est sur la feuille parce que je ne savais pas le faire pour que les lignes aillent dans le classeur adéquate sur c:

et l'exemple mis dans le post 2 envoie le paquet de lignes dans le classeur sur c: et pas les lignes sélectionnées
mais surtout pas supprimées les lignes sur le classeur source

Si... · 12 Novembre 2016

re

grisan29 à dit:
bonjour Si.... lone-wolf et le forum
merci de ta réponse si... mais j'ai appelé le post "
envoyer lignes de listbox dans classeurs sur C:

cool, ne crie pas comme ça

. Ce n'est pas une méprise mais un exemple correspondant au message cité.

J'ai créé les onglets pour te montrer comment on pouvait transmettre la sélection (je n’ai pas dit de les utiliser pour envoyer les informations).

Lone wolf

d’ailleurs t’a proposé des méthodes, non ? Utilise-les.

grisan29 · 12 Novembre 2016

bonsoir si....
j'ai pris une partie du code que propose Lone-wolf dans le post 4 et cela ne fonctionne pas comme je ne veux tout comme les autres réponses
je n'ai pas l'intention de crier après quelqu'un, je cherche quelque chose que je sais pas faire
voici comment j'ai adapter le code lone-wolf, mais qui envoie les lignes choisies que dans certains classeur je dits certains car je fait le test chez tous pour l'instant
j'essaye cela car on est dans un monde numérique et certains fournisseurs m'ont demander de le faire par internet

Code:

    Option Explicit
    Sub ChargementListBox1()
        'nettoyage
        ListBox1.Clear

                With ListBox1
                    'source des données sur le feuille
                    .RowSource = "D19:G235"
                    'affichage entête colonne
                    .ColumnHeads = True 'False 'où true
                    'nombre de colonne
                    .ColumnCount = 5
                    'largeur de la colonne
                    .ColumnWidths = "150;54;50;50;50"
                End With

        End Sub

Private Sub CommandButton1_Click()


'copie les lignes selectionnées dans la colonne G
    Dim i As Integer
    Dim rg As Range
    Dim Fichier As Workbook
    Dim Chemin As String
'Call hautpage
    Chemin = commande.CBlistefournisseurs
    Application.ScreenUpdating = False
    On Error Resume Next
    Set Fichier = Workbooks.Open("C:\Facturation\base\fournisseurs\" & Chemin)

    With Workbooks(Chemin)
        'on boucle sur tous les éléments du Listview
       For i = 1 To commande.ListBox1.ListCount 'commande.LVchoixarticles.ListItems.Count
        'et on copie uniquement les items sélectionnées
      
          If ListBox1.Selected(i) = True Then .Sheets(1).Range("B65536").End(xlUp).Offset(1, 0) = ListBox1.List(i, 0)
          If ListBox1.Selected(i) = True Then .Sheets(1).Range("C65536").End(xlUp).Offset(0, 1) = ListBox1.List(i, 2)
          If ListBox1.Selected(i) = True Then .Sheets(1).Range("D65536").End(xlUp).Offset(0, 2) = ListBox1.List(i, 4)
    
    Next i
       .Close (1)
    End With
  
     Application.ScreenUpdating = True
End Sub

    Private Sub UserForm_Activate()
        'activation du chargement de la listbox
        Call ChargementListBox1
        End Sub



    Private Sub UserForm_Initialize()
   Dim fournisseur As Variant, i As Integer
  

fournisseur = Array("Rouenel", "Rexel", "Tanguy", "Leader Mat", _
                    "Queguiner", "Pointp", "Dispano", "Cedeo", "Kerbrat", "Qama", _
                    "Foussier", "Wurth")
    For i = 0 To UBound(fournisseur)
        CBlistefournisseurs.AddItem fournisseur(i)
    Next i
'CBlistefournisseurs.ListIndex = 0
    End Sub

voici le code complet où j'ai pris soin que les noms de fournisseurs soit identiques

grisan29 · 12 Novembre 2016

bonsoir a tous
voici le classeur et les classeurs fournisseurs qui sont dans un dossier du même nom
j'ai fait plusieurs test chaque c'est pareil quelques fournisseurs n'ont pas reçu leur commandes alors que tous l'un après l'autre devrai le recevoir
et c'est que le code de Lone-wolf bloque , et son 2ème et 3ème opus n'envoie qu'une colonne même bien tout parametrer et pas a tous
c'est sur après dans le bon classeur suivant le devis fait je n'aurais pas besoin de tous les fournisseurs c'est pour cela la sélection dans la listbox

j'ai bien un classeur qui le fait mais il est a bases de listvew qui ne se transporte pas

Si... · 12 Novembre 2016

Re
pour le transfert dans un fichier, peu de changement ... (pas ouvert la dernière pièce jointe)

édition : fichier joint supprimé (voir le dernière message)

grisan29 · 12 Novembre 2016

bonsoir si...
merci pour ton fichier, je l'essaye avec tout les fournisseurs l'un après l'autre et au dernier boum crash d'excel écran vide plus rien
bon je recommence et un par un aller sans au bout, je vais sur c: voir si le transfert ce fait et classeur vide
je recommence et pareil classeur vide
je refait un test avec tous les fournisseurs boum crash d'excel

ah oui quand ca ira mon classeur a une entête qu'il ne faudra pas que la listbox la charge
c'est pour cela que les articles sont mis a partir de la ligne 19

Lone-wolf · 12 Novembre 2016

Re à tous

Pascal, je ne sais pas si sa peux t'aider. J'ai modifié la macro pour l'ouverture des fichiers, il manquait l'extention ".xlsx".

VB:

Option Explicit
Dim Fichier As String, Nom As String, Chemin As String
Dim Wks As Workbook, Sh As Worksheet
'---------------------------------------------------------
Sub Ouvrir_Fichier()
    Nom = CBlistefournisseurs.Text
    Fichier = Nom & ".xlsx"
    Chemin = ThisWorkbook.Path & "\fournisseurs\"
    Set Wks = Workbooks.Open(Chemin & Fichier)
End Sub

Private Sub CBlistefournisseurs_Change()
If CBlistefournisseurs <> "" Then Ouvrir_Fichier
End Sub

Private Sub CommandButton1_Click()
  Dim L As Long, n As Long, i As Long, Fichier

  L = ListBox1.ListIndex
  If L < 1 Then MsgBox "vous n'avez rien sélectionné", 16, "oups...": Exit Sub
  n = ListBox1.ListCount
  Application.ScreenUpdating = False
  On Error Resume Next
  Set Sh = ActiveWorkbook.ActiveSheet

  With Sh
  L = .Cells(8, 2).End(xlUp)
  For i = 0 To n - 1
  If ListBox1.Selected(i) Then
  L = L + 1
  .Cells(L, 2) = ListBox1.List(i)
  .Cells(L, 3) = ListBox1.List(i, 1)
  .Cells(L, 4) = ListBox1.List(i, 3)
  End If
  Next
  ActiveWorkbook.Save
  End With
  Application.DisplayAlerts = 0
  ActiveWorkbook.Close False
  Application.DisplayAlerts = 1
  ListBox1.MultiSelect = 0: ListBox1.MultiSelect = 1
End Sub

grisan29 · 12 Novembre 2016

bonsoir lone-wolf
je m'y perd a force, tu parles du dernier classeur de si.... ou du dernier que tu as mis
car je viens d'ajouter ton code au classeur de si... et boum excel crash

Lone-wolf · 12 Novembre 2016

Re Pascal

C'est égal. Tu fait juste un copier-coller des macros.

grisan29 · 12 Novembre 2016

bonsoir
je viens de voir que tu as modifier ton code
j'ai changer le chemin dans la sub ouvrir_fichier comme ceci

Code:

Sub Ouvrir_Fichier()
    Nom = CBlistefournisseurs.Text
    Fichier = Nom & ".xlsx"
     'Chemin = ThisWorkbook.Path & "\fournisseurs\"
   Chemin = "C:\Facturation\base" & "\fournisseurs\"
    Set Wks = Workbooks.Open(Chemin & Fichier)
End Sub

et je n'ai rien d'afficher dans la listbox
bon c'est parce que j'avais tout virer pour mettre ton code
maintenant la feuille du fournisseur s'ouvre en avant et quand je rouvre l'autre classeur et que j'envoi rien ne se passe

grisan29 · 12 Novembre 2016

bonsoir
tout compte fait ce n'est pas un crash d'excel mais une fermeture brutale avec cette ligne

Code:

 'ActiveWorkbook.Close False

maintenant l'envoi des lignes se fait dans le classeur source et non dans un des classeurs sur c:
voila tout le code tel que je l'ai mis

Code:

Option Explicit
Dim Fichier As String, Nom As String, Chemin As String
Dim Wks As Workbook, Sh As Worksheet
'---------------------------------------------------------
Sub Ouvrir_Fichier()
    Nom = CBlistefournisseurs.Text
    Fichier = Nom & ".xlsx"
   ' Chemin = ThisWorkbook.Path & "\fournisseurs\"
    Chemin = "C:\Facturation\base\fournisseurs\"
    'Set Wks = Workbooks.Open(Chemin & Fichier)
End Sub

Private Sub CBlistefournisseurs_Change()
If CBlistefournisseurs <> "" Then Ouvrir_Fichier
End Sub

Private Sub CommandButton1_Click()
  Dim L As Long, n As Long, i As Long, Fichier

  L = ListBox1.ListIndex
  If L < 1 Then MsgBox "vous n'avez rien sélectionné", 16, "oups...": Exit Sub
  n = ListBox1.ListCount
  Application.ScreenUpdating = False
  On Error Resume Next
  Set Sh = ActiveWorkbook.ActiveSheet

  With Sh
  L = .Cells(8, 2).End(xlUp)
  For i = 0 To n - 1
  If ListBox1.Selected(i) Then
  L = L + 1
  .Cells(L, 2) = ListBox1.List(i)
  .Cells(L, 3) = ListBox1.List(i, 1)
  .Cells(L, 4) = ListBox1.List(i, 3)
  End If
  Next
  ActiveWorkbook.Save
  End With
  Application.DisplayAlerts = 0
  'ActiveWorkbook.Close False
  Application.DisplayAlerts = 1
  ListBox1.MultiSelect = 0: ListBox1.MultiSelect = 1
End Sub

   
    Sub ChargementListBox1()
        'nettoyage
        ListBox1.Clear

                With ListBox1
                    'source des données sur le feuille
                    .RowSource = "D19:G235"
                    'affichage entête colonne
                    .ColumnHeads = False 'False 'où true
                    'nombre de colonne
                    .ColumnCount = 5
                    'largeur de la colonne
                    .ColumnWidths = "150;54;50;50;50"
                End With

        End Sub

'Private Sub CommandButton1_Click()


'copie les lignes selectionnées dans la colonne G
   ' Dim i As Integer
    'Dim rg As Range
    'Dim Fichier As Workbook
    'Dim Chemin As String
'Call hautpage
   ' Chemin = commande.CBlistefournisseurs
    'Application.ScreenUpdating = False
   ' On Error Resume Next
   ' Set Fichier = Workbooks.Open("C:\Facturation\base\fournisseurs\" & Chemin)

    'With Workbooks(Chemin)
        'on boucle sur tous les éléments du Listview
       'For i = 1 To commande.ListBox1.ListCount 'commande.LVchoixarticles.ListItems.Count
        'et on copie uniquement les items sélectionnées
      
         ' If ListBox1.Selected(i) = True Then .Sheets(1).Range("B65536").End(xlUp).Offset(1, 0) = ListBox1.List(i, 0)
         ' If ListBox1.Selected(i) = True Then .Sheets(1).Range("C65536").End(xlUp).Offset(0, 1) = ListBox1.List(i, 2)
         ' If ListBox1.Selected(i) = True Then .Sheets(1).Range("D65536").End(xlUp).Offset(0, 2) = ListBox1.List(i, 4)
    
    'Next i
    '   .Close (1)
   ' End With
  
    ' Application.ScreenUpdating = True
'End Sub

    Private Sub UserForm_Activate()
        'activation du chargement de la listbox
        Call ChargementListBox1
        End Sub



    Private Sub UserForm_Initialize()
   Dim fournisseur As Variant, i As Integer
  

fournisseur = Array("Rouenel", "Rexel", "Tanguy", "Leadermat", _
                    "Queguiner", "Pointp", "Dispano", "Cedeo", "Kerbrat", "Qama", _
                    "Foussier", "Wurth")
    For i = 0 To UBound(fournisseur)
        CBlistefournisseurs.AddItem fournisseur(i)
    Next i
'CBlistefournisseurs.ListIndex = 0
    End Sub

Lone-wolf · 12 Novembre 2016

Re Pascal

Mais... Tu veux afficher combien de classeurs à la fois???

Sinon, chez moi pour inscrire les lignes à partir de la ligne 8. Dans la macro workbook.open, tu peux mettre ceci
Application.WindowState = xlMinimized

VB:

Private Sub CommandButton1_Click()
  Dim L As Long, n As Long, i As Long, Fichier


  L = ListBox1.ListIndex
  If L < 1 Then MsgBox "vous n'avez rien sélectionné", 16, "oups...": Exit Sub
  n = ListBox1.ListCount
  Application.ScreenUpdating = False
  On Error Resume Next
  Set Sh = ActiveWorkbook.ActiveSheet

  With Sh
    L = .Cells(1, 2).End(xlUp) - 1 '=ligne 8
    For i = 0 To n - 1
      If ListBox1.Selected(i) Then
        .Cells(L - 1, 2) = ListBox1.List(i)
        .Cells(L - 1, 3) = ListBox1.List(i, 1)
        .Cells(L - 1, 4) = ListBox1.List(i, 3)
            L = L + 1
       End If
     Next
  End With
  Unload Me
  Application.DisplayAlerts = False
  ActiveWorkbook.Close True
End Sub

grisan29 · 12 Novembre 2016

bonsoir Lone-wolf
j'abandonne ça écrit toujours sur la feuille source et non dans dans c:
je vais essayer d'autres choses moins dure a oser
Mais... Tu veux afficher combien de classeurs à la fois???
aucun les remplir sur c:

Lone-wolf · 12 Novembre 2016

Je ne comprends pas. Tu travail avec Excel 2013 et les codes ne sont pas bons??? Si quelqu'un peux m'expliquer?.

Ecoute, je suis entrain d'en faire de même mais avec des classeurs ".xls". Dès que j'ai fini et testé, je met le dossier.

grisan29 · 12 Novembre 2016

bonsoir Lone-wolf

je revenais pour modifier le titre car j'ai repris tout ce qui s'est dit dans le post et j'ai fini par réussir ce que je voulais
merci a toi et si...

(resolu)envoyer lignes de listbox dans classeurs sur C:merci lone-wolf et si...

XLDnaute Accro

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

Discussions similaires

Partager cette page

Statistiques des forums