Re: Demo => Tester l’existence d’un fichier
Michel semble avoir DEUX problèmes...
LE PREMIER :
il ne sait pas que je reçois systématiquement un mail quand quelqu'un post quelque chose quand je suis impliqué dans une ficelle. (CheckBox cochée en bas...) Par conséquent il est strictement inutile et même risqué de me poser une question sur un nouveau post, puisque là je ne recois pas d'email... En plus les gens qui liront ce post "Pour THierry" n'y comprendrons rien...
LE SECOND
un problème de fonctionnement dans cette démo... (voici son post)
QUOTE================================
Auteur: Michel
Date: 13-11-02 19:35
Encore une fois merci pour ta démo(instuctive pour un débutant ).
A charge de revanche (mais ds un autre domaine! )
Tout marche au poil chez moi sauf...
Si le fichier existe, c'est le compagnon office qui prend la main et non changeNom.
Tu sais pourquoi?
A+ et merci.
UNQUOTE==============================
Salut Michel,
Ce n'est pas normal... Qu'est-ce qu'il dit ce C.. de Compagnon ?
Normalement Test2 puis Test3 gèrent TOTALEMENT la possibilité "si le fichier existe"...
De toutes façons il faut aussi changer un petit truc dans le code de sauvegarde... En effet, on ne dit pas à excel OU sauver... Donc il va sauver le fichier dans le répertoire par défaut... Il faut un ChDir...
(PS si on travaille en réseau ou plusieurs Hard Drives, ou un disque dur divisé, on peut aussi insérer une ligne au dessus de ChDir... avec ChDrive "X", X étant un maping sur un Serveur, la lettre du Disque... etc.. inutile si on a que "C")
Sub Sauvegarde()
Application.ScreenUpdating = False
Dim Msg, style, Title, Response
Msg = "Le Fichier : " & Fichier & " va être sauvé... êtes vous d'accord ? "
style = vbYesNo + vbInformation
Title = "Validation Sauvegarde "
Response = MsgBox(Msg, style, Title)
If Response = vbYes Then
Sheets("Test").Copy
ChDir Chemin <======================== A AJOUTER
ActiveWorkbook.SaveAs Filename:=Fichier
ActiveWorkbook.Close savechanges:=False
Else: Exit Sub
End If
End Sub