lien entre 2 procédure

Question

bonjour,

voila mon pb: jai cr&#233;er un bouton commande qui qd on clique dessus affiche un message et demande de rentrer un chemin d'acces de fichiers

et jai une autre proc&#232;dure qui va chercher liste les fichiers pr&#233;sent ds un r&#233;pertoire pour l'instant D:\CesvaData, jai cr&#233;er dc la premi&#232;re proc&#233;dure pour kon puisse changer de chemin d'acces

j'aimerais donc ke ma variable message soit int&#233;gr&#233;e ds la proc&#233;dure de listage des fichiers
voici mes proc&#233;dure:

Sub cheminacces()


Message = InputBox("Entrez le chemin d'acc&#232;s des fichiers &#224; r&#233;cup&#233;rer:(ex:D:\CesvaData)", "Mon Programme")
If Message = "" Then Exit Sub
Message = Chem
End Sub

Sub Recherche()
Dim Chem As String


  Application.ScreenUpdating = False
  'masque et acc&#233;l&#232;re le traitement
  Worksheets("DATA").Range("A2:A100").Clear
  'efface les emplacement des fichiers que l'on veut lister
  Worksheets("DATA").Range("C2:W100").Clear
  'efface le tableau ou l'on veut mettre les donn&#233;es ordonn&#233;es
  With Application.FileSearch
'D 'abord r&#233;initialiser les crit&#232;res (Attention : Le LookIn ne se r&#233;initialise pas comme &#231;a)
    .NewSearch
'Pour mettre &#224; jour la liste des dossiers, au cas ou on viendrait de cr&#233;er un nouveau dossier par VBA :
    .RefreshScopes
'Dossier(s) de recherche :
    .LookIn = "D:\DataCesva" ( c cela que jveu g&#233;rer avec la valeur rentr&#233;e)
'Fichiers &#224; rechercher (J'ai essay&#233; plusieurs formes "a*.php;C*.*" mais &#231;a ne marche pas:
'.FileName = "*.*" recherche tous les fichiers
'.FileName = "C.php" recherche tous les fichiers qui contiennent c ou C quelque par dans leur nom, et qui se terminent par .php ou .PHP
    .Filename = ".xls"
'Le type de fichiers qu'on recherche. Ici, tous, et de toute fa&#231;on, on a d&#233;j&#224; filtr&#233; avec .FileName. Mais on peut par exemple indiquer msoFileTypeExcelWorkbooks qui va extraire tous les fichiers Excel&#233; (XLA, XLT, XLS, XLW)
    .FileType = msoFileTypeAllFiles
'On va rechercher dans les sous dossiers d'atelier et Toto :
    .SearchSubFolders = True
'C 'est parti :
    .Execute
'Une boucle traditionnelle pour parcourir les fichiers trouv&#233;s. FoundFiles(Ctr) n'a pas de propri&#233;t&#233;s. Par exemple, pas question d'avoir le nom du fichier sans le dossier, ou m&#234;me sa date de cr&#233;ation (en tout cas par la m&#233;thode FoundFiles)
    For ctr = 1 To .FoundFiles.Count
    Worksheets("DATA").Cells(ctr + 1, 1) = .FoundFiles(ctr)
    Cells(ctr + 1, 1).Select
    encadre
    Next ctr
End With
End Sub

voila merci de r&#233;pondre svp
salut

dsomped · Answer

tu peux dans la 1ere proc&#233;dure copier ta variable Chem dans une cellule de ton choix de ton classeur, puis dans la 2eme proc&#233;dure aller la r&#233;cup&#233;rer dans cette m&#234;me cellule.

Lien entre 2 procédure

1 réponse

Discussions similaires