VBA mettre une fonction dans un IF Fermé

Question

Bonjour,

comment faire pour mettre un sub dans un autre sub en VBA. je travaille sur Excel et je dois mettre dans une instruction IF une fonction.
Par exemple if .......
then lafonction

comment faire?
Merci

ben13.51 · Answer

Salut,
Lorsque tu crée une fonction, tu lui donne un nom...
Sub NomDeLaFonction1()
...
End sub

Pour l'utiliser dans une autre fonction il suffit d'écrire son nom 
Sub NomDeLaFonction2()
If... then
NomDeLaFonction1
end if
end sub

Et ça devrait marcher

JM · Answer

ok merci beaucoup!!

JM · Answer

j'ai un probleme que je n'arrive pas a resoudre,

en fait dans mon programme il faut saisir des fiches et cliquer un bouton pour dire que c'est complet et je voudrais que lorsque je clique le bouton, le fiche se deplace dans un dossier "fiches completes"

je ne sais pas si ca marche vu que la fiche sera ouverte, j'ai un code qui deplace une fiche mais je ne sais pas comment faire parce ke le probleme vient de la fiche ouverte je pense.

quelqu'un sait comment faire?
Merci

ben13.51 · Answer

De quel type est ta fiche??
C'est un fichier excel entier?

JM · Answer

jai pas compris ce que tu voulais dire par fichier excel entier.
c'est juste une fiche excel ou une feuille si tu preferes... .xls

ben13.51 · Answer

Si la fiche que tu veux enregistrer est ouverte et qu'elle est affichée tu peu essayer ça:

ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\proprietaire\Mes documents\Classeur2.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

Si tu remplace C:\... par le chemin de ton dossier  fiche complète et classeur2 par le nom de ta fiche ça doit marcher

JM · Answer

ok jvai essayer mais est-ce ke dans ce cas la elle est effacee de la ou elle etait??parce que je vuex qu'elle soit deplacée et pas copiée.

ben13.51 · Answer

En fait c'est juste le code VBA pour "enregistrer sous"...
Si ta fiche est déjà enregistrée quelque part ya pas de problème elle ne sera pas déplacée.
Mais si tu veux sauver les modification que tu a fais avant ecris ce code avant celui que je t'ai envoyé

ActiveWorkbook.Save

ça enregistre dabord avant de faire "enregistrer sous"

JM · Answer

ok merci!!:)
jvai voir ce que ca donne

JM · Answer

comment faire pour que lorsqu'un clique sur un bouton on ait une boite de dialogue qui s'ouvre (la standard) pour choisir un fichier?

ben13.51 · Answer

Sub OuvreFichier()

Dim NomFichier as string

NomFichier = InputBox("Entrez le nom du fichier à ouvrir")

Workbooks.Open Filename:= _
        "C:\Documents and Settings\proprietaire\Mes documents\" & NomFichier & ".xls"

end sub

Il te suffit de remplacer le chemin par celui du dossier où se trouve les fichier à ouvrir

VBA mettre une fonction dans un IF

11 réponses

Discussions similaires