Discussion :

[adamgg]

Bonjour,
Je souhaite ouvrir un fichier qui se trouve sur un serveur, mais l'ouverture de ce fichier est une etape d'une de mes macros, ainsi le nom de ce fichier peut changer et surtout son emplacement. Le changement de nom importe peu aux vues du code par contre la position du fichier joue un role primordiale dans mon code. voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dossier = "V:\40 Maintenance\20 Vehicle Maintenance 1\Chargeable Repairs\Chargables"
Dossierb = Dossier & year & "\additional work\"
Fichier = Dir(Dossier & year & "\additional work\" & "*.xls")
 
While Len(Fichier) > 0
    Application.DisplayAlerts = False
    Set Wbk = Workbooks.Open(Dossierb & Fichier)

Avec ce code je ne recois pas de message d'erreur, mais la suite de mon code ne semble pas s'effectuer. Lorsque je met le dossier sur mon disque et qu'il n'y a pas de changement d'emplacement ca marche sans probleme.
Pouvez-vous m'expliquer l'erreur que je commais ?
cordiqlement

[Invité]

Bonjour,
quand je regarde le contennu de la variable dossier et la rédaction de ton dir rien ne m'étonne!
Et dossierb?

[adamgg]

Au debut j' avais coder sans le dossierb mais du coup j'avais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dossier = "V:\40 Maintenance\20 Vehicle Maintenance 1\Chargeable Repairs\Chargables"
Fichier = Dir(Dossier & year & "\additional work\" & "*.xls")
 
While Len(Fichier) > 0
    Application.DisplayAlerts = False
    Set Wbk = Workbooks.Open(Dossier & Fichier)

mais après je recevais un message d'erreur qui me disais que vba trouvait pas le fichier au niveau du "Set Wbk", du coup j'ai pensé que c'était parce que je lui donné pas le chemin complet d'ou la creation d'un dossier bis "dossierb"" pour lui donner le chemin complet du dossier
Cordialement

[SfJ5Rpw8]

bonsoir,

tu ne nous dit pas clairement ce que tu veux faire ...

si on essai de décoder ton code :

tu recherche si le premier fichier corresondant au filtre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dossier & year & "\additional work\" & "*.xls"

ensuite lors de l'ouverture , tu oublie ta variable "year"...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Wbk = Workbooks.Open(Dossier & Fichier)

elle est passé ou ?

[adamgg]

Ce que je souhaite c'est ouvrir le dossier excel qui est contenue dans un dossier sur un serveur sauf que mon programme doit pouvoir prendre en compte l'année souhaité par l'utilisateur! c'est la raison de la variable year, une fois le dossier ouvert je traite des informations dedans mais cette partie du code marche du coup je vous l'ai pas joint.
je me permets de vous renvoyer au premier message plus spécialement au code suivant qui en fait partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
Dossier = "V:\40 Maintenance\20 Vehicle Maintenance 1\Chargeable Repairs\Chargables"
Dossierb = Dossier & year & "\additional work\"
Fichier = Dir(Dossier & year & "\additional work\" & "*.xls")
 
While Len(Fichier) > 0
    Application.DisplayAlerts = False
    Set Wbk = Workbooks.Open(Dossierb & Fichier

cette version du code est la version la plus évolué vous vous apercevrez qu'ici le year est pris en compte grâce au dossier bis (dossierb)
J’espère avoir répondu a vos questions si ce n'est pas le cas n’hésitez pas
cordialement

[SfJ5Rpw8]

on ne voit pas le code

qui ne s'exécute pas .

...

pourquoi utiliser un While ? tu as une autre instruction Dir plus loin ?