XL 2016 créer un macro pour rechercher un fichier sur explorateur

[MOEZ-TUN]

Bonjour
Est ce que on peux créer un macro pour rechercher un fichier sur explorateur
Merci

 

[sylvanu]

Bonjour Moez-Tun,
Un essai en PJ.
Mais il manque des informations comme quels fichiers voulez vous filtrer, à partir de quel dossier ...
Donc ici on affiche tous les fichiers sans exception.

 

[MOEZ-TUN]

merci pur vous support

l'exemple est simple de veux chercher un fichier X dans la répertoire c/documentation/ machine 1

 

[sylvanu]

Un essai en PJ.
Il faut modifier la ligne :

 ChDir "C:\Users\PC_PAPA\Desktop\XLD\"

pour y mettre votre chemin.
Ce pourrait être du genre :

Sub ChoixFichier()
    'La variable est de type Variant car elle peut prendre les valeurs :
        'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
        'String: pour renvoyer le nom du fichier sélectionné.
    Dim Fichier As Variant

    ' Mettre ici le chemin désiré. Finir avec un "\"
    ChDir "C:\documentation\machine 1\"
   
    'Affiche la boîte de dialogue "Ouvrir" sur tous les fichiers xlsx.
    ' Supprimer le xlsx si on veut voir tous les fichiers. Par ex :
    ' Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.xlsx),*.xlsx")

    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
    ' Sinon on ouvre le fichier
    If Fichier = False Then
        Exit Sub
    Else
        Workbooks.Open Filename:=Fichier
    End If
End Sub

Attention, pour les chemins on utilise "\" et non "/".

 

[soan]

Bonsoir sylvanu, le fil,

tu as écrit : « Attention, pour les chemins on utilise "\" et non "/". »

je crois que @MOEZ-TUN est sur McIntosh. 😉

soan

 

[MOEZ-TUN]

ok merci ca marche
et si on veux mettre les noms des fichiers sur un tableau est il possible?

 

[sylvanu]

Bonsoir tout le monde,
En PJ un essai avec :

Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String, i As Integer
    ' Efface liste
    Range("A:A").ClearContents
    'Définit le répertoire contenant les fichiers, à modifier. ici fichiers sur écran.
    Chemin = "C:\Users\PC_PAPA\Desktop\"
    'Boucle sur tous les fichiers xls* du répertoire.
    Fichier = Dir(Chemin & "*.xls*")    ' Type xls, xlsx, xlsm, xlsb.
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
    'Fichier = Dir(Chemin & "*.*")
    i = 1
    Do While Len(Fichier) > 0
        ' Range le nom du fichier dans la colonne A
        Cells(i, 1) = Fichier
        i = i + 1  ' incrément N° de ligne
        Fichier = Dir()
    Loop
End Sub

En l'état, liste les fichiers xls* présent sur le bureau dans la colonne A.
Chemin et type fichiers à adapter.

 

[MOEZ-TUN]

ok excellant
est ce que définie le chemin a l'aide d'une cellule ''Chemin = "C:\Users\PC_PAPA\Desktop\", c à dire si je veut change cet chemin je n'est pas obliger de changer a l'aide de l'editeur.

 

[sylvanu]

Voilà.

 

[MOEZ-TUN]

parfaite merci

 

[MOEZ-TUN]

Est ce que Je peux enregistrer ou imprimer cet document?

 

[sylvanu]

Quel document ?
Ce fichier ? Oui bien sur. Il est à vous.

 

[MOEZ-TUN]

la liste des fichiers trouves avec le nom de la répertoire.

 

[sylvanu]

C'est une feuille XL. Vous pouvez l'imprimer comme toute feuille XL.
Il vous suffit d'essayer. 😉

 

[MOEZ-TUN]

je veux avec macro en définie la zone de impression et fixe l'adresse du l'impression et aussi l'enregistrement ce faite automatique dans le chenin principal