Remplissage Automatique

[Janot56]

Bonjour tout le monde,

Une fois de plus j'ai besoin de votre génie et de vos compétences.

Contexte :
Je possède 2 dossiers
Dossier A contenant un fichier Excel dont le contenu est une base de donnée clients
Dossier B Contenant un fichier Excel par client (ex : Pain&co)

Problème :
J'aimerais avoir un bouton Macro me permettant quand je suis dans la base de données de lancer un remplissage automatique d'un tableau du fichier excel du dossier B pourtant le même nom d'entreprise que dans la base de données.

A savoir :
Les fichiers excel dans le dossier B existent déjà, donc pas de création automatique de fichier

Je ne sais pas si je suis clair ?
Le problème n'est pas très dur mais de le rendre compréhensible, là est la difficulté !

Ci-joint :
fichier exemple Base de données du dossier A
fichier exemple fiche client du dossier B

 

[Janot56]

Re : Remplissage Automatique

Ci-joint un autre fichier client allant dans le dossier B


Merci d'avance de votre aide !

 

[Paf]

Re : Remplissage Automatique

Bonjour

Ce que j'ai cru comprendre:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim WB2 As Workbook, Tablo, NomClas As String, Chemin As String, DerLig As Long
 
 DerLig = Range("B" & Rows.Count).End(xlUp).Row
 If Not Intersect(Target, Range("B2:B" & DerLig)) Is Nothing Then
    Cancel = True
    Tablo = Application.Transpose(Range("A" & Target.Row & ":I" & Target.Row))
    Chemin = "C:\Documents and Settings\Chef\Bureau\"
    NomClas = Target.Value & "&co.xls"
    If Dir(Chemin & NomClas) <> "" Then
        Set WB2 = Workbooks.Open(Chemin & NomClas)
        WB2.Worksheets("Feuil1").Range("B2").Resize(UBound(Tablo), 1) = Tablo
        WB2.Close True
        Set WB2 = Nothing
    Else
        MsgBox "Le classeur n'existe pas"
    End If
 End If
End Sub

Code à coller dans le module de la feuille Feuil1 du classeur Base de données.

Un double clic sur une Désignation activité copie les données dans le classeur correspondant

Adapter le nom du chemin du dossier B

A+

 

[Janot56]

Re : Remplissage Automatique

Merci Paf l'idée est là, sauf que mon exemple de problème n'est pas forcément représentatif !
Si j'ai bien compris vous avez affecté une transposé à mon tableau (ce que j'ai fait dans mon exemple)

Mais si je veux par exemple que la Cellule Ai (avec i correspondant à la ligne du client) du fichier base de donnée vienne en D5 de mon fichier client
quel serait la modification à apporter ?

 

[Iznogood1]

Re : Remplissage Automatique

Janot,

ci-joint un exemple.
Renseigne la feuille "Mapping" (cellule E2 et Plage A2:C...) en fonction des données qu tu veux transférer.
Tu peux ensuite masquer cette feuille.

Dans La base de données, double clique sur une ligne pour ouvrir et renseigner la fiche client

Ce lien n'existe plus

 

[Paf]

Re : Remplissage Automatique

Re et bonjour Iznogood1

je ne comprend pas bien le coté automatique

quand je suis dans la base de données de lancer un remplissage automatique d'un tableau du fichier excel du dossier B

et

la Cellule Ai (avec i correspondant à la ligne du client) du fichier base de donnée vienne en D5 de mon fichier client

et l'aspect 'à la demande'

Précisez plus qu'avec un exemple

Ai doit toujours être en D5 ? (le N° d'activité face à l'adresse ?) et les autres valeurs de la ligne i ?

A+