inputbox sheets

[mickstone]

bonjour,
est-ce que qq'un peut me dire pourquoi ce code plante (ligne Worksheets)?
merci d'avance
Mickstone

Dim feuille As String
feuille = Application.InputBox("selection feuille")
Worksheets(feuille).Select
Range("a2:g23").Select
Selection.Copy
Sheets("2007").Select
ActiveSheet.Paste

 

[PascalXLD]

Re : inputbox sheets

Bonjour

Si tu as mis ce code dans une feuille il plantera

mets le dans un module pour essayer

 

[mickstone]

Re : inputbox sheets

sorry,
meme motif meme punission,
par contre si tu connais un autre moyen je suis preneur

 

[MJ13]

Re : inputbox sheets

Bonjour à tous
Chez moi cela fonctionne sur Excel 2003.

 

[PascalXLD]

Re : inputbox sheets

Re

Soit tu rentres le nom d'une feuille qui n'existe pas soit je ne vois pas dans un module cela doit passer

 

[mickstone]

Re : inputbox sheets

niet chez moi, (exel 2003)
le message d'erreur est :
"une des formules de cette feuille contient une ou plusieurs reference externes non valides
verifier que le chemin d'acces, le classeur, le nom de la plage et les reference de cellules sont corrects"

cà ne fonctionne que si je mets le nom de la feuille en dur
peut-on me dire comment on joint un fichier?
merci

 

[PascalXLD]

Re : inputbox sheets

RE

Quand tu fais repondre tu descends et là tu as un bouton Gerer les pièces jointes

tu cliques et ut joins ton fichier sans données confidentielles

 

[mickstone]

Re : inputbox sheets

OK,
merci pour votre aide , mais je viens de trouver,
je choisissais la feuille avec la souris, il me suffit de la saisir au clavier, il y a peut etre un moyen avec la souris mais cherchez pas je vais faire avec çà
Mickstone