classeurDestination.Worksheets

[kolivier]

Bonsoir le forum et à tous les ocurageux qui sont encore éveillés.

Je vou sexpose mon petit souci.

J'ouvre un premier classeur : 1.xls et je tape dans la cellule D4, par exemple, la valeur suivante TOTO15.

En cliquant sur un bouton, je souhaite ouvrir le classeur 2 et la feuille correspondante a la valeur tapée dans le classeur 1.xls.

Auriez, s'il vous plait une idée à me proposer, Merci mille fois d'avance car je dois rendre mon projet demain matin inch: .

Debut de piste peut etre :

Private Sub bouton_Click()
Dim VAL
VAL = impfeuilleclasseur1.Range('D4').Value
Set classeurDestination = Workbooks('2.xls')
''''''' JUSQUE LA CA FONCTIONNE ''''''''
'''''''' ET A PARTIR DE LA JE SECHE ''''''''''''PEUT ETRE QUE CETTE SYNTAXE EST POSSIBLE MAIS ELLE NE FONCTIONNE PAS'''''''''''
Set feuilleDestination = classeurDestination.Worksheets.VAL
feuilleDestination.Activate
END SUB



Merci de votre gentillesse

 

[Charly2]

Bonsoir kolivier,

Désolé de te répondre aussi tard : tu dois déjà être dans les bras de Morphée

Tu peux utiliser un code de ce type :

Option Explicit

Sub Bouton1_QuandClic()
'
Dim NomFeuille As String
'
  NomFeuille = Range('D4').Value
  Application.Workbooks.Open ('2.xls')
  ActiveWorkbook.Sheets(NomFeuille).Select
End Sub

Bon courage
Charly

Edition : Sans chemin, il faut que ton classeur 2.xls soit placé dans le dossier par défaut d'XL (Menu Outils/Options/Onglet Général).

Message édité par: Charly2, à: 21/11/2005 04:07

 

[kolivier]

Bonjour le FORUM et merci beaucoup Chaly2 pour ce petit programme.

Je t'avoue que j'ai du batailler car il ne fonctionnait pas au départ jusqu'a ce que je m'apperçoive que ce n'était pas le programme qui ne fonctionnait pas en lui meme, mais uniquement le fait qu'il ne fonctionne pas lorsque le fichier 2.xls est en affichage masqué.
C'est pourquoi j'ai fait une exemple (fichier joint):
2.xls est en affichage non masqué
3.xls est en affichage masqué.

Les fichiers 2.xls et 3.xls sont à copiers dans la racine C:

Donc si tu as une idée ou quelqu'un d'autre biensur, vous serez les bienvenus car je dois rendre mon programme maxi pour 14H.

alors AU SECOURS et @ trés bientot. [file name=3.zip size=23645]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/3.zip[/file]