[Résolue]Chemin d'acces d'un document

[Cypat]

Bonjour,

Je souhaiterai créer via un formulaire une sorte de module "upload".
Je m'explique, j'aimerai pour cela, cliquer sur un bouton afin d'ouvrir une boite de sélection des fichiers (cette partie est déjà faite) mais ce que je n'arrive pas à faire c'est récupérer dans une textbox le chemin d'accès complet (ex: x:\fichier\doc1.doc) ainsi que le nom du fichier (ex: doc1) dans une autre textbox.

Voici mon code pour ouvrir ma boite de sélection:

Private Sub CommandButton1_Click()
        nf = Application.GetOpenFilename("Fichiers Doc,*.doc")
  Set TextBox1.Value = cheminComplet

    If Not nf = False Then
    End If
End Sub

Je n'arrive pas a trouver ce que je veut de manière claire. je trouve des bribes auxquel je ne comprend pas tout.

En vous remerciant.

 

[ERIC S]

Re : Chemin d'acces d'un document

Bonjour

essaie :

msgbox (thisworkbook.path & " - " & activewindow.caption)

c'est de tête

 

[Cypat]

Re : Chemin d'acces d'un document

Euh ce n'est pas tout a fait ca.
J'arrive a avoir lechemin du fichier dans lequel je travail non pas celui que je selectionne via ma boite de sélection :x

Tout de même merci 🙂

 

[Robert]

Re : Chemin d'acces d'un document

Bonjour Cypat, Éric, bonjour le forum,

De tête aussi (mais c'est pas la même tête...) :

TextBox1.Value = ThisWorkbook.Path
TextBox2.Value = ThisWorkook.Name

 

[Cypat]

Re : Chemin d'acces d'un document

Merci pour vos réponse,
mais le problème est le même, ce que j'obtien c'est le répertoire et le nom de mon fichier dans lequel je travail, non pas celui que je sélectionne :x


Je vous ai mis mon formulaire en pièce jointe pour vous faire une idé plus précise de ce que je veut faire.

Lorsque je clique sur Ajout fichier, cela m'ouvre mon userform1.
Je voudrait que dans ce userform1 lorsque je clique sur "fichier..." et que je sélectionne un fichier, cela me mette le chemin d'accès et le nom (sans l'extansion) du fichier dans les cases Textbox1 et Textbox2

Merci 🙂

 

[ERIC S]

Re : Chemin d'acces d'un document

Re

le chemin + le nom se trouvent dans nf

il faut par contre repérer le dernier \ et à droite le nom, à gauche le chemin

 

[ERIC S]

Re : Chemin d'acces d'un document

re

a essayer

Private Sub CommandButton1_Click()
        nf = Application.GetOpenFilename("Fichiers Doc,*.doc")
    If Not nf = False Then
    End If
   
   For i = Len(nf) To 1 Step -1
    If Mid(nf, i, 1) = "\" Then
        Me.TextBox1.Value = Left(nf, i - 1)
        Me.TextBox2.Value = Mid(nf, i + 1, Len(nf) - i + 1)
        Exit For
    End If
   Next
   
   
   
End Sub

 

[Cypat]

Re : Chemin d'acces d'un document

Oki, en trifouillant un peu je suis arriver à quelques chose, pour le chemin, je vais chercher du coté de nf (dans l'aide VBA j'imagine que sa doit pouvoir se trouver ?)

Je vous tiens au courant pour le nom, merci de votre aide ! 🙂

Voici le code que j'ai utiliser:

cheminFichier = Application.GetOpenFilename
If VarType(cheminFichier) = vbBoolean Then
    GoTo fin
End If
    
UserForm1("TextBox1") = cheminFichier

fin:

 

[Cypat]

Re : Chemin d'acces d'un document

Ah désolé réponse entre temps 🙂

Merci beaucoup c'est pil poil ça !

Je vais tout de même allez jeter un oeil sur l'aide, ce sera je pense instructif.

 

[WUTED]

Re : [Résolue]Chemin d'acces d'un document

Bonjour le fil,

J'avais fait ça si tu veux, ça fait la même chose que le code d'Eric en enlevant aussi l'extension du nom du fichier :

Private Sub CommandButton1_Click()
  Dim nf As Variant
  Dim strName As String
  Dim i As Integer, j As Integer
  nf = Application.GetOpenFilename("Fichiers Doc,*.doc")
  i = Len(nf) - 1
  Do
      If Mid(nf, i, 1) = "\" Then
          Me.TextBox1.Value = Mid(nf, 1, i)
          strName = Mid(nf, i + 1, Len(nf))
          Exit Do
      Else
          i = i - 1
      End If
  Loop

  j = Len(strName) - 1
  Do
      If Mid(strName, j, 1) = "." Then
          Me.TextBox2.Value = Left(strName, j - 1)
         Exit Do
      Else
          j = j - 1
      End If
  Loop
End Sub

Bonne journée,
WUTED

 

[Cypat]

Re : [Résolue]Chemin d'acces d'un document

Salut,
Wuted, je viens d'essayer ton code pour une autre application d'ailleurs. Le soucis c'est que si on fait annulé sur la boite de dialogue, on obtient une erreur. J'ai essayer de diverse manière mais impossible, je n'y arrive pas. As tu par hasard la solution?

D'avance, Merci

 

[ERIC S]

Re : [Résolue]Chemin d'acces d'un document

Bonjour

sans avoir essayé

nf = Application.GetOpenFilename("Fichiers Doc,*.doc")
if nf="" then msgbox "pas de sélection, arrêt" : exit sub

 

[WUTED]

Re : [Résolue]Chemin d'acces d'un document

Bonjour Cypat et merci ERIC S,

Au temps pour moi, j'avais complètement oublié de gérer ce genre d'exception. Cela devrait bien fonctionner avec la modification qu'ERIC S a donné.

EDIT : modifie juste la condition dans le if qu'ERIC S a donné, l'opendialog renverra un false :

  nf = Application.GetOpenFilename("Fichiers Doc,*.doc")
  If nf = False Then MsgBox "pas de sélection, arrêt": Exit Sub

Bonne soirée,
WUTED

 

[Cypat]

Re : [Résolue]Chemin d'acces d'un document

Ah ! je n'avais pas mis le exit sub !

Merci à tous les deux !