cellule spécifique dans chemin d'accès

[Bradvid]

Bonjour le Forum,

J'ai une macro qui va chercher des informations dans plusieurs fichiers, jusque là tout va bien.

Je voudrais puvoir rendre le nom d'un dossier paramétrable, je m'explique :

Voilà un bout de ma macro :

Direction = Dir("K:\Donnees_par_Service\Production\SHOOTING\Budget Prévisionnel Shooting\06-JUIN\*.xls")

Est il possible de remplacer 06-Juin par un code du type:
Sheets("Recap").range("H5").select pour faire référence à une cellule de la feuille recap au lieu qu'il soit écrit en dure dans la macro.

Le code que j'ai inscrit ne fonctionne pas.....

Merci pour votre aide.

 

[Dull]

Re : cellule spécifique dans chemin d'accès

Salut Bradvid, le Forum,


à tester

Direction = Dir("K:\Donnees_par_Service\Production\SHOOTING\Budget Prévisionnel Shooting" & "\" & Sheets("Recap").Range("H5") & "\*" & ".xls")

Bonne Journée

 

[ERIC S]

Re : cellule spécifique dans chemin d'accès

Bonjour

Sheets("Recap").Range("H5").value semble plus propre

un autre pb prévisible : le contenu ressemble à une date (nombre avec affichage) jj-mmm et non à du texte
A vérifier

dans ce cas Format(Range("A1").Value, "dd-mmm")

 

[Bradvid]

Re : cellule spécifique dans chemin d'accès

Salut Dull,

Message d'erreur comme avant :

Il surligne "Recap" et met le message suivant :

Erreur de compilation:
attendu : separateur de liste ou)

tu vois où est l'erreur?

 

[Bradvid]

Re : cellule spécifique dans chemin d'accès

Bonjour

Sheets("Recap").Range("H5").value semble plus propre

un autre pb prévisible : le contenu ressemble à une date (nombre avec affichage) jj-mmm et non à du texte
A vérifier

dans ce cas Format(Range("A1").Value, "dd-mmm")

Bonjour Eric,

même message d'erreur que la méthode de Dull,
NB: la cellule a bien une valeur en format texte et pas date,
Une autre solution?

 

[ERIC S]

Re : cellule spécifique dans chemin d'accès

re

j'ai fait un essai avec

Direction = Dir(ThisWorkbook.Path & "\" & Sheets("feuil1").Range("A1").Value & "\*.pdf")

la synthaxe est bonne pas d'erreur

vérifie tes () et ""

 

[Dull]

Re : cellule spécifique dans chemin d'accès

Re Brad, Salut Eric

Ou se trouve ton Fichier ? dans le même Dossier ?

Si oui
essaye ça

Direction = Sheets("Feuil1").Range("H5").Value & ".xls"
Workbooks.Open (ThisWorkbook.Path & "\" & Direction)

Sinon ... je Cherche

Oui Eric... Bon sang mais c'est bien Sur (C'estbienles5dernièresMinutes)😀
Damned 😱

PS: re Damned

 

[Bradvid]

Re : cellule spécifique dans chemin d'accès

Dull, Eric,

Mon fichier récap n'est pas dans le même dossier que tous les autres fichiers sources....

C quoi "this workbook.Path" car en fait je vais chercher les fichiers sources sur le réseau commun. il me faut donc un chemin d'accès du type C:\....

Merci pour votre aide.

 

[Bradvid]

Re : cellule spécifique dans chemin d'accès

Dull, Eric,

Mon fichier récap n'est pas dans le même dossier que tous les autres fichiers sources....

C quoi "this workbook.Path" car en fait je vais chercher les fichiers sources sur le réseau commun. il me faut donc un chemin d'accès du type C:\....

Merci pour votre aide.

Précision : le "06 - Juin" n'est pas un nom de fichier mais un nom de dossier.

En fait la maccro va chercher tous les fichiers qui sont dans ce dossier.

 

[ERIC S]

Re : cellule spécifique dans chemin d'accès

re

thisworkbook.path, c'était juste pour générer un

c:\..... sur mon ordi

donc normalement la syntaxe est bonne, en remplaçant par "k:....."

 

[Toine]

Re : cellule spécifique dans chemin d'accès

MsgBox "vrejvidjvthu" & fDONE.Cells(1, 1).Value
sa sa marche chez moi donc chez toi sa ferait

("K:\Donnees_par_Service\Production\SHOOTING\Bu dget Prévisionnel Shooting\" & recap.cells(5, 8).value & " \*.xls")

si tu selection juste dans H5

 

[Toine]

Re : cellule spécifique dans chemin d'accès

sinon tu peut prend la valeur de la celule qui est selectioner
tu remplac recap.cells(5, 8).value par
activecell.value

 

[Bradvid]

Re : cellule spécifique dans chemin d'accès

Salut Toine,

ça fonctionne pas chez moi,

d'autres idées.....

 

[Bradvid]

Re : cellule spécifique dans chemin d'accès

Bonjour le forum,

je n'ai toujours trouvé de solution à mon problème :

Je souhaites faire référence à le cellule H5 de la feuille recap dans un chemin d'accès, le code que j'inscrit est le suivant :

Direction = Dir("K:\Donnees_par_Service\Production\SHOOTING\Budget Prévisionnel Shooting\Sheets("Recap").Range("H5")\*.xls")

Le message d'erreur suivent apparaît:

Erreur de compilation:
attendu : separateur de liste ou)

Avez vous une idée d'où l'erreur peut provenir,

Merci pour votre aide.

 

[ERIC S]

Re : cellule spécifique dans chemin d'accès

re

sans doute erreur de ""

Direction = Dir("K:\Donnees_par_Service\Production\SHOOTING\Budget Prévisionnel Shooting\Sheets("Recap").Range("H5")\*.xls")

je penche plutôt pour, à tester:

Direction = Dir("K:\Donnees_par_Service\Production\SHOOTING\Budget Prévisionnel Shooting\" & Sheets("Recap").Range("H5").value & "\*.xls")