[RESOLU] Erreur en cas d'existence du dossier et du classeur.

[Neonours]

Bonjour le forum,

Novice en VBA, je m'améliore de jour en jour mais là, je comprend pas:

J'ai fait une macro qui vérifie si un dossier et un fichier existe.

1:Si aucun des deux n'existent, la macro les créé.

2:Si le dossier existe, la macro créer le fichier.

3:Si aucun les deux existent, la macro m'ouvre une MsgBox qui me le dit.

Les points 1 et 2 fonctionnent à merveille.

Le point 3, par contre, pêche un peu. Il m'ouvre bien la box mais quand je clique sur OK, il me fait une erreur à la ligne du MkDir et me la surligne en jaune.

Quelqu'un aurait une solution et une petite explication?

Voici mon code:

If Dir("C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee, vbDirectory) <> "" And Dir("C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee & "\" & "Veilles " & annee & ".xls", vbNormal) <> "" Then MsgBox "Le classeur demandé existe déjà!" Else
    If Dir("C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee, vbDirectory) <> "" And Dir("C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee & "\" & "Veilles " & annee & ".xls", vbNormal) = "" Then
    Workbooks.Add
    ActiveWorbook.SaveAs Filename:="C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee & "\" & "Veilles " & annee & ".xls"
    Else
        MkDir "C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee
        Workbooks.Add
        ActiveWorkbook.SaveAs Filename:="C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee & "\" & "Veilles " & annee & ".xls"
        End If

D'avance, merci à celles et ceux qui voudront bien se pencher sur mon souci.

Neonours.

 

[tototiti2008]

Re : Erreur en cas d'existence du dossier et du classeur.

Bonjour Neonours,

Peut-être

Dim Doss As String, Fic As String
    Doss = Dir("C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee, vbDirectory)
    Fic = Dir("C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee & "\" & "Veilles " & annee & ".xls", vbNormal)
    If Doss <> "" And Fic <> "" Then
        MsgBox "Le classeur demandé existe déjà!"
    ElseIf Doss <> "" And Fic = "" Then
        Workbooks.Add
        ActiveWorbook.SaveAs Filename:="C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee & "\" & "Veilles " & annee & ".xls"
    Else
        MkDir "C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee
        Workbooks.Add
        ActiveWorkbook.SaveAs Filename:="C:\DONNEES A\DONNEES B\HEURES\VEILLES " & annee & "\" & "Veilles " & annee & ".xls"
    End If

 

[Neonours]

Re : Erreur en cas d'existence du dossier et du classeur.

Bonjour tototiti,

c'est

Peut-être

juste magnifiquement ça.

J'avais pas encore vu le ElseIf, je vais faire un petit F1 histoire de m'instruire un peu plus.

Un grand merci, tu m'enlève une belle épine du pied, je vais pouvoir continuer ma macro.

Neonours.