Appel de macro dans userform + complément ;)

[chuinul]

Bonjour a tous,

Je me sens un peu honteux mais bon :

J'ai crée un userform qui est sur ma feuil1

avec dessus un boutton, je voudrais que ce bouton appel une macro...et ceci ne marche pas :

Private Sub CommandButton1_Click()
Vérification_Extraction()
End Sub

(la macro que je voudrais appeler est Vérification extraction() )

Et ben ça marche pas, comment faire?

Et pendant que j'y suis : je voudrais qu'au dessus de ce bouton s'affiche la date de la dernière date de modification d'un fichier

cette question est relative a un précédent post : http://www.excel-downloads.com/forum/81934-attributs-dun-fichier-importe.html


Merci de l'aide que vous pourriez m'apporter

 

[Staple1600]

Re : Appel de macro dans userform + complément 😉

Bonjour


Et comme ça ca fonctionne non?

Private Sub CommandButton1_Click()
Vérification_Extraction
End Sub

 

[G.David]

Re : Appel de macro dans userform + complément 😉

mais ta macro dans le code du bouton
private sub commandbutton1_click()
instruction
insturction
end sub
ou alors supprimes les parenthèses elles ne servent que pour passer des arguments à la macro
G.David

 

[G.David]

Re : Appel de macro dans userform + complément 😉

oups pardon pas vu

 

[chuinul]

Re : Appel de macro dans userform + complément 😉

en fait j'ai directement collé toute la macro dans le code du bouton...

c'est peut-être pas propre, mais au moins ça marche...

Et maintenant, pour faire simple, comment afficher une variable, ou le contenu d'une cellule (A1) dans un userform ou dans une frame elle même dans un userform

😉

 

[Staple1600]

Re : Appel de macro dans userform + complément 😉

Re


Je me permets une petite question


As-tu installé l'aide VBA d'Excel en installant Excel?

Tu pourrais y trouver de quoi te dépanner

 

[chuinul]

Re : Appel de macro dans userform + complément 😉

je suis sur un poste d'entreprise, sans les droits d'admin 😉

 

[G.David]

Re : Appel de macro dans userform + complément 😉

mettre un textbox ou un label
pour le text box
textbox1.value=range("A1")
pour le label
label1.caption=range("A1").value