Mettre la main à la Path

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Mettre la main à la Path

PGreg

Bonjour, :hello:

Je voudrais utiliser la commande Path, pour trouver l' emplacement de fichiers. Voilà ce que j' ai fait :

Workbook("XXX" ).Path

Est -ce que l' on pourrait me dire ce qui ne vas pas, ou me donner la commande approprié.

Merci

Publicité

Epena

Bonjour,
C'est une erreur de syntaxe :
Chemin =Workbooks("XXX" ).Path

@+

PGreg

Bonjour,

Merci d' avoir répondu, mais le problème reste entier, sur la phrase ci -dessous :

MsgBox Workbooks("XXX" ).Path

Le débogueur me signale que "L' indice n' appartient pas à la séléction".

Qu 'est ce qui ne vas pas ?

Merci

Epena

Boujour
Je ne comprend pas car Workbooks("perso.xls" ).Path donne le chemin du classeur perso.xls. "XXX" existe-t-il ?
Est-ce le chemin par défaut des classeurs qui est recherché :
Chemin =Application.DefaultFilePath
J'espère avoir fait avancé le problème.

PGreg

Bonjour,

Pour mon classeur, il existe bel et bien. Et que le chemin soit par défault ou pas, le programme trouve toujours une erreur à cet commande. Pourtant, il n' y a aucun problème pour trouver le chemin de l' object ActiveWorkbook (?)

Est -ce que vous auriez d' autre idée de se qui ne pourrait pas marcher ?

Merci

Epena

Bonjour,

Si Workbooks("XXX" ).Path renvoit une erreur, c'est que le classeur n'est pas ouvert. Dans ce cas, il faut rechercher le fichier.

Soit, il est dans le répertoire courant et alors, le fichier peut être ouvert sans chemin de fichier :

Code :

Dim NomFichier As String
NomFichier = "Classeur1.xls"
Workbooks.Open FileName:=NomFichier
Chemin = Workbooks(NomFichier).Path
Workbooks(NomFichier).Close
'Cela revient à écrire'
Chemin = CurDir
If Dir(Chemin & "\" & NomFichier) <> "" Then MsgBox Chemin

Dans le cas contraire, il faut rechercher le fichier par FileSearch avec recherche dans les sous-répertoires ou Dir(). C'est une opération beaucoup plus longue:

Code :

Sub Test()
Dim NomFichier As String
NomFichier = "Classeur1.xls"
With Application.FileSearch
.NewSearch
.LookIn = "C:\Documents and Settings"
.SearchSubFolders = True
.FileName = NomFichier
.MatchTextExactly = True
'.FileType = msoFileTypeExcelWorkbooks'
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
While InStr(pos + 1, .FoundFiles(i), "\" ) <> 0
pos = InStr(pos + 1, .FoundFiles(i), "\" )
Wend
Dossier = Left(.FoundFiles(i), pos)
MsgBox "NomFichier : " & .FoundFiles(i) & vbLf & "Dossier : " & Dossier
Next i
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub

Cordialement

Epéna

PGreg

Bonjour,

Merci Epéna, il me manquait juste un petit rien.

PGrég

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Mettre la main à la Path

Sujets relatifs
Probleme de main	[SQL] un coup de main pour rouler mon join?
Mettre un formulaire dans un mail	Mettre à jour un classeur Excel intégré dans un formulaire Access
[ HTML / JS ] innerHTML et beaucoup de code à mettre dedans	initialiser un tableau 2D ds le main
Mettre en évidence les flux inter-applicatifs	Main et valeur de retour
Peut on mettre une variable globale dans un gotoandplay ?	peut-on mettre un "onclick=...." dans PHP ?
Plus de sujets relatifs à : Mettre la main à la Path

Page générée en 0.063 secondes