remplacer un fichier par un autre

Version imprimable

25/05/2007, 17h37
alex.a

remplacer un fichier par un autre
Bonjour,

Mon problème est le suivant:

Je crée un fichier lorsque j'exécute mon code, et lorsque je le lance de nouveau je voudrais qu'il me le remplace sans me mettre le message(par défaut): le fichier X existe déja a cet emplacement, voulez vous le remplacer?

j'ai essayé de supprimer mon fichier si il existait déjà, mais sans succès.
Code:

1 2 3 4 5 6 Dim MyFile MyFile = Dir(RepertoireTravail & "Composants-" & NomCarte & ".xls") If MyFile <> "" Then Kill RepertoireTravail & "Composants-" & NomCarte & ".xls" End If
est-ce que la meilleure chose à faire est de procéder ainsi ou exist-il une fonction qui permette de remplacer un fichier?

merci.
25/05/2007, 18h33
alsimbad

je me rapelle plus la syntaxe exacte, et un peu flemme de verifier, mais fait F1 et displayalert = false, ça peut peut etre marcher

Bonsoir Alex.a,

Alsimbad semblant avoir un doute, je confirme :

Code:

1
2
3
4
5
6
7
Dim MyFile
Application.DisplayAlerts = False
   MyFile = Dir(RepertoireTravail & "Composants-" & NomCarte & ".xls")
   If MyFile <> "" Then
   Kill RepertoireTravail & "Composants-" & NomCarte & ".xls"
Application.DisplayAlerts = True
   End If

Amicalement.

25/05/2007, 19h37
ouskel'n'or

Tu as une option dans SaveAs qui permet d'éviter l'affichage de boîte de dialogue

Citation:

ConflictResolution Argument XlSaveConflictResolution facultatif.

XlSaveConflictResolution peut être l'une de ces constantes XlSaveConflictResolution.
xlUserResolution (affiche la boîte de dialogue de résolution des conflits)
xlLocalSessionChanges (accepte automatiquement les changements de l'utilisateur local)
xlOtherSessionChanges (accepte d'autres changements à la place des changements de l'utilisateur local)
Si cet argument n'est pas spécifié, la boîte de dialogue de résolution de conflit s'affiche.

Mais l'aide t'en dira plus ;)
25/05/2007, 19h59
alsimbad

Citation:

Envoyé par ouskel'n'or

Tu as une option dans SaveAs qui permet d'éviter l'affichage de boîte de dialogue

Citation:

Envoyé par ouskestlmeilleur

ConflictResolution Argument XlSaveConflictResolution facultatif.

XlSaveConflictResolution peut être l'une de ces constantes XlSaveConflictResolution.
xlUserResolution (affiche la boîte de dialogue de résolution des conflits)
xlLocalSessionChanges (accepte automatiquement les changements de l'utilisateur local)
xlOtherSessionChanges (accepte d'autres changements à la place des changements de l'utilisateur local)
Si cet argument n'est pas spécifié, la boîte de dialogue de résolution de conflit s'affiche.

Mais l'aide t'en dira plus ;)

wwwhhhhhaaaaaaaaaaa:yaisse2:
29/05/2007, 09h22
alex.a

Merci à tous pour votre aide,
vous m'apportez pas une mais deux solutions possibles, :king: trop fort!

:lahola:
:merci: