Macro pour dupliquer des tables selon une colonne Résolu/Fermé

Question

Bonjour les experts,

Etant novice en matière de macro, j'aimerai recevoir vos lumières pour une manipulation que vous trouverez sans doute simple, voir simpliste.
Voila mon problème :
J'ai deux fichiers excel :
- Le 1er contient simplement une colonne avec des noms de clients : DUPONT, BERTRAND, etc.
Le 2nd fichiers excel est un questionnaire.

Je souhaiterai générer automatiquement des questionnaires (2nd fichier) reprenant les noms des clients.

A titre d'illustration, mon 1er fichier contient deux clients : Monsieur DUPONT et Monsieur BERTRAND.
Je souhaiterai générer une macro qui me permettrait de générer automatiquement un questionnaire reprenant le nom du client par exemple : DUPONT_QUESTIONNAIRE.

Bien entendu, mon 1er fichier contient une centaine de nom et je ne souhaite pas taper les noms de mes questionnaires à la main.

Merci pour vos lumières.

Au plaisir de vous lire.

Niquo69

cs_Le Pivert · Answer

Bonjour,

Il faut que votre classeur Questionnaire soit dans le même dossier que le classeur ayant les noms. Je l'ai nommé "questionnaire"  a vous de l'adapter.
Mettre dans le classeur et la feuille  ayant les noms ce code.
Pour accéder au code faites AltF11:


Option ExplicitDim nom As StringPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Value = "" Then Exit Subnom = Target.ValueWorkbooks.Open (ThisWorkbook.Path & "\questionnaire.xls") 'extension à adapterActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nom & "_questionnaire.xls" 'extension à adapterMsgBox "votre classeur est enregistré à cet emplacement: " & ThisWorkbook.Path & "\" & nom & "_questionnaire.xls" 'extension à adapterEnd Sub
 --
@+ Le Pivert

Niquo69 · Answer

Un grand MERCI pour ta réponse Pivert :)
J'ai crée un bouton dans mon ficheir excel auquel j'ai associé la macro suivante :

Option Explicit
Dim nom As String
Private Sub Bouton4_Clic(ByVal sel As Range)

If Target.Value = "" Then Exit Sub
nom = Target.Value
Workbooks.Open (ThisWorkbook.Path & "\questionnaire.xls") 'extension à adapter
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nom & "_questionnaire.xls" 'extension à adapter
MsgBox "votre classeur est enregistré à cet emplacement: " & ThisWorkbook.Path & "\" & nom & "_questionnaire.xls" 'extension à adapter
End Sub


Une fois lancée, j'ai un message d'erreur me disant "argument non facultatif".

Ai-je loupé une étape importante ? Si oui laquelle ?

Un grand MERCI pour ton retour.

Niquo69

eriiic · Answer

Bonjour,

Tu t'es créé une procédure en ajoutant un paramètre (inutile d'ailleurs). Donc excel te demande ce paramètre, normal.
Il n'y a que dans les évènements connus et géré par excel que ce passage de paramètre est automatique (ce qu'avait utilisé picvert).

Fais plutôt qcq chose comme ça :
Sub creerFichiers()
    Dim c As Range
    For Each c In Selection
        ' ton code utilisant c.value comme variable et non pas target qui n'existe pas
    Next c
End Sub
Ensuite ajoute ton bouton.
Si c'est un bouton Formulaire, fais le lien vers cette procédure.
Si c'est un bouton ActiveX, appelle cette procédure dans son code (double-cliquer sur le bouton pour se mettre dans l'évènement click).

Sélectionnes A6:A10 avant de cliquer pour créer ces 5 fichiers.

eric

 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(devise Shadok)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Niquo69 · Answer

Merci Eric pour ta réponse.

J'ai crée un bouton active X et je lui ai attribué le code suivant :

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Selection
If Target.Value = "" Then Exit Sub
nom = Target.Value
Workbooks.Open (ThisWorkbook.Path & "\questionnaire.xls") 'extension à adapter
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nom & "_questionnaire.xls" 'extension à adapter
MsgBox "votre classeur est enregistré à cet emplacement: " & ThisWorkbook.Path & "\" & nom & "_questionnaire.xls" 'extension à adapter
End Sub

J'ai un message d'erreur en retour me disant qu'il y a une erreur de compilation "For sans Next"".

Pourrais-tu m'éclairer ?

Merci d'avance

Niquo69 · Answer

Je débute en VBA, c'est tjs un peu compliqué :D
En tous les cas, je viens de trouver la solution à mon problème grâce à vous.
Un très grande MERCI pour ce gain de temps.

Niquo69

Macro pour dupliquer des tables selon une colonne

5 réponses

Discussions similaires