Re : Problème N°auto sur modele
Bonsoir Papou-net,
C'est bien ce que je pensais, le MkDir ne fonctionne pas et je ne sais pas pour quelles raisons.
[/CODE]
Tiens c'est bizarre, ça tourne sans problème sur mon ordi
le dossier se créer en fonction du nom en B5, et si il existe, le fichier se place directement dedans.
Bon, sinon pour ton code , déjà merci à toi d'avoir pris de ton temps pour résoudre mon problème, je n'arrive pas à le faire tourner, ça fait deux bonnes heures que j'essaie....
Pour commencer
Lorsque j'ouvre le fichier modele j'ai une erreur "impossible d'accéder à Modele.xlt
bug sur la ligne "ActiveWorkbook.SaveCopyAs (Application.TemplatesPath & "Modele.xlt")"
ensuite bug sur la sauvegarde
Sub sauve()
' par Ange Ounis, adapté par Papou-net
Dim S As String, D As String, F As String, i As Byte
D = Range("B5")
F = Range("G2") & ".xls"
'dossier à trouver ou créer
S = "C:\Documents and Settings\Emmanuel\Mes documents\"
'si pas trouvé, on le crée sous dossier par sous dossier
If Dir(S, vbDirectory) = "" Then
D = Split(S, "\")(0) & "\"
For i = LBound(Split(S, "\")) + 1 To UBound(Split(S, "\"))
D = D & Split(S, "\")(i) & "\"
On Error Resume Next
MkDir D
On Error GoTo 0
Next
End If
ActiveWorkbook.SaveAs S & D & "\" & F
End Sub
c'est sur la ligne activeworkbook.saveas
Ne peut accéder au fichier c:\mes doc
le nom du fichier ou le n'existe pas
je me suis tromper quelque part!!!
ça commence à devenir une histoire de fou.......
Bonne soirée
Cordialement,
Manu