Transférer des données dans un nouveau fichier

[Gégé]

Bonjour,

C'est en novice absolu de VBA que je me permet de vous soumettre un problème que je n'arrive pas à résoudre seul.
J'ai une base de données (Voir fichier BASE ci-joint). J'aimerais créer pour chaque pièce blanche un fichier EXCEL sur le modèle "NT" ci-joint, dans le même dossier que "BASE".
Chaque nouveau fichier (baptisé du nom de la pièce) devra récupérer les info de "BASE" pour effectuer des calculs (chaque valeur de "BASE" va dans une cellule spécifiée dans la nouvelle feuille.
Désolé c'est peut-être un peu touffu, mais je n'arrive pas a être plus clair.
PS : Pouvez-vous m'indiquez le nom d'un bouquin sur VBA que je pourrais potasser ?

D'avance merci

 

[dj.run]

Bonjour gégé,

juste pour te dire que tes pieces jointes ne sont pas passées

pour les faires passer, il ne faut aucun espace dans le titre et surtout il faut les zipper (question de place ou de poids) .

@+ dj.run

 

[Gégé]

Bonjour DJ.RUN,
Ci-joint les memes fichiers zippés sous TEST.ZIP

 

[michel]

Bonsoir

la procédure ci joint créée un nouveau fichier si la valeur BLANC se trouve dans la plage C3:C13 , le classeur prend le nom de la pièce . le fichier est enregistré dans le meme répertoire que le fichier ou est placé cette macro

Sub CreerFichier()
Dim val As Range
Application.ScreenUpdating = False
For Each val In ThisWorkbook.Sheets(1).Range("c3:c13")
If val = "BLANC" Then
Workbooks.Add
With ActiveWorkbook.Sheets(1)
.Range("a4") = "NOM"
.Range("a6") = "NOMBRE"
.Range("a8") = "COULEUR"
.Range("b4") = val.Offset(0, -2)
.Range("b6") = val.Offset(0, -1)
.Range("b8") = "BLANC"
End With
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & val.Offset(0, -2) & ".xls"
End If
Next
Application.ScreenUpdating = True
End Sub


bonne soirée
Michel