DEbutant Option Explicit

[krazy21]

Bonsoir désolé si mon titre est un peu vague... j'ai un petit souci avec un script et étant débutant c'est a dire 2 petit jour je recontre un problem qui me bloque...


1ere partie

Option Explicit
Const DossierFichiers As String = "C:\"
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ListeFichiersDans DossierFichiers
End Sub

2e partie

Private Sub ListeFichiersDans(ByVal NomDossier As String)

Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.file
Dim r As Long


Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(NomDossier)
           
r = 1
For Each Fichier In DossierSource.Files
r = r + 1
Next Fichier
         
Range("NUMBER").Value = r
     
Set Fichier = Nothing
Set DossierSource = Nothing
Set FSO = Nothing

End Sub

Mon probleme se situe dans la premiere partie.... je souhaiterais ne pas définir de dossier précis car mon application doit fonctionner sur plusieur pc dont les repertoire ne seront pas les meme... Je souhaiterais donc utiliser un chemin d'acces connu dans une cellule nommé ARCHIVESADRESS... mais impossible d'y arriver...

Donc est-ce possible ? Si oui How.... svp.

Merci par avance.

 

[dufagri]

Re : DEbutant Option Explicit

Bonjour,
Alors, je suis certainement encore plus mauvais que toi là dedans, mais j'étais également en quête de ce type d'info, alors va faire un tour sur cette discussion, tu trouveras peut-etre ce qu'il te faut

 

[krazy21]

Re : DEbutant Option Explicit

Merci de ta réponse. Je mesuis rendu sur ton post mais rien ne m'a aidé je continu de chercher.... ;-)
Merci

 

[tirex28]

Re : DEbutant Option Explicit

Bonsoir,

Je souhaiterais donc utiliser un chemin d'acces connu dans une cellule nommé ARCHIVESADRESS... mais impossible d'y arriver...

MsgBox ThisWorkbook.Names("ARCHIVESADRESS").RefersToRange.Value

Cordialement,

Tirex28/

 

[krazy21]

Re : DEbutant Option Explicit

Tout d'abord merci pour ta reponse mais dsl tyrex je ne comprend pas trop...

je souhaite remplacer dans

Option Explicit

Const DossierFichiers As String = "C:\mesdocs...."

par une "formule" lui demandant d'aller chercher ce lien contenu dans ma case ARCHIVESADRESS...

Je sais pas si je me fais bien comprendre ou bien je ne comprend pas ta rep... fort possible aussi... :-s

 

[tirex28]

Re : DEbutant Option Explicit

Re,

Ta constante est inutile puisque tu dis toi meme que son contenu est variable.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ListeFichiersDans ThisWorkbook.Names("ARCHIVESADRESS").RefersToRange.Value
End Sub

Ceci envoi la valeur de la cellule nommée ArchiveAdress à la procédure ListeFichiers.

cordialement,

Tirex28/

 

[krazy21]

Re : DEbutant Option Explicit

Merci infiniment... je m'obstinais a garder cette option...

Merci tyrex....

 

[kiki29]

Re : DEbutant Option Explicit

Soir Bon, qqch comme :

...
Dim DossierFichiers As String
    DossierFichiers = Range("ARCHIVESADRESS")
    ListeFichiersDans DossierFichiers
...