pas de problème pour créer répertoire mais pour le classeur

[jecirbe]

Bonjour,
j'utilise excel 2010 (office 32bits) sur windows 7 familiale édition prémium. Ca c'est pour définir le contexte.

Je souhaite créer un répertoire et dans ce répertoire un classeur nommé "conférencier". J'ai compulsé pas de posts sur le net et ici, ce qui m'a permis de créer le répertoire désiré. Par contre malgré les commandes workbooks.add et activeworkbook.saveas , rien du tout. Le classeur s'ouvre mais ne s'enregistre pas. Voici mon code:

Private Sub CommandButton1_Click()
Dim chemin As String, commande As String
Dim repertoire_existe As String, repertoire As String
Call scolarite ' fonction appelée qui détermine Anneesco
repertoire = "C:\mondossier\" & Anneesco & "\"
'MsgBox repertoire
On Error Resume Next
repertoire_existe = GetAttr(repertoire) And vbDirectory
If repertoire_existe = "" Then
    chemin = "C:\mondossier\" & Anneesco & "\"
ChDrive "C"
commande = Environ("comspec") & " /c mkdir " & chemin
Shell commande, 0
MsgBox "Le dossier " & Anneesco & " a été créé avec succès dans le répertoire C:\mondossier\ !"  '<-- jusque là ça fonctionne
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=chemin & "conférencier.xlsm"
ActiveWorkbook.Close
end if
end sub

si quelqu'un peut me dire à quel niveau se trouve l'erreur. Evidence: elle vous aveugle tant qu'elle ne vous saute pas aux yeux

Merci d'avance

 

[Efgé]

Re : pas de problème pour créer répertoire mais pour le classeur

Bonjour jecirbe, le fil, le forum, _ Je te laisse un exemple qui crée : un dossier appelé 2012 contenant 12 dossiers (un par mois) qui contiennent un fichier par jour. _ tu enregistre l'exemple ou tu veux et lance _ Durée du traityement +/- 3 minutes _ Le code est commenté _ En espérant que cela te sera utile _ Cordialement

 

[jecirbe]

Re : pas de problème pour créer répertoire mais pour le classeur

Merci déjà de ta réponse et de me transmettre un exemple
je vais régarder ça et je te tiendrai au courant
cordialement

 

[jecirbe]

Re : pas de problème pour créer répertoire mais pour le classeur

re bonjour Efgé

grâce à la construction de ton exemple et des commentaires très fournis j'ai repéré mon erreur. A la place de :

ActiveWorkbook.SaveAs Filename:=chemin & "conférencier.xlsm"

j'ai mis

ActiveWorkbook.SaveAs Filename:=chemin & "conférencier" & ".xlsm"

et là ça marche.

Merci encore
Cordialement

Jecirbe

 

[Efgé]

Re : pas de problème pour créer répertoire mais pour le classeur

Re
J'en suis, à la fois, fort content et fort surpris.....
Cordialement

 

[JCGL]

Re : pas de problème pour créer répertoire mais pour le classeur

Bonjour à tous,
Salut Fred,

Bravo...
Chez moi 30 secondes en ayant rajouté (pour des besoins personnels) :

End If
        ActiveSheet.Cells(1, 1) = "Données du " & Format(X + i, "dddd dd mmmm yyyy")
        'Sauvegarde du classeur jj_mm_yyyy
        ActiveWorkbook.SaveAs Filename:=sDossier2 & "\" & Format(X + i, "dd_mm_yyyy") & ".xls"

A++
A + à tous