Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Re : PB Combbox
Bonjour pierrejean
ma question et toute bete le PB est que dans :
j = ComboBox1.Value
With Application.FileSearch
.NewSearch
.LookIn = "C:\Documents and Settings\jeanmimi\Bureau\MBR\Suivi-BT-HV\" & "j"
.looking ne comprend pas qu'il faut rajouter la valeur de...
Bonjour à vous voila mon probléme est que je voudrais inserer le résultat d'une combobox pour completer mon chemin de recherche qui utlise la fonction .lookin et sa plante merci de votre aide.
jm
voici le code
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Variant
j =...
Re : Lister un repertoire et les sous repertoires
super ca marche mais juste une derniere question si je veux incorporer ta macro dans un userform en fixant le repertoire a rechercher ?
Re : Lister un repertoire et les sous repertoires
Merci pour vos reponses c'est vrai que le fichier de CBernardT est exelant mais juste un point comment enlever l'extension : .doc ou .xls au nom.
Bonjour je voudrais savoir si il est possible d'afficher un graphique qui se trouve sur une feuille excel dans un UserForm et l'afficher automatiquement a l'ouverture de UserForm qui elle s'ouvre automatiquement a l'ouverture du classeur. merci du coup de main
Re : Lister un repertoire et les sous repertoires
bonjour #2 (permalink)
juste une question je suis debutant en vba et je ne sais pas comment on fait une fonction récursive pour exploiter tous les dossiers et sous-dossiers.
ni ou la placer dans mon mis dans le 1° message merci de m'aider
Bonjour
j'utilise cettemacro pour lister et je n'arrive pas à lister les sous repertoire je ne voie que le contenu du dossier mis dans chemin et pas le contenu des sous repertoires qui peux me dire ou je me suis plante merci.
Private Sub CommandButton12_Click()
Dim dossier As Object...
;)bonjour
je cherche une sotution pour creer un graphique dans une userform en a partire de 4 textbox qui m'affiche des valeurs numérique. Ci joint le code qui me donne mes 4 valeurs numérique dans mes 4 textbox :
Private Sub ComboBox1_Change()
End Sub
Private Sub...
Re : Listbox
Désolé voici mon code :
Private Sub CommandButton6_Click()
Dim myarray()
Dim fs As Object
Dim i As Integer
' Declaration filesearch object.
Set fs = Application.FileSearch
' Set du dossier à chercher
'fs.LookIn = "\\file\partage\MAJ\Groupe...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.