Insertion d'un bouton pour ouvrir un document excel

[romfret]

Salut le forum,

J'aimerai savoir comment inserer un bouton qui ouvre un fichier excel.

Merci de votre réponse.

@mic@lement, romfret

 

[JPH]

Bonjour,
Sub ouvreFichier()
lefichier = Application.GetOpenFilename("Classeur (*.xls),*.xls,Fichiers texte (*.txt),*.txt", , "Ouvrir un classeur ?")
If lefichier = False Then
MsgBox "Action annulée"
Exit Sub
End If
For i = Len(lefichier) To 1 Step -1
If Mid(lefichier, i, 1) = "\" Then Exit For
Next
nomcourt = Mid(lefichier, i + 1, Len(lefichier)) 'le nom du classeur
chemin = Left(lefichier, i) 'le chemin sans le nom
'-------------------
Workbooks.Open lefichier
End Sub
Document joint

cordialement

 

[romfret]

Oui mais comment faire pour inserer un bouton normal ( du genre le bouton parcourir pour aller chercher un piece jointe a ce message)

D'avance merci

Romfret

 

[JPH]

Le bouton de mon exemple est un objet "WordArt", mais dans Excel les objets boutons, shapes, textbox, etc... peuvent servir à déclencher une macro.
Dans la macro proprement dite j'ai mis en oeuvre :
GetOpenFilename("Classeur (*.xls),*.xls,Fichiers texte (*.txt),*.txt", , "Ouvrir un classeur ?") limitant ainsi le choix aux fichiers texte et classeur Excel.
Si tu modifies GetOpenFilename comme ceci :
GetOpenFilename(,, "Ouvrir un fichier ?") l'acces est alors ouvert à toutes les extentions .xls, .xla, .txt, .eml, etc ... mais attention Excel n'ouvre pas tout et tu risques le message d'erreur ! le texte "Ouvrir un fichier ?" est optionnel cela pourait être "Maman chérie".
L'aide VBA est trés explicite à ce sujet recherche "GetOpenFilename"
Pour un bouton normal tu le selectionne avec clique/droit puis "Affecter une macro", ou encore si tu le crées il demande automatiquement quelle macro ?
Cordialement

 

[romfret]

Je te remercie , je vais te tenir au courant

@mic@lement Romfret .

 

[romfret]

Ok, ca marche !!! Merci !!!