Version anglaise Version espagnoleVersion française

Samedi 6 septembre 2008 - 19:25:04
inscrits : 955863
connectés : 50326
questions/jour : 4693
Taux de réponse : 76.36%

Inscrivez-vous, c'est gratuit ! (mot de passe oublié)

Par Pertinence Date Nom d'utilisateur dans

Posez votre question Forum Programmation

Options Ils ont besoin de votre aide

19:24 a serious disk error ...writing to c: (Windows)
19:24 probleme de manette (Jeux vidéos)
19:22 comment ce connecter a emule (Logiciels/Pilotes)
19:21 probleme jeux sur itouch 2.0.2 (MacOS)
19:19 Achat de casque (Audio numérique)
19:19 image pour transfert (Infographie/Photo)

Tous les messages sans réponse

Statut : Résolu

VBA excel récupérer chemin accès

aurelie76, le mercredi 7 mai 2008 à 23:27:57

Bonjour,

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

Merci à tous pour votre aide.
aurelie.

Configuration: Windows XP
Internet Explorer 7.0

Répondre à aurelie76 Signaler ce message aux modérateurs Aller au dernier message

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

lermite222, le jeudi 8 mai 2008 à 02:39:36

bonsoir,
Connaître le chemin du fichier

    dim Chemin as string
    Chemin = Application.Path
'ou..
    Range("A1").value = Application.Path

A+

Répondre à lermite222

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

aurelie76, le jeudi 8 mai 2008 à 08:57:30

Merci bcp lermitte222, tu m'aides énormément avec cette instruction, bonne journée bisous, aurelie.

Répondre à aurelie76

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

aurelie76, le jeudi 8 mai 2008 à 09:33:55

bonjour Lermitte222,

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

et ca ne met rien dans C1 ?

Merci pour votre aide,

aurelie

Répondre à aurelie76

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

amigo, le jeudi 8 mai 2008 à 12:57:21

Bonjour,

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

Choisis lequel des deux chemin tu veux garder.

A+.

Répondre à amigo

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

lermite222, le jeudi 8 mai 2008 à 13:29:59

Bonjour,
J'ai mieux compris..

Sub ChChPath()
Dim chemin As String
    chemin = ThisWorkbook.FullName
    Sheets("feuil2").Select
    Range("C1").Value = chemin
'ou..
    Range("C1").Value = ThisWorkbook.FullName
End Sub

A+

Répondre à lermite222

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

aurelie76, le jeudi 8 mai 2008 à 14:33:47

Rebonjour,

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.

aurelie

Répondre à aurelie76

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

lermite222, le jeudi 8 mai 2008 à 14:46:06

Oui j'ai testé et ca fonctionne impec.

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

Et tu dit la réponse..

PS: j'ai tester sur le 2000 je n'ai pas le 97.

Répondre à lermite222

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

aurelie76, le jeudi 8 mai 2008 à 19:52:38

Lermitte222,

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.

aurelie.

Répondre à aurelie76

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

lermite222, le vendredi 9 mai 2008 à 10:06:17

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

Répondre à lermite222

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

aurelie76, le vendredi 9 mai 2008 à 11:41:55

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.

Répondre à aurelie76

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

maestro38, le mercredi 23 juillet 2008 à 20:42:56

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

Répondre à maestro38

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

manon322, le jeudi 7 août 2008 à 16:29:13

comment faire des blog sur skyrock.com et faire ici des gif? svp svp svp

Répondre à manon322

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

manon322, le jeudi 7 août 2008 à 16:29:14

comment faire des blog sur skyrock.com et faire ici des gif? svp svp svp

Répondre à manon322

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Polux31, le jeudi 7 août 2008 à 16:39:40

t'as pas l'impression d'être à coté de la plaque là ??

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau

Répondre à Polux31

Posez votre question Répondre

[VBA-Excel]Récupérer des infos d'un document [VBA Excel] Récupérer le nom du jour d'1 date Macro Excel : récupérer données Access [VBA Excel] Récupérer des Valeurs

Trucs & astuces pertinents trouvés dans la base de connaissances

15/09 11h07	[Excel] Restreindre l'accés aux cellules	Excel
15/02 16h35	[Word] Impossible de rétablir une liaison DDE avec Excel	Word
21/04 11h38	Liens utiles	PHP
20/03 05h02	[Matériel] Packard Bell: Restauration, master	Matériel
15/01 02h30	Le problème du cavalier d'Euler	Prolog

Plus d'astuces sur « VBA excel récupérer chemin accès »

Discussions pertinentes trouvées dans le forum

24/08 12h21	VBA Excel récupérer noms de tables Access	4
05/08 17h34	VBA/Excel - Constantes Chemin	6
05/11 10h27	Macro Excel : récupérer données Access	0
11/09 15h16	[VBA Excel] Récupérer le nom du jour d'1 date	3

Plus de discussions sur « VBA excel récupérer chemin accès »

Logiciels pertinents trouvés dans les téléchargements

	Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...	Catégorie: Tableur Licence: Freeware/gratuit
	MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont...	Catégorie: Tableur Licence: Freeware/gratuit
	Restoration - Restoration est un outil gratuit, en anglais seulement, permettant de récupérer les données effacées, même après avoir vidé...	Catégorie: Sauvegarde Licence: Freeware/gratuit
	download accelerator plus - Download Accelerator Plus (DAP) est un logiciel qui sert à optimiser le temps de téléchargement des logiciels et autres...	Catégorie: Téléchargement Licence: Freeware/gratuit

Plus de logiciels gratuits sur « VBA excel récupérer chemin accès »

Produits relatifs

Linksys WAP54G Wireless Access	Catégorie: Point d'accès pour réseaux sans fil	48.65 € Atlanpolis
3Com Wireless 7760 11a/b/g	Catégorie: Point d'accès pour réseaux sans fil	153.00 € PriceMinister
U.S. Robotics USR805453 Wireless	Catégorie: Point d'accès pour réseaux sans fil
Nortel WLAN Access Point	Catégorie: Point d'accès pour réseaux sans fil	379.53 € Inmac Wstore

Plus de produits sur « VBA excel récupérer chemin accès »