existence fichier ? (résolu)

[Philippe63000]

Bonsoir,

Le code ci-dessous ne marche pas. Pourriez-vous s'il vous plaît m'aider à le faire fonctionner.

cordialement,

sub test()
Dim Fichier As String
I = 1

' le fichier sera nommé classeur_travailx.xlsm avec x>=1
'---------------------------------------------------------------
Fichier = chemin & "classeur_travail" & I & ".xlsm"

'test si le fichier existe déjà et prendre le premier nom libre
'-----------------------------------------------------------------------
Do While Dir(Fichier) <> ""
' si il existe alors on incrémente I et on teste l'existence de classeur_travailI.xlsm
'----------------------------------------------------------------------------------------
I = I + 1
Fichier = chemin & "classeur_travail" & I & ".xlsm"
Loop

' en cas d'erreur 
'------------------------------------------------------------
On Error Resume Next
ActiveWorkbook.SaveAs Fichier, FileFormat:=52
 
if error>0 then msgbox "erreur"

end sub

 

[JCGL]

Re : existence fichier ?

Bonjour à tous,

Il me semble que Chemin n'est pas défini.

A + à tous

 

[Philippe63000]

Re : existence fichier ?

Bonsoir,

Effectivement j'ai oublié de définir la variable chemin dans mon exemple.Pardon. Mais ce n'est pas l'origine de l'erreur.
Cordialement

 

[Compte Supprimé 979]

Re : existence fichier ?

Bonjour Philippe63000, salut mon JC

Petite modif à faire si le chemin n'est pas définit avec backslash de fin

Fichier = chemin & "\classeur_travail" & I & ".xlsm"

A+

 

[Philippe63000]

Re : existence fichier ?

Bonsoir,

Le programme ci-dessous lit l'erreur et donc ne sauvegarde rien. Merci de votre aide,
cordialement

Sub test()
Dim Fichier As String
I = 1
chemin = "c:\Documents and Settings\Philippe\Mes documents\Projet VBA\"
' le fichier sera nommé classeur_travailx.xlsm avec x>=1
'---------------------------------------------------------------
Fichier = chemin & "classeur_travail" & I & ".xlsm"

'test si le fichier existe déjà et prendre le premier nom libre
'-----------------------------------------------------------------------
Do While Dir(Fichier) <> ""
' si il existe alors on incrémente I et on teste l'existence de classeur_travailI.xlsm
'----------------------------------------------------------------------------------------
I = I + 1
Fichier = chemin & "classeur_travail" & I & ".xlsm"
Loop

' en cas d'erreur
'------------------------------------------------------------
On Error Resume Next
ActiveWorkbook.SaveAs Fichier, FileFormat:=52
 
If Error > 0 Then MsgBox "erreur"

End Sub

 

[Compte Supprimé 979]

Re : existence fichier ?

Re,

Ton code fonctionne très bien, il faut juste changer la dernière ligne

If Err.Number > 0 Then MsgBox "erreur"

A+

 

[Philippe63000]

Re : existence fichier ?

Merci à tous