jecirbe
XLDnaute Junior
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:
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
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:
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
Dernière édition: