Importer Liste dernière ligne

**dvdhag123** · 13/01/2020, 13h11

Bonjour,
Je cherche le moyen d'écrire en VBA le code suivant :
Sur mon fichier1 je souhaite avoir une box qui me lance une requête qui me demande une date que je garderai dans la feuil1 en P2 et le plus compliqué qui me demande qu'elle fichier je veux importer.
De ce fichier2 (fichier à importer qui change toujours de nom) je veux importer les colonnes A jusque N de la 2ème ligne à la dernière ligne, et je veux que toutes ces données soit importer sur le fichier1 à partir de la dernière ligne

Ps: j'ai suivi ce tutoriel mais je n'y arrive pas.. https://silkyroad.developpez.com/VBA/ClasseursFermes/

Cordialement

**Philippe Tulliez** · 13/01/2020, 14h32

Bonjour,
Intégré au VBA, il existe la propriété FileDialog de l'objet Application qui permet d'afficher la boîte de dialogue correspondant à l'argument que l'on passe à cette propriété.
Ainsi l'argument

msoFileDialogFolderPicker - Affiche la boîte de dialogue Sélection de dossier
msoFileDialogFilePicker - Affiche la boîte de dialogue Sélection de fichier

Exemple de la fonction GetFolder

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function GetFolder(Optional StrPath As String, Optional Title As String = "Sélection d'un dossier") As String
  ' Fonction qui renvoie le dossier sélectionné
  '   Utilise la boîte de dialogue FileDialog(msoFileDialogFolderPicker)
  ' Philippe Tulliez - www.magicoffice.be
  '
  ' Arguments
  '  [strPath]  Nom du répertoire par défaut si pas rempli
  '  [Title]
  Dim SelectedFolder As String
  If Len(StrPath) = 0 Then StrPath = Application.ActiveWorkbook.Path & "\"
  If Right(StrPath, 1) <> "\" Then StrPath = StrPath & "\"
  With Application.FileDialog(msoFileDialogFolderPicker)
  .Title = Title
  .InitialFileName = StrPath
  .Show
   Select Case .SelectedItems.count
     Case Is > 0: SelectedFolder = .SelectedItems(1)
     Case Else: SelectedFolder = ""
   End Select
  End With
  GetFolder = SelectedFolder
End Function

Que l'on invoque par exemple avec cette procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub TestGetFolder()
  Dim Folder As String
  Folder = GetFolder()
  If Len(Folder) Then
     MsgBox "Vous avez sélectionné le répertoire : " & vbCrLf & Folder
    Else
     MsgBox "Vous n'avez rien sélectionné"
  End If
End Sub

Autre option, il existe la fonction Dir que l'on peut utiliser pour lister la liste des fichiers ou dossiers contenu dans un dossier particulier
Voici une fonction que j'utilise et qui renvoie une table avec les fichiers cherchés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function FileList(ByVal LookUpFullName As String) As Variant
  ' Renvoie une liste avec les fichiers présents dans le répertoire défini pas l'argument LookUpFullName
  ' Philippe Tulliez http://www.magicoffice.be
  ' Argument
  '   LookUpFullName (String) Répertoire + nom du fichier + extension (Les caractères génériques * et ? sont acceptés
  Dim File As String, Counter As Integer, List()
  File = Dir(LookUpFullName)
  Do
    ReDim Preserve List(Counter): List(Counter) = File: Counter = Counter + 1
    If Len(File) Then File = Dir
  Loop While Len(File)
  FileList = List
End Function

Exemple de son utilisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub TestFileList()
   ' Déclaration
   Dim Folder As String
   Dim tblFile()
   Dim SubFolder As String
   Dim Elem As Byte
   Dim msg As String
   '
   Folder = ThisWorkbook.Path
   'SubFolder = "\Folder Empty\"
   'SubFolder = "\data\"
   If Len(SubFolder) = 0 Then SubFolder = "\"
   tblFile = FileList(Folder & SubFolder & "*.xls*")
   If Len(tblFile(0)) Then
      For Elem = 0 To UBound(tblFile)
        msg = msg & vbCrLf & tblFile(Elem)
      Next
    Else
      msg = "Aucun fichier trouvé"
   End If
   MsgBox msg
End Sub

Etc.

**dvdhag123** · 15/01/2020, 10h05

Bonjour,
Tout d'abord grand Merci pour ta réponse, mais je ne vois pas en quoi le code puissent me servir, compte tenu que ce code enregistre un répertoire.

Moi je cherche à

Copier de la 2ème ligne à la dernière ligne (colonne A:N) d'un fichier (fichier2) situé à un endroit aléatoire et portant un nom aléatoire ET à coller ces informations à la dernière ligne de mon fichier1 feuil2

**Philippe Tulliez** · 15/01/2020, 11h55

Bonjour,

je ne vois pas en quoi le code puissent me servir, compte tenu que ce code enregistre un répertoire.

Non, ce code est un exemple montrant que l'on peut utiliser les boîtes de dialogue natives d'excel par VBA et l'autre exemple que l'on peut utiliser la fonction Dir pour chercher soit un répertoire, soit un fichier et ce en utilisant des caractères génériques (* et ?) ce qui me semble t'il peut apporter une solution à l'un des problèmes décrits dans ta demande initiale (voir ci-dessous)

e plus compliqué qui me demande qu'elle fichier je veux importer.
De ce fichier2 (fichier à importer qui change toujours de nom)

Ta demande nécessite deux réponses bien distinctes car ce sont des tâches totalement différentes

trouver le fichier et/ou le répertoire où se trouve les données à importer
copier les données provenant d'une plage de cellules (la source) vers une autre cellule (la cible)

J'ai donc répondu à la première partie de ta demande car pour copier d'une source vers une cible, c'est la même instruction quel que soit l'endroit où se trouve la source et la cible