comment récupérer le chemin d'accès d'un répertoire et stocker ce chemin "c:\dossier\...." dans une cellule d'une feuille ?
sinon, j'ai pensé ouvrir le classeur, l'enregistrer sous et ainsi récupérer le chemin d'accès et enuiste effacer le fichier, c'est plus laborieux comme soluce alors si il y a une syntaxe qui récupérère le nom du fichier et que je puisse l'insérer dans une cellule tant mieux. je ne trouve rien sur le sujet dans le forum
La propriété .FullName retourne le chemin complet du fichier ActiveWorkbook.Name
La propriété .Path retourne uniquement le chemin du dossier
Sub macro3()
Dim chemin As String
'Sheets("feuil1").Select
chemin = Workbooks(ActiveWorkbook.Name).FullName
MsgBox "Chemin complet " & chemin
chemin = Workbooks(ActiveWorkbook.Name).Path
MsgBox "Nom du Dossier " & chemin
Sheets("feuil2").Select
Range("C1").Value = chemin
End Sub
l'utilisation de Application.GetOpenFilename est la fonction principale
le reste est une manipulation de chaine.
Ici tout est décomposé ça peut-être utile.
mais on peut simplifier.
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
Sub PathExpole()
Dim MonItem As String
Dim MonPath As String
Dim MonFichier As String
Dim i As Integer
MonItem = "C:\temp\temp2\fichier.xls"
i = InStr(1, StrReverse(MonItem), "\", vbTextCompare)
If i <> 0 Then
MonPath = Left(MonItem, Len(MonItem) - i)
MonFichier = Right(MonItem, Len(MonItem) - i - 2)
End If
MsgBox MonPath & " - " & MonFichier
End Sub
bonjour,
je cherche à faire à peu près la même chose qui est indiquée ici.
Je voudrais récupérer un chemin d'accès mais pas du fichier sur lequel je bosse mais d'un fichier quelconque, en sélectionnant celui-ci via une fenêtre d'exploration.
Je suis relativement précis car j'avais déjà trouvé mais impossible de remettre la main dessus
en fait je me suis un peu précipité, voici mon bout de code, et je n'arrive pas à insérer le chemin du fichier ouvert dans une cellule d'un autre classeur :
Private Sub CommandButton1_Click()
Sheets("feuil1").Visible = True
Dim chemin As String
Sheets("feuil1").Select
chemin = Workbooks(ActiveWorkbook.Name).FullName
Sheets("feuil2").Select
Range("C1").Value = chemin ' ou Range("C1").Value = Workbooks(ActiveWorkbook.Name).FullName
Sub ChChPath()
Dim chemin As String
chemin = ThisWorkbook.FullName
Sheets("feuil2").Select
Range("C1").Value = chemin
'ou..
Range("C1").Value = ThisWorkbook.FullName
End Sub
Function Choix_Repertoire() As String
Dim Fd As FileDialog
Set Fd = Application.FileDialog(msoFileDialogFolderPicker)
Fd.Show
On Error Resume Next
Choix_Repertoire = Fd.SelectedItems(1)
End Function
Code d'appel :
Dim rep As String
rep = Choix_Repertoire
If rep <> vbNullString Then
MsgBox rep
Else
MsgBox "Annulation utilisateur"
End If
normalement avec ce code je devrais pouvoir écrire le chemin d'accès dans la cellule C1 de la feuile 2 et je n'ai rien, franchement, j'ai trituré le code dans tous les sens et je ne comprend pas ? je ne sais pas si vous ca donfciotnne ? je suis sous Excel97, cela provient-il de cela ?
Merci quand même pour le temps que vous me consacrez.
Il faut séparer le problème
tu place le curseur n'importe où dans la macro..
tu tape F8, la 1er ligne est activée (en surbrillance)
tu tape 2fois F8
la ligne en jaune devrait être sur Sheets("feuil2").Select
Je ne sais pas si en 97 ca marcherra mais essaye
promène ma souris sur chemin un bulle devrait afficher ce qu'il y a dans chemin.
Sinon..
Dans la fenêtre du dessous Exécution tu tape
Print Chemin
avec le mode pas à pas, ca affiche bien le chemin d'accès dans la bulle mais ca ne met rien, je crois qu'il y a une histoire de erreur 1004, même en faisant une copie de fichier pour extraire ensuite le chemin d'accès, ca ne fonctionne pas, ca parait plus tordu que je ne pensais ! Désolé pour le mal que tu te donnes.
Bon, première étape OK
Rest donc la 2. 1004 erreur de l'application.
Vérifie si pas d'erreur dans le nom de la feuilles, quelques fois un espace ou un point que l'ont ne voit pas fait buggé.
pour être certain
tu double clic sur l'onglet de la feuille (comme pour l'éditer) ru fait un Copier/coller
tu retourne dans l'IDE et tu fait un coler du nom à la place de sheets2
MErci Lermitte, j'ai laissé tombé, vraiment, je n'avance à rien, je me suis dirigé vers une autre soluce, mais idem, je me heurte à un pb qui a l'air d'agacer plus d'un . Le fameux copier d'une feuiille d'un classeur X et coller la feuille sur un classeur Y en codant VBA..... ca parait encore un truc de fou........ merci bcp pour le temps que tu as passé mais je ne veux pas abuser.
bisous et merci, aurelie.
- Messages postés
-
88
- Date d'inscription
- samedi 19 avril 2008
- Statut
- Membre
- Dernière intervention
- 13 mai 2017
2