bonjour Bakh et le forum
voici le code qui envoie la ligne sélectionnée dans la feuille d'où elle viens, j'ai essayer de lui greffé une adaptation pour que la ligne soit envoyer sur la feuille "fournisseur" qui est sous c:\facturations\base\fournisseurs\
+des sous dossiers
truc est un classeur .xlsx
Private Sub CommandButton1_Click()
'copie les lignes selectionnées dans la colonne G
Dim i As Integer
Dim rg As Range
With UserForm1.ListView1
'on boucle sur tous les éléments du Listview
For i = 1 To .ListItems.Count
'et on copie uniquement les items sélectionnées
If .ListItems(i).Selected = True Then
Set rg = Range("A65536").End(xlUp).Offset(1, 0) 'cellule destination
'copie des champs voulus
rg = .ListItems(i)
rg.Offset(0, 1) = .ListItems(i).ListSubItems(1)
rg.Offset(0, 2) = .ListItems(i).ListSubItems(2)
End If
Next i
End With
End Sub
ligne modifiée sans succès
Set rg = ThisWorkbook.Worksheets("fournisseur").Range("M65536").End(xlUp).Offset(1, 0) 'cellule destination
donc comme j'ai plusieurs sous dossiers nommé "fournisseur1 a fournisseur 10" si je mets une combobox qui prendrais leurs noms est ce que l'envoi pourrai se faire en fonction de ce choix et dans le classeur du meme nom
peut-on m'expliquer pour le chemin d'envoi a créer
Pascal
edit:
j'ai fait cette macros avec l'enregistreur si cela peux aider en enregistrant un classeur
Sub Macro1()
'
' Macro1 Macro
'
'
ChDir "C:\Facturations\base\fournisseurs"
ActiveWorkbook.SaveAs Filename:= _
"C:\Facturations\base\fournisseurs\Classeur1.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub