Discussion :

[beegees]

Bonjour le forum,

J'aimerais juste savoir si il est possible en vba de copier un fichier excel et de lui donner un autre nom :

par exemple copier le fichier occupation.xls se trouvant sur \\nomserveur et lui donner ce nom occupationEnTempsReel.xls ?

Si le fichier existe, il faudrait dire oui, remplacer.

C'est possible ?

Merci d'avance.
Bgs

[ouskel'n'or]

Code :

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

ActiveWorkbook.SaveCopyAs NouveauNom

Si tu veux des précision, t'as qu'à demander

A+

[ouskel'n'or]

Je n'avais lu que le titre...
Pour ta seconde question "si le fichier existe déjà"
Précède la ligne précédente de

Code :

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

DisplayAlerts = false

Si ça ne marche pas, tu siffles, doit bien exister une solution...

A+

[beegees]

Code :

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

ActiveWorkbook.SaveCopyAs NouveauNom

Si tu veux des précision, t'as qu'à demander

A+

Salut,

Super ! C'est vraiment ce que je voulais, il fait une copie sur le bon emplacement avec le bon nom.

Maintenant, je dois gérer, si il est déjà ouvert, il ne sera pas mis à jour.

Penses-tu que la gestion des mots de passe soit possible vers ce document ? je m'explique :

Lors de l'ouverture, il faudrait que le mot de passe soit mis pour accepter les modifs et ensuite fermer l'application.

Qu'en penses-tu ?

Merci en tout cas.

bgs

[ouskel'n'or]

Avec ma version, VBA97, non, la gestion du "Password" n'est pas prévue dans la méthode

Pour le mot de passe, tu dois pouvoir rouvrir ton fichier et l'enregistrer avec saveas

Syntaxe de l'aide :

expression.SaveAs(Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodePage, TextVisualLayout)

Si tu veux un exemple...

NB - J'allais préciser mon dernier post (manquait "Application")

Code :

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

1
2
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs NouveauNom

Juste en passant

[beegees]

Si tu as le temps de me donner un exemple, ça serait vraiment super sympa.

Si tu n'as pas le temps c'est pas grave.

J'adore ton logo

Merci en tout cas !

bgs

[ouskel'n'or]

NB - Un de plus... Il faudrait tout de même vérifier si les protections du fichier originel ne sont pas reportées en même temps sur la copie

[ouskel'n'or]

Un exemple, un !

Code :

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

1
2
3
4
        Worksheets("Tables").Protect Password:="zizou"
        Worksheets("Structure Grille").Protect Password:="zizou"
        Worksheets("Fichier").Protect Password:="zizou"
        Workbooks(NomBD).Protect Password:="zizou"

Y'a qu'à demander !

A+

[Megaxel]

C'est pas un "logo", c'est un "dodo"...
Pfouuuh, je dis vraiment n'importe quoi, je commence à être un peu crevé...