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

MOEZ-TUN

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Fichiers joints

MOEZ-TUN

XLDnaute Junior
merci pur vous support

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
Un essai en PJ.
Il faut modifier la ligne :
VB:
 ChDir "C:\Users\PC_PAPA\Desktop\XLD\"
pour y mettre votre chemin.
Ce pourrait être du genre :
Code:
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 "/".
 

Fichiers joints

soan

XLDnaute Accro
Bonsoir sylvanu, le fil,

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

je crois que @MOEZ-TUN est sur McIntosh. ;)


soan
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir tout le monde,
En PJ un essai avec :
VB:
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.
 

Fichiers joints

MOEZ-TUN

XLDnaute Junior
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.
 

MOEZ-TUN

XLDnaute Junior
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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Je vais stopper ici. Votre demande initiale était :
Est ce que on peux créer un macro pour rechercher un fichier sur explorateur
et ça fait plusieurs requêtes successives qui n'ont rien à voir.
XLD est un site d'entraide, pas pour faire votre outil. Je veux, je veux .... ce n'est pas notre philosophie.

En PJ avec un bouton Imprimer. Ca imprime sur l'imprimante déclarée dans XL.
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas