Discussion :

[jojo86]

Bonjour, je m'arrache les cheveux sous Excel 2007.
J'ai une procédure de mise à jour automatique du fichier qui marche très bien sous 2003 et qui ne marche pas sous 2007...
Voici la dite procédure (les lignes qui bloquent)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ThisWorkbook.SaveAs Chemin + "Fichier_OLD.xls"
Kill NomFichierFull 'Ancien nom de fichier avec Chemin complet
FileCopy "C:\LE\CHEMIN_VERS\Fichier.xls", Chemin + NomFichier(CStr(NomFichierFull))

Je tiens a préciser que les chemins des variables sont corrects je les ai vérifiés avec des MsgBox pas à pas...

Le soucis : Mon fichier est bien enregistré sous le nouveau nom Fichier_OLD.xls, si ensuite je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ActiveWorkBook.name

J'ai bien le nom Fichier_OLD.xls
Mais l'ancien fichier refuse de se supprimer. J'ai essayé une autre procédure de suppression à la place de "KILL" mais le résultat est le même.

Qu'en pensez-vous?

Merci de votre aide.
Cordialement,
Jojo

[Philippe Tulliez]

Bonjour,
Attention que dans ton sujet tu indiques que cela ne fonctionne pas sous Excel 2003 alors que dans ton explication tu dis que c'est en 2007 que cela ne fonctionne pas.
Es-tu sûr que ton fichier n'est pas ouvert ?

Voici la dite procédure (les lignes qui bloquent)

Quel message d'erreur as-tu ?

[jojo86]

Bonjour,
En faite je n'ai aucun message d'erreur... Rien à signaler 2007 passe sur les lignes comme si tout était bon sauf que le fichier n'est pas supprimé...
J'ai ajouté avant la suppression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(NomFichierFull).Close

Mais rien à signaler.
Aucune erreur signalée.

[Philippe Tulliez]

Bonjour,
Je viens de faire un test et je te confirme que l'instruction KILL fonctionne bien en 2007

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim file As String
  file = ThisWorkbook.Path & "\" & "Classeur2.xlsx"
  Kill file

[Philippe Tulliez]

Bonjour,
Es-tu absolument sûr du contenu de ta variable NomFichierFull

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Kill NomFichierFull 'Ancien nom de fichier avec Chemin complet
FileCopy "C:\LE\CHEMIN_VERS\Fichier.xls", Chemin + NomFichier(CStr(NomFichierFull))

Je ne comprends pas ton code.
D'abord tu indiques que NomFichierFull est ' Ancien nom de fichier avec Chemin complet', donc un String et ensuite tu copies vers Chemin + NomFichier(CStr(NomFichierFull)). Alors là tu ajoutes un chemin à une variable qui est déjà un chemin + un nom de fichier que de plus tu convertis en string CStr(NomFichierFull) j'avoue que pour moi tout cela est très confus.

[jojo86]

NomFichier() est une fonction qui ressort le nom du fichier seul :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function NomFichier(NomFull As String)
Dim PosXls As Integer
Dim PosCoupe As Integer
Dim Chemin As String
PosXls = InStr(1, NomFull, ".xls")
PosCoupe = PosXls
While Mid(NomFull, (PosCoupe - 1), 1) <> "\"
    PosCoupe = PosCoupe - 1
Wend
NomFichier = Mid(NomFull, (PosCoupe), Len(NomFull) - (PosCoupe - 1))
End Function

Je l'ai supprimé en mettant dans mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Chemin = ThisWorkbook.Path & "\"
ThisWorkbook.SaveAs Chemin + "FICHIER_OLD.xls"
Kill NomFichierFull
FileCopy "C:\CHEMIN\VERS_FICHIER\FICHIER.xls", NomFichierFull
MsgBox "La mise à jour est terminée, Veuillez relancer le fichier.", vbInformation, "Relancer Fichier"
ThisWorkbook.Close

Toujours le même problème...
Le fichier n'est pas supprimé, j'ai ajouté un MsgBox juste après le Kill et le fichier est toujours présent je vous certifie que mon chemin est correct.
Sous 2003 Aucun soucis je le répète.