Vérifier l'existence d'un repertoire avant de lancer une procédu re
5 réponses
Pat rednef
Re Bonjour,
Je souhaite protéger une application, et pour ce souhaite trouver un code
qui me permette de dire:
"Si le répertoire c:\toto\tutu\tata existe alors faire la macro ....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques
Bonjour,
If Dir(Chemin, vbDirectory) <> "" Then MsgBox Chemin & " Existe" Else Exit Sub End If
Pat rednef wrote:
Re Bonjour,
Je souhaite protéger une application, et pour ce souhaite trouver un code qui me permette de dire: "Si le répertoire c:tototututata existe alors faire la macro ....
Sinon sortir et ne rien faire
Merci d'avance pour votre aide
Pat
-- Cordialement,
Jacques.
Bonjour,
If Dir(Chemin, vbDirectory) <> "" Then
MsgBox Chemin & " Existe"
Else
Exit Sub
End If
Pat rednef wrote:
Re Bonjour,
Je souhaite protéger une application, et pour ce souhaite trouver un code
qui me permette de dire:
"Si le répertoire c:tototututata existe alors faire la macro ....
If Dir(Chemin, vbDirectory) <> "" Then MsgBox Chemin & " Existe" Else Exit Sub End If
Pat rednef wrote:
Re Bonjour,
Je souhaite protéger une application, et pour ce souhaite trouver un code qui me permette de dire: "Si le répertoire c:tototututata existe alors faire la macro ....
Sinon sortir et ne rien faire
Merci d'avance pour votre aide
Pat
-- Cordialement,
Jacques.
anonymousA
bonjour,
utiliser la fonction chdir et gerer l'erreur par
on error resume next ChDir "c:tototututata" if err.number<>0 then exit sub 'Instructions ici pour faire la macro que l'on souhaite
A+
Re Bonjour,
Je souhaite protéger une application, et pour ce souhaite trouver un code qui me permette de dire: "Si le répertoire c:tototututata existe alors faire la macro ....
Sinon sortir et ne rien faire
Merci d'avance pour votre aide
Pat
bonjour,
utiliser la fonction chdir et gerer l'erreur par
on error resume next
ChDir "c:tototututata"
if err.number<>0 then exit sub
'Instructions ici pour faire la macro que l'on souhaite
A+
Re Bonjour,
Je souhaite protéger une application, et pour ce souhaite trouver un code
qui me permette de dire:
"Si le répertoire c:tototututata existe alors faire la macro ....
on error resume next ChDir "c:tototututata" if err.number<>0 then exit sub 'Instructions ici pour faire la macro que l'on souhaite
A+
Re Bonjour,
Je souhaite protéger une application, et pour ce souhaite trouver un code qui me permette de dire: "Si le répertoire c:tototututata existe alors faire la macro ....
Sinon sortir et ne rien faire
Merci d'avance pour votre aide
Pat
Jacques
Bonjour,
Cette méthode implique par précaution de faire au préalable un ChDrive, ou cas ou le répertoire recherché n'est pas sur le disque ou la partition courante, et a pour inconvénient de changer de répertoire courant, ce qui n'est pas obligatoirement le but.
anonymousA wrote:
bonjour,
utiliser la fonction chdir et gerer l'erreur par
on error resume next ChDir "c:tototututata" if err.number<>0 then exit sub 'Instructions ici pour faire la macro que l'on souhaite
-- Cordialement,
Jacques.
Bonjour,
Cette méthode implique par précaution de faire au préalable un
ChDrive, ou cas ou le répertoire recherché n'est pas sur le disque ou la
partition courante, et a pour inconvénient de changer de répertoire
courant, ce qui n'est pas obligatoirement le but.
anonymousA wrote:
bonjour,
utiliser la fonction chdir et gerer l'erreur par
on error resume next
ChDir "c:tototututata"
if err.number<>0 then exit sub
'Instructions ici pour faire la macro que l'on souhaite
Cette méthode implique par précaution de faire au préalable un ChDrive, ou cas ou le répertoire recherché n'est pas sur le disque ou la partition courante, et a pour inconvénient de changer de répertoire courant, ce qui n'est pas obligatoirement le but.
anonymousA wrote:
bonjour,
utiliser la fonction chdir et gerer l'erreur par
on error resume next ChDir "c:tototututata" if err.number<>0 then exit sub 'Instructions ici pour faire la macro que l'on souhaite
-- Cordialement,
Jacques.
anonymousA
Bonjour
exact. Pas pensé à priori à ces cas de figure là.
A+
Bonjour,
Cette méthode implique par précaution de faire au préalable un ChDrive, ou cas ou le répertoire recherché n'est pas sur le disque ou la partition courante, et a pour inconvénient de changer de répertoire courant, ce qui n'est pas obligatoirement le but.
anonymousA wrote:
bonjour,
utiliser la fonction chdir et gerer l'erreur par
on error resume next ChDir "c:tototututata" if err.number<>0 then exit sub 'Instructions ici pour faire la macro que l'on souhaite
-- Cordialement,
Jacques.
Bonjour
exact. Pas pensé à priori à ces cas de figure là.
A+
Bonjour,
Cette méthode implique par précaution de faire au préalable un
ChDrive, ou cas ou le répertoire recherché n'est pas sur le disque ou la
partition courante, et a pour inconvénient de changer de répertoire
courant, ce qui n'est pas obligatoirement le but.
anonymousA wrote:
bonjour,
utiliser la fonction chdir et gerer l'erreur par
on error resume next
ChDir "c:tototututata"
if err.number<>0 then exit sub
'Instructions ici pour faire la macro que l'on souhaite
Cette méthode implique par précaution de faire au préalable un ChDrive, ou cas ou le répertoire recherché n'est pas sur le disque ou la partition courante, et a pour inconvénient de changer de répertoire courant, ce qui n'est pas obligatoirement le but.
anonymousA wrote:
bonjour,
utiliser la fonction chdir et gerer l'erreur par
on error resume next ChDir "c:tototututata" if err.number<>0 then exit sub 'Instructions ici pour faire la macro que l'on souhaite
-- Cordialement,
Jacques.
Pat rednef
Merci à vous deux,
les 2 sont Ok chacun son style, mais cela est très bien !
sincèrement
Pat
Bonjour,
If Dir(Chemin, vbDirectory) <> "" Then MsgBox Chemin & " Existe" Else Exit Sub End If
Pat rednef wrote:
Re Bonjour,
Je souhaite protéger une application, et pour ce souhaite trouver un code qui me permette de dire: "Si le répertoire c:tototututata existe alors faire la macro ....
Sinon sortir et ne rien faire
Merci d'avance pour votre aide
Pat
-- Cordialement,
Jacques.
Merci à vous deux,
les 2 sont Ok chacun son style, mais cela est très bien !
sincèrement
Pat
Bonjour,
If Dir(Chemin, vbDirectory) <> "" Then
MsgBox Chemin & " Existe"
Else
Exit Sub
End If
Pat rednef wrote:
Re Bonjour,
Je souhaite protéger une application, et pour ce souhaite trouver un code
qui me permette de dire:
"Si le répertoire c:tototututata existe alors faire la macro ....
les 2 sont Ok chacun son style, mais cela est très bien !
sincèrement
Pat
Bonjour,
If Dir(Chemin, vbDirectory) <> "" Then MsgBox Chemin & " Existe" Else Exit Sub End If
Pat rednef wrote:
Re Bonjour,
Je souhaite protéger une application, et pour ce souhaite trouver un code qui me permette de dire: "Si le répertoire c:tototututata existe alors faire la macro ....
