choix dans macro

[darib52]

bonjour à tous,
j'ai une macro qui me permets de copier des données issues de word dans excel.
la ligne suivante permet la copie dans 'modele'
Sheets('modele').Copy

ayant besoin d'utiliser 2 modèles différents j'aimerais que le choix du 'modele' puisse être déterminer en fonction de la cellule 'constantes!g33'(modele1, modele2).

quid de la solution ?
je prends toutes vos idées.
merci d'avance.

 

[PascalXLD]

Bonjour

Je n'ai pas compris si tu as le nom de ton modele d'inscrit en G33 ou si cela depend de la valeur de G33

Exemple 1er cas

MonModele=sheets('constantes').range('G33')
Sheets(MonModele).Copy

Exemple 2ème cas

MonModele=iif(sheets('constantes').range('G33')=1,modele1,modele2)
Sheets(MonModele).Copy

Bon courage

Message édité par: Pascal76, à: 18/04/2006 18:13

 

[darib52]

dans les 2 cas il y a erreur d'exécution '9'
l'indice n'appartient pas à la sélection.

ma demande correspond à ta 1ère proposition.

 

[PascalXLD]

Re

Donne plus de renseignements STP

 

[darib52]

extrait de la macro

.Wrap = wdFindContinue
End With
docwd.Range.Find.Execute Replace:=wdReplaceAll
Wrd.Selection.WholeStory
Wrd.Selection.Copy
Sheets('modele').Copy After:=Worksheets(Sheets.Count)
Nom = InputBox('Entrez le nom pour la feuille à créer.', 'Fiche AEFF')
Nom = UCase(Nom)

la 1ère solution proposée correspond à ma demande.
mais génère l'erreur précitée.

 

[PascalXLD]

Re

les renseignements que j'aimerai connaitre concernent la cellule G33 ce qu'il y a dedans et quelle modele en fonction de la cellule G33

 

[darib52]

en pj [file name=constantes.zip size=23623]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/constantes.zip[/file]

 

[darib52]

ça fonctionne.
en fait je n'avais pas oté les '' de sheets('modele').copy

avec toutes mes excuses.

merci pour tout.
amitiés.

 

[PascalXLD]

Re

Bon bah tant mieux que tu ais trouvé.

Bonne soirée