Aide VBA

[Mickael]

Bonjour le forum

Mickael les 2er lettres de Milaerdo...
Je débute en VBA... est il possible d'avoir un bouton dans 1 feuille qui ouvrirait une autre feuille en en A1 de la feuille 1
Exemple
1 clic = ouverture de liste.xls cellule A1 de la feuille 1
sans doute simple poir des pro mais pas pour moi donc
Merci aux expérimenté de bien vouloir m'aider.
Et merci d'avance

 

[Gérard DEZAMIS]

Bonjour Mickael

En insérant ce code dans ton bouton

Sub OuvertureListe()

Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Mes Documents\Liste.xls"
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Bien entendu ce fichier est dans c:\Mes documents sinon à toi de changer le chemin (path disent les Grands Bretons)
@+
GD

 

[@+Thierry]

Salut Mi...ckael !, le Forum

Si tu utilises l'enregistreur de macro tu auras le code que tu cherches, qui devrait donner à peu prèt ceci :
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 25/06/2004 by @+Thierry
'
'
ChDir "C:\Documents and Settings\te\My Documents"
Workbooks.Open Filename:= _
"C:\Documents and Settings\te\My Documents\Le Classeur.xls"
Sheets("La Feuille").Select
Range("A1").Select
End Sub


Maintenant un code plus structuré pourrait s'écrire comme ceci
Sub OpeningTheBook()
Const ThePath As String = "C:\Documents and Settings\te\My Documents\"
Const TheFile As String = "Le Classeur.xls"
Const TheSheet As String = "La Feuille"
Const TheRange As String = "A1"

Workbooks.Open ThePath & TheFile

With Workbooks(TheFile).Sheets(TheSheet)
.Activate
.Range(TheRange).Select
End With

End Sub


PS ici je mets en Constante mais ce pourrait être des Variables avec "Dim" à la place de "Const"...

Pour ce qui est des boutons fais une recherche dans mes Posts de la journée d'hier j'ai encore mis des liens utiles à ce sujet...

Bon Après Midi
@+Thierry

 

[Mickael]

Merci de votre rapidité/ gentillesse