Erreur de code avec Excel 2003

[STEN]

Bonjour, j'ai un problème avec un classeur qui a été fait
avec Excel 97 ou 2000 je ne sais pas exactement.
enfin toujours est-il que lorsque je veux faire des
modifications sur mon PC, moi je tourne avec Office 2003
a chaque fois que je sort d'une feuille il me met un
message d'erreur:

Microsoft Excel ne peut accéder au fichier
"C:\Transfert\Statistiques". Plusieurs raisons possibles:
*Le nom du fichier ou le chemin n'existe pas
*Ce fichier est actuellement utilisé par un autre
programme.
*Le classeur que vous essayer d'enregistrer porte le même
nom qu'un classeur actuellement ouvert.

Voici le code qui se trouve sur chaque feuille:

Private Sub CmdMenu_Click()

Application.DisplayAlerts = False
JANVIER.Select
JANVIER.cmdPrint.Visible = False
JANVIER.cmdMenu.Visible = False

JANVIER.Copy
SaveInMyFolder

JANVIER.cmdPrint.Visible = True
JANVIER.cmdMenu.Visible = True

ActiveWorkbook.SaveAs "C:\Transfert\Statistiques\" &
ActiveSheet.Name & _
" P" & ActiveSheet.Range(" S1").Value & _
Format(Date, " yyyy"), xlNormal, "", "", False, False
ActiveWorkbook.Close
MsgBox ActiveSheet.Name & Format(Date, " yyyy") & _
" Sauvegarder", vbInformation, ActiveSheet.Name

Application.DisplayAlerts = True

MENU.Activate
End sub

Voici le code de la procédure SaveInMyFolder
(que j'ai récupérer sur le forum, merci a ses auteurs)

Sub SaveInMyFolder()
Dim x As String, strPath As String
On Error Resume Next
strPath = "C:\Transfert\Statistiques\"
x = GetAttr(strPath) And 0
If Err <> 0 Then
MkDir strPath
End If

End Sub

J'espère ne pas avoir écrit un message trop long et que
vous pourrez éclairer ma lanterne.

Merci à tous!

[Philippe.R]

Bonsoir,
Une piste
Un petit coup d'oeil du côté d'Outils / Options / Onglet général / Ignorer les autres applications
Si la case est cochée, la décochée.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"STEN" <jste...@aol.com> a écrit dans le message de news:161fd01c4170b$d254d2f0$a501...@phx.gbl...

[STEN]

>-----Message d'origine-----

>Salut Philippe
J'ai essayer ce que tu m'as dit mais rien à faire le
problème persiste je ne sais pas quoi faire?
Si tu as une idée elle sera la bien venue.
>

[Philippe.R]

Bonsoir STEN,
En dehors de la piste proposée, je ne vois pas trop et passe mon tour.
Désolé

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"STEN" <jste...@aol.com> a écrit dans le message de news:16dfa01c41807$62b34510$a301...@phx.gbl...

[Philippe.R]

Re,
Une piste encore tout de même :
Vérifier à l'aide de l'enregistreur de macros la validité du chemin demandé en procédant à un
enregistrement à la main sous l'oeil dudit enregistreur.

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"STEN" <jste...@aol.com> a écrit dans le message de news:16dfa01c41807$62b34510$a301...@phx.gbl...

[STEN]

>-----Message d'origine-----

>Salut,
Rien à faire toujours le même problème j'ai aussi
vérifier les références rien, je ne sais plus quoi faire
le pire c'est que tout fonctionne normalement au boulot
sur plusieurs PC alors ?????????
Eventuellement je peut fournir le classeur a qui cela
interresse, j'attend vos propositions!
Merci à tous
>

[Frédéric Sigonneau]

Bonjour,

Je ne sais pas si cela va résoudre ton problème, mais je voudrais juste attirer
ton attention sur le fait que si le chemin "C:\Transfert\Statistiques" n'existe
pas sur la machine où tu travailles, la procédure SaveInMyFolder ne va pas le
créer. En effet, elle utilise MkDir, qui ne peut créer qu'un dossier à la fois.
Pour que MkDir puisse créer le dossier Statistiques, il faut que le dossier
Transfert existe au préalable, sinon MkDir ne fait rien...

Pour créer des chemins de toute pièce, quelques solutions possibles dans ces
modules de code :

http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/CreeRepertoireEtChemin.txt
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/CreeRepertoireEtChemin2.txt

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

STEN a écrit: