Recherche d'un fichier dans un répertoire

[cati]

Bonjour,

Je me permets de vous contacter car je rencontre quelques soucis sur le point suivant :

Je souhaite créer une macro qui :
* recherche un fichier origine dans un répertoire déjà initialisé (ex : C:\Users\test\exemple\)
* ouvre ce fichier origine
* fait un copier coller de données filtrées suivant la colonne A (dans un onglet) vers un autre fichier (fichier de destination) déjà ouvert.

Je ne sais pas comment faire pour intégrer dir, getopenfilename, FileDialog(msoFileDialogOpen)

Je vous remercie d'avance pour votre aide.

Cordialement.

 

[kjin]

Re : Recherche d'un fichier dans un répertoire

Bonjour et bienvenue,
Consulte [thread=32841] la charte du forum lire avant de poster[/thread] pour optimiser tes chances d'obtenir une réponse, sinon il existe aussi la Recherche dans le forum
A+
kjin

 

[job75]

Re : Recherche d'un fichier dans un répertoire

Bonjour cati, salut kjin, 🙂

Je ne sais pas comment faire pour intégrer dir, getopenfilename, FileDialog(msoFileDialogOpen)

Pourquoi tout ça ? A priori on peut faire :

Sub test()
Workbooks.Open "C:\Users\test\exemple\tata.xls"
Workbooks("tata.xls").Sheets("titi").Columns(1).SpecialCells(xlVisible).Copy _
Workbooks("toto.xls").Sheets("tutu").Range("A1")
End Sub

A+

 

[cati]

Re : Recherche d'un fichier dans un répertoire

Bonjour,

Je vous remercie de m'avoir répondu.

Le souci peut se poser par le fait que la lettre du lecteur peut changer.

Je souhaite savoir ce qu'il faut faire pour effectuer une boucle sur toutes les lettres de l'alphabet et de vérifier si le dossier existe. Dans ce cas, on ouvre le fichier et on récupère les données filtrées.

Je vous remercie d'avance pour votre aide.

Cordialement.

 

[cati]

Re : Recherche d'un fichier dans un répertoire

Bonjour,

J'ai créé un tableau contenant les lettres de l'alphabet dans le but de vérifier l'existence d'un répertoire.
tab(i) & ":\Users\test\exemple\"
Si le répertoire existe, il s'ouvre. Lorsque l'utilisateur clique sur un fichier excel, celui s'ouvre et on récupère les données filtrées de la colonne A.

Je n'arrive pas à détecter le répertoire et à détecter le clic de l'utilisateur.

Je vous remercie d'avance pour votre aide.

Cordialement.

 

[Staple1600]

Re : Recherche d'un fichier dans un répertoire

Bonjour à tous

cati
En plus du judicieux conseil de kjin
je rajouterai celui-ci:

S'aider de l'aide VBA en ligne d'Excel (touches: ALT+F11 puis F1)
et voir ces rubriques:
Dir, fonction, exemple
FoundFiles, objet
et un dernier
DriveLetter, propriété

ci -dessous Extrait de l'aide avec un exemple de macro
Description
Renvoie la lettre d'un lecteur local physique ou d'un partage réseau. Lecture seule.
Syntaxe
object .DriveLetter
L'argument object représente toujours un objet Drive.
Remarques
La propriété DriveLetter renvoie une chaîne de longueur nulle ("") si le lecteur spécifié n'est pas associé à une lettre de lecteur comme, par exemple, un partage réseau qui n'est pas mappé sur une lettre de lecteur.
Le code suivant illustre l'emploi de la propriété DriveLetter :

Sub AfficheLettreLecteur(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Lecteur " & [B]d.DriveLetter[/B] & ": - " 
    s = s & d.VolumeName  & vbCrLf
    s = s & "Espace disponible : " & FormatNumber(d.FreeSpace/1024, 0) 
    s = s & " Koctets"
    MsgBox s
End Sub