[VBA EXCEL] menu déroulant choix fichier et importation

Version imprimable

24/07/2015, 15h54
richmond26

[VBA EXCEL] menu déroulant choix fichier et importation

bonjour,

j'aimerais faire un menu déroulant dans un fichier qui puisse importer un autre fichier de la source C:\Users\logistique\Downloads et qui puisse chercher que les document commençant par report

et une foi importer se mette en place dans le fichier actuel en A1 pour lancer une macro déjà existante. le but étant d'importer des fichier et l'annalyser avec une macro prés enregistré sans que je doit a chaque fois faire un copier coller dans le développeur.

pourriez vous m'aider ou me mettre sur le chemin car je ne sais pas par ou commencer.

merci d'avance:oops:;)
24/07/2015, 16h03
joe.levrai

Bonjour,

1) alimenter le menu déroulant en utilisant la fonction Dir()
2) utiliser la méthode Open de l'objet Workbooks pour ouvrir le fichier
3) lancer la macro qui se trouve dans le fichier où est situé le menu déroulant (instruction Call si besoin)

consulter l'aide :f1: au sujet de ces propositions

tente des choses, prépare un code
s'il ne fonctionne pas ou si tu bloques sur des points précis, reviens avec ton code et tes explications ;)

voila ce que j'ai pu me dépatouiller et ca fonctionne merci pour le CHdir :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Range("A2:E100") = ""
ChDir ("C:\Users\" & Environ("UserName") & "\Downloads")
Dim wbMyWb As Workbook
Dim Nom_Fichier As Variant
Nom_Fichier = Application.GetOpenFilename("Fichiers  (*.csv), *.csv")
If Nom_Fichier <> False Then
   Set wbMyWb = Workbooks.Open(Nom_Fichier)
  wbMyWb.Activate
  Else
  MsgBox "Aucun fichier selectionné !"
  Exit Sub
End If

par contre il y a un code que je ne comprend pas trop pourriez vous me le traduire svp.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
If ActiveWorkbook.FullName = Nom_Fichier Then
Application.EnableEvents = False
 
   Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
CSVtoREAD = ActiveSheet.UsedRange.Value
Application.EnableEvents = True
ActiveWorkbook.Close SaveChanges:=False
Else
Exit Sub
End If

merci d'avance

27/07/2015, 22h02
clementmarcotte

Bonjour,

Un clic sur un mot-clef et :f1: