fopy12
Habitué
Bonjour ,
J'aurais besoin d'une aide sur un problème.
En fait le code ci dessous me permet dans un premier temps de crééer un nouveau répertoire.
Ensuite j'aimerais créer un nouveau fichier excel et l'enregistrer dans ce nouveau répertoire qui vient d'être crééer.
C'est là que ça bloque : au niveau du chemin où le fichier doit être enregistré (la dernière ligne de code).
Merci d'avance de votre aide
J'aurais besoin d'une aide sur un problème.
En fait le code ci dessous me permet dans un premier temps de crééer un nouveau répertoire.
Ensuite j'aimerais créer un nouveau fichier excel et l'enregistrer dans ce nouveau répertoire qui vient d'être crééer.
C'est là que ça bloque : au niveau du chemin où le fichier doit être enregistré (la dernière ligne de code).
Merci d'avance de votre aide
Code:
Option Explicit
' 1.CREER NOUVEAU DOSSIER ET LUI DONNER LE NOM DU "MOIS EN COURS"
'-------------------------------------------------------------------------------------------------------
Sub NvoTaborMois()
Dim MonChemin As String
MonChemin = "C:\My Documents\AUTRES"
On Error Resume Next
MkDir MonChemin & "\" & UCase(Format(Date, "mmmm"))
On Error GoTo 0
End Sub
' 2. enregistrer
'----------------------------------------------------------
'Créér un nouveau fichier Excel
Dim NvoClasseur As Workbook
Set NvoClasseur = Workbooks.Add
Dim MessageB
MessageB = MsgBox("Veuillez coller les données extraites", 1)
If MessageB = vbCancel Then 'si l'utilisateur clique sur "annuler"
NvoClasseur.Close 'alors fermer le classeur nouvellement créé
End If
'Sauvegarde du Nouveau Classeur
NvoClasseur.SaveAs Filename:="C:\My Documents\AUTRES" & MonChemin & "\monclasseur.xls"
End Sub