Aide VBA

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

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

Merci de votre rapidité/ gentillesse