Discussion :

[alex.a]

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 :

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

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.

[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

[Invité]

Bonsoir Alex.a,

Alsimbad semblant avoir un doute, je confirme :

Code :

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

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.

[ouskel'n'or]

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

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

[alsimbad]

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

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

[alex.a]

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