localiser un fichier sur le disque dur

myDearFriend!

XLDnaute Barbatruc

• 22 Décembre 2008

• #2

Re : localiser un fichier sur le disque dur

Bonjour bomagicmusic,

Je pense que le méthode GetOpenFileName est ce que tu cherches :

Code:

[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=NAVY]Dim[/COLOR] Chemin [COLOR=NAVY]As Variant[/COLOR]
      Chemin = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
      [COLOR=NAVY]If[/COLOR] Chemin = [COLOR=NAVY]False Then Exit Sub[/COLOR]
      MsgBox "Chemin à considérer : " & Chemin 
[COLOR=NAVY]End Sub[/COLOR]

Cordialement,

 

Vote positif 0 Vote négatif

B

bomagicmusic

XLDnaute Occasionnel

• 22 Décembre 2008

• #3

Re : localiser un fichier sur le disque dur

Merci de ta réponse, ce que je ne comprends pas c'est l'endroit où je dois mettre le code parce que dans mon user form je peux rajouter un bouton mais le code commence par Private Sub CommandButton_Click(). Pourrais-tu m'aider? Merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Décembre 2008

• #4

Re : localiser un fichier sur le disque dur

Bonjour à tous,
Bonjour Didier 🙂,

Bomagicmusic : pas certain que cela réponde à ta question (pas d'USF...)

A++
A+ à tous

 

Pièces jointes

• JC Nouveau document.zip

  10.2 KB · Affichages: 24

Vote positif 0 Vote négatif

B

bomagicmusic

XLDnaute Occasionnel

• 22 Décembre 2008

• #5

Re : localiser un fichier sur le disque dur

Bonjour et merci de ton aide. La solution que tu proposes ressemble à ce que je cherche. Je voudrais que l'utilisateur indique l'emplacement de son fichier pour cela il clique sur un bouton d'un user form mais je souhaite également récupérer ce chemin sur une cellule...

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Décembre 2008

• #6

Re : localiser un fichier sur le disque dur

Bonjour à tous,

Toujours sans USF... mais collage du chemin en A1

Code:

Option Explicit

Sub Traitement()
Dim Chemin As Variant
      Chemin = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
      If Chemin = False Then Exit Sub
      MsgBox "Chemin à considérer : " & Chemin
Range("A1") = Chemin
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

B

bomagicmusic

XLDnaute Occasionnel

• 22 Décembre 2008

• #7

Re : localiser un fichier sur le disque dur

J'ai réussi à reproduire ton exemple, ça marche mais les infos de la cellule A1 vont être écrasées c'est pour cela que je souhaitais passer par un user form pour créer une ligne par nouveau document. ça évite le risque de fausse manips par les utilisateurs.Une idée?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 22 Décembre 2008

• #8

Re : localiser un fichier sur le disque dur

Bonjour à tous,

pas sûr que ça réponde parfaitement à la question...

 

Pièces jointes

• Nouveaudoc.xls

  28 KB · Affichages: 63

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Décembre 2008

• #9

Re : localiser un fichier sur le disque dur

Bonjour à tous,

Un essai avec archivage en A...

Code:

Option Explicit

Sub Traitement()
Dim Chemin As Variant
      Chemin = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
      If Chemin = False Then Exit Sub
      MsgBox "Chemin à considérer : " & Chemin
Range("A" & Range("A65536").End(xlUp).Row + 1) = Chemin
End Sub

A+ à tous

 

Pièces jointes

• JC Nouveau document V1.zip

  11.7 KB · Affichages: 26

Vote positif 0 Vote négatif

B

bomagicmusic

XLDnaute Occasionnel

• 22 Décembre 2008

• #10

Re : localiser un fichier sur le disque dur

ça ça me plait!!! j'avais essayé mais il me manquait le "&"

Range("A" & Range("A65536").End(xlUp).Row + 1) = Chemin

Je vais me passer du userform pour l'instant

merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Décembre 2008

• #11

Re : localiser un fichier sur le disque dur

Bonjour à tous,

Merci de ton retour.

Je précise que le code est une adaptation du code de mDF 😉 et qu'il s'ouvre dans le répertoire où est situé le fichier mais qu'il est possible de naviguer

Au plaisir de te lire

A+ à tous

 

Vote positif 0 Vote négatif