• Initiateur de la discussion Initiateur de la discussion sonia
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

sonia

Guest
Bonjour.
Je voudrais un renseignement. Une personne viens de me montrer un tableau répertoire composé de macro.
Dans une colonne était inscrit des nom de documents et à coté, il s'y trouvé un bouton poussoire pour ouvrir le document. Il y avait 350 lignes et donc 350 boutons poussoirs.
je voudrais savoir s'il serait possible de n'avoir qu'un seul bouton poussoir. Il m'a demander de trouver un macro qui, lorsque l'on est positionné sur un titre de document (donc celui-ci est selectionné), on appui sur le bouton et le document s'ouvre.
S'il y a des choses que vous ne comprenez pas ou si vous avez des questions pour des renseignement supplémentaires, n'hésitez pas
Merci Au revoir
 
bonjour

si les fichiers sont tous des classeurs excel
s'ils sont tous dans le même répertoire
alors ce code à mettre sur un bouton devrait marcher :

Private Sub CommandButton1_Click()
ChDir 'e:'
If ActiveCell.Value = Null Or ActiveCell.Value = '' Then
MsgBox 'cellule vide !'
Else
If Dir(ActiveCell.Value) <> '' Then
Workbooks.Open Filename:=ActiveCell.Value
Exit Sub
Else
MsgBox 'fichier introuvable !'
End If

End If
End Sub

a priori j'ai testé en vitesse, ca ne devrait pas trop planter 😛

vala, @+

edit : ah oui.. penser à remplacer le e: du ChDir par ton chemin à toi...

Message édité par: 2passage, à: 09/06/2005 15:36
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Lecture vocale USF
Réponses
5
Affichages
280
Retour