repertoire et fichier

[gds35]

Bjr a tous mes AMIS du forum et bon WE,
voila j'ai ce code :
Private Sub UserForm_Initialize()
'
ICI JE VEUX TESTER SI LE REPERTOIRE BCTEMP EXISTE
AINSI QUE LE FICHIER BROUILLARDCAISSE SI OUI TOUT SUPPRIME ET PASSER
A LA SUITE SI PAS D'EXISTENCE PASSER DIRECTEMENT A LA SUITE
'
LA SUITE
'Dim Action As String
Action = "FAIT"
'
'**************************************
'* INITIALISATION DE L'USF INITETAPE2 *
'* SUIVI DES TACHES DE REMISE A ZERO *
'* DU BROUILLARD DE CAISSE *
'**************************************
'
'****************************************
'* CREATION DU REPERPERTOIRE TEMPORAIRE *
'* ET INDICATION DS L'USF TACHE FAITE *
'****************************************
'
MkDir ("C:\HAPPYCREPES\BCTEMP")
INITBCLAB1.Caption = Action
'
'****************************************
'* COPIE DU BC DE C:\HAPPYCREPES VERS *
'* C:\BCTEMP *
'* ET INDICATION DS L'USF TACHE FAITE *
'****************************************
'
FileCopy "C:\HAPPYCREPES\BrouillardCaisse.xls", _
"C:\HAPPYCREPES\BCTEMP\BrouillardCaisse.xls"
INITBCLAB2.Caption = Action
'
End Sub

D'avance encore MERCI de votre Aide GDS35

 

[MichelXld]

Re : repertoire et fichier

bonjour


Vérifier si un fichier existe

Sub Test()
    MsgBox FichierExiste("C:\Documents and Settings\dossier\dataBase.mdb")
End Sub
 
Function FichierExiste(NomFichier As String) As Boolean
    FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function

Vérifier si un dossier existe

Sub Test()
    MsgBox DossierExiste("C:\Documents and Settings\Nom Dossier")
End Sub

Function DossierExiste(NomDossier As String) As Boolean
    DossierExiste = Dir(NomDossier, vbSystem + vbDirectory + vbHidden) <> ""
End Function

bonne journée
michel
Microsoft Excel MVP

 

[gds35]

Re : repertoire et fichier

MERCI Michel , mais etant encore debutant en VBA ne sais comment l'icorporer a mon code transmis ,suis qqqqqqqq++++ paumé ..... GDS35