Modification de code

[apdf1]

Bonjour,

Voila j'ai un dossier à l'intérieur il y a trois classeurs:
Facture
Dossier_factures
Registre_client.

J'aimerais envoyer les données de ma facture vers le classeur registre_client en modifiant mon code, et en sachant que!

Il enregistre déjà 1 fois les données vers la feuille Facture Client du même classeur,et il ajoute toutes les factures vers un dossier_factures toujours dans le même dossier et maintenant j'aimerais envoyer les données vers le classeur registre_clients qui se trouve dans le même dossiers :

Tout sa est très difficile d'expliquer. mais bon !!!!
J'espère que je trouverais quelqu'un qui pourras m'aider.

Merci d'avance

Ci joint mes fichiers qui serons certainement plus explicites que moi!

Cordialement

Max

 

[Zon]

Re : Modification de code

Salut,

Un début de piste, étant donné que tu mets déjà tes résultats dans factureclients, l'utilisateur sélectionne le fichier où il veut copier ses données la feuille est en position 1.

Dim C1 As Workbook 'en haut d'un module


Sub Princ()
  Dim C2 As Workbook
  
  Set C2 = ThisWorkbook
        
  If IniClasseur Then
    With C2.Sheets(2) 'Facture clients
       .Range("B6:M" & .[B65536].End(xlUp).Row).Copy C1.Sheets(1).[B65536].End(xlUp)
    End With
  Else
    MsgBox "Erreur dans l'ouverture du classeur"
  End If

End Sub


Function OuvF$()
  OuvF = Application.GetOpenFilename(("Fichiers XLS (*.xlsm), *.xlsm"), , "Parcourir...")
End Function

Function IniClasseur() As Boolean
 On Error Resume Next
  Set C1 = Workbooks.Open(OuvF)
  IniClasseur = Err = 0
End Function

Pathfactures n'est pas dans le code....mais c'est pas pour notre problème.


A+++