Modification chemin

Moreno076 · 29 Septembre 2013

Bonsoir,

voilà je souhaiterais modifier le chemin de recherche de fichiers.
Actuellement la macro ci-dessous cherche les fichiers 1 2 et3 dans le dossier ou se trouve le fichier.
Je souhaiterais que le chemin soit unique dans le dossier c:\alpha\

comment modifier la macro svp? Merci

Sub VerifDossier()
If ExisteClassseur(ThisWorkbook.Path & "\fichier1.xls") = False Then Err.Raise vbObjectError + 1, "fichier1.xls"
If ExisteClassseur(ThisWorkbook.Path & "\fichier2.xls") = False Then Err.Raise vbObjectError + 1, "fichier2.xls"

End Sub

fhoest · 30 Septembre 2013

Re : Modification chemin

Re,
pourquoi abandonné?

test le fichier.
A+😉

Moreno076 · 30 Septembre 2013

Re : Modification chemin

J'y suis depuis ce matin et je n'y arrive pas. Ton fichier pareil ne fonctionne pas ca me supprime carrément les onglets de la feuille.

fhoest à dit:
Re,
pourquoi abandonné?

test le fichier.
A+😉

fhoest · 30 Septembre 2013

Re : Modification chemin

Bonsoir,
pas bien grave tout ça , ce n'est pas mon fichier mais ton fichier et ce n'est qu'une proposition,tiens j'ai modifié si tu veux encore tester tu peux ,si pas et que tu veux abandonner ,je trouve cela dommage ,mais après tout c'est ton choix.
ça supprimé les feuilles car dans le code que j'avais mis en exemple ne gérer pas les erreurs derrière mais afficher un message pour que tu comprennes comment le code fonctionne.

A+ (peu être)

Moreno076 · 30 Septembre 2013

Re : Modification chemin

Merci on m'a résolu le probleme !

il suffisait de rajouter Public Const Chemin = "c:\extractions reappro\" et là je met le chemin que je veux quel que soit le lieu du fichier.

Merci quand meme

fhoest à dit:
Bonsoir,
pas bien grave tout ça , ce n'est pas mon fichier mais ton fichier et ce n'est qu'une proposition,tiens j'ai modifié si tu veux encore tester tu peux ,si pas et que tu veux abandonner ,je trouve cela dommage ,mais après tout c'est ton choix.
ça supprimé les feuilles car dans le code que j'avais mis en exemple ne gérer pas les erreurs derrière mais afficher un message pour que tu comprennes comment le code fonctionne.

A+ (peu être)

fhoest · 1 Octobre 2013

Re : Modification chemin

Bonjour,
En fait ça fait exactement la même chose que ce que je te proposé au départ sauf que tu n'avais pas parlé de cette ligne

Code:

Set F = fs.GetFolder(Chemin)

donc forcement ça ne pouvait pas fonctionner correctement du départ,
de toute façon c'est bien mieux comme solution de passer par une variable comme on te la proposer.
Bonne continuation.
A bientôt.

Moreno076 · 1 Octobre 2013

Re : Modification chemin

Oui merci

A+

fhoest à dit:
Bonjour,
En fait ça fait exactement la même chose que ce que je te proposé au départ sauf que tu n'avais pas parlé de cette ligne

Code:

Set F = fs.GetFolder(Chemin)

donc forcement ça ne pouvait pas fonctionner correctement du départ,
de toute façon c'est bien mieux comme solution de passer par une variable comme on te la proposer.
Bonne continuation.
A bientôt.

Modification chemin

Moreno076

XLDnaute Impliqué

fhoest

XLDnaute Accro

Pièces jointes

Moreno076

XLDnaute Impliqué

fhoest

XLDnaute Accro

Pièces jointes

Moreno076

XLDnaute Impliqué

Pièces jointes

fhoest

XLDnaute Accro

Moreno076

XLDnaute Impliqué

Discussions similaires

Modification chemin

Moreno076

XLDnaute Impliqué

fhoest

XLDnaute Accro

Pièces jointes

Moreno076

XLDnaute Impliqué

fhoest

XLDnaute Accro

Pièces jointes

Moreno076

XLDnaute Impliqué

Pièces jointes

fhoest

XLDnaute Accro

Moreno076

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency