Workbooks.Open FileName - Chemin fichier variable

Version imprimable

07/03/2018, 13h59
SpaceX

Workbooks.Open FileName - Chemin fichier variable
Bonjour,

Dans mon programme j'utilise la fonction FileFromBrowser() qui me permet de sélectionner des fichiers quelconque et la fonction Workbooks.Open Filename:= pour ouvrir un fichier.

Voici la ligne que j'utilise dans mon programme :
Code:

1 2 Workbooks.Open FileName:="D:\Users\toto\Desktop\test.xlsx"
Est-ce que je dois à chaque fois renommer le chemin du fichier si je décide d'ouvrir un fichier avec un chemin de répertoire différent ?
07/03/2018, 14h10
parmi

Bonjour,

Peux-tu expliquer un peu plus parce que ça ne semble pas vraiment clair (?!)

Citation:

Est-ce que je dois à chaque fois renommer le chemin du fichier si je décide d'ouvrir un fichier avec un chemin de répertoire différent ?

De ce que je comprends, c'est certain que tu doives changer le chemin s'il est différent...
07/03/2018, 14h27
SpaceX

Justement je ne veux pas modifier le chemin du fichier par moi-même, j'aimerai que cela s'effectue automatiquement si je sélectionne un autre fichier. En VBA il doit surement y avoir un moyen de stocker le chemin d'un fichier non ?

L'utilisation de cette instruction Workbooks.Open FileName:="D:\Users\toto\Desktop\test.xlsx" est statique, si je sélectionne un fichier excel autre que test.xlsx ma macro ne fonctionnera pas.

Désolé si je ne suis pas explicite.
07/03/2018, 14h48
halaster08

Bonjour,

Essaye ceci:

Code:

Workbooks.Open (Application.GetOpenFilename)
07/03/2018, 15h17
SpaceX
Salut, merci pour ton aide.

La ligne de code que tu m'a filé permet uniquement d'ouvrir une boite de dialogue afin de sélectionner un fichier. Moi je souhaite une ligne de code qui récupère le chemin du fichier et qu'elle peut être ensuite associé à Workbooks.Open FileName

Exemple :
Code:

1 2 3 4 Chemin = FileFromBrowser(ThisWorkbook.Path & "\Fichier\", "Fichier de mesures *.xlsx,*.xlsx") Sheets("feuil1").Select Range("G1").Value = Chemin Workbooks.Open FileName:="G1"
Mais ça m'affiche l'erreur 1004 :

Citation:

G1.xlsx introuvable vérifiez l'orthographe du nom de classeur
07/03/2018, 15h23
halaster08
Citation:

Envoyé par SpaceX

La ligne de code que tu m'a filé permet uniquement d'ouvrir une boite de dialogue afin de sélectionner un fichier. Moi je souhaite une ligne de code qui récupère le chemin du fichier et qu'elle peut être ensuite associé à Workbooks.Open FileName

Code:

Application.GetOpenFilename

Permet uniquement d'ouvrir une boite de dialogue afin de sélectionner un fichier.

Code:

Workbooks.Open (Application.GetOpenFilename)

Ouvre le fichier que tu as sélectionné. C'est tiré d'une macro que j'utilise tous les mois, ça fonctionne.

edit: et sinon pour ton code
Code:

1 2 Workbooks.Open FileName:="G1"
Ce serait plutôt

Code:

Workbooks.Open FileName:=range("G1")

mais je ne vois pas pourquoi tu passe par une cellule, utilise directement ta variable:

Code:

Workbooks.Open FileName:=chemin
07/03/2018, 15h40
SpaceX

Hallelujah ! merci pour tes explications ça marche.

Workbooks.Open FileName:=range("G1") ===> marche pour mon code
25/11/2019, 18h12
marite35

bonjour
je n'arrive pas à mettre le fichier en variable
quand je mets le chemin / nom de fichier entre quotes , cela fonctionne
je ne sais plus où chercher pourtant , je vois sur ce blog que c'est possible .merci de votre aide
25/11/2019, 18h35
parmi

Il faudrait voir la partie de code que tu utilises.

Citation:

Envoyé par parmi

Il faudrait voir la partie de code que tu utilises.

voici , j'essaye pas mal de syntaxe Filename = etc ... rien en passe n juste l'exemple que j'ai mis en dessous
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim Lenom As String Sheets("Facture").Select 'Lenom = "Facturation en cours -" & Range("K4").Value Lenom = "Facturation en cours - 2019" LeRep = ThisWorkbook.Path & "\" ' Workbooks.Open ("J:\AL LARK\Facture\Factures\Facturation en cours - 2019") ' cela marche Workbooks.Open Lerep & Lenom End Sub

25/11/2019, 18h59
parmi

Ici, il semble manquer un espace après le tiret, avant les guillemets

Code:

'Lenom = "Facturation en cours -" & Range("K4").Value
26/11/2019, 09h18
marite35

En fait j ai fait l erreur en copiant la ligne .j ai testé avec des noms simples rien n y fait .des que je mets une variable ça ne marche plus même si la variable est bien alimentée
26/11/2019, 13h16
parmi

Ton programme est bien dans ce répertoire ? : J:\AL LARK\Facture\Factures\
26/11/2019, 13h32
marite35

oui tout à fait
26/11/2019, 13h50
parmi

Tu pourrais mettre un Msgbox pour afficher les variables LeRep et LeNom ou encore utiliser Debug.Print
Ça pourrait t'aider à cerner le problème.

Plutôt que d'utiliser

Code:

Sheets("Facture").Select

Mets plutôt le nom de la feuille dans ton appel.
J'imagine qu'on trouve 2019 en K4...

Code:

Lenom = "Facturation en cours - " & Sheets("Facture").Range("K4").Value

Bonjour à tous,

Citation:

Justement je ne veux pas modifier le chemin du fichier par moi-même, j'aimerai que cela s'effectue automatiquement si je sélectionne un autre fichier. En VBA il doit surement y avoir un moyen de stocker le chemin d'un fichier non ?

Si tu veux ouvrir plusieurs fichiers simplement par clic je te conseille d'utiliser les "FilesDialog" avec ".AllowMultiSelect = True "

tu selectionnes et cela te les ouvre direct

Code:

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
'ouverture d'un fichier par boite FileDialog
'**********************************************************
    'Declaration d'une variable comme objet FileDialog
    Dim fd As FileDialog
 
    'Creation d'un objet FileDialog comme un File Open dialog box.
    Set fd = Application.FileDialog(msoFileDialogOpen)
 
    'Déclaration d'une variable contenant le "path" de style variant
    Dim vrtSelectedItem As Variant 'obligatoirement de type variant
 
    With fd
        .AllowMultiSelect = True 'Permet de selectionner plusieurs fichiers à ouvrir
        .InitialFileName = "D:\Travail_tempo\Bons\"
 
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
 
                'vrtSelectedItem est un String contenant le "path"  de chaque item selectionné.
                'affichage du "PATH et du fichier selectionné" dans une boite message
                'MsgBox "Vous avez sélectionné : " & vrtSelectedItem
                File_Select = vrtSelectedItem
            Next
             .Execute
        Else
            Exit Sub
        End If
    End With

C'est peut-être pas exactement ce que tu cherches mais c'est une proposition

Cette instruction est au Niveau VBA Office (Word, Excel, Access, Powerpoint ...)