Discussion :

[cheerleaders]

Bonjour à tous,

Je souhaite ouvrir une boite de dialogue ou l'utilisateur pourra sélectionner le fichier qui va lui servir pour la copie des données via la macro.
Pour ce faire, il faut que j'ouvre donc cette boite de dialogue, que j'enregistre le chemin + le nom du fichier dans une variable que j'utiliserais plus tard

J'ai trouvé ce code qui pourrait me convenir :

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
23
24
25
26
27
28
29
Sub test2()
Dim chemin As String
Dim nomFichier As String
Dim cheminComplet As String
Dim dummy As String
cheminComplet = Application.GetOpenFilename
 
If cheminComplet <> "faux" Then
    ' 1 l'extension
dummy = cheminComplet
While Right(dummy, 1) <> "."
    ext = Right(dummy, 1) & ext
    dummy = Left(dummy, Len(dummy) - 1)
Wend
dummy = Left(dummy, Len(dummy) - 1) ' ici on élimine le .
' le nom du fichier
While Right(dummy, 1) <> "\"
    nomFichier = Right(dummy, 1) & nomFichier
    dummy = Left(dummy, Len(dummy) - 1)
Wend
' le chemin
chemin = dummy
 
 
 
End If
 
 
End Sub

Cependant, il m'enregistre bien le chemin, mais pas le nom du fichier...
Comme je ne comprend pas du tout la structure du code, quelqu'un peut il m'aider?

J'appelle ensuite mon chemin pour l'ouverture de mon fichier dans :

Code :

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

Workbooks.Open chemin

Merci d'avance pour votre aide!

ou si vous avez en votre possession un autre code, je suis preneuse également

[Thautheme]

Bonjour Cheerleaders, bonjour le forum,

Peut-être comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
Dim NC As String 'déclare la variable NC (Nom et Complet)
Dim N As String 'déclare la variable N (Nom)
Dim E As String 'déclare la variable E (Extension)
 
NC = Application.GetOpenFilename 'définit la variable NC (chemin d'accès plus le nom)
N = Split(NC, "\")(UBound(Split(NC, "\"))) 'définit la variable N
E = Split(N, ".")(1) 'définit la variable E
End Sub

[cheerleaders]

Super, merci pour ton aide!