Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Project sauvegarde fichier

sauvegarde fichier

3 réponses
Avatar
xav
Bonjour,

j'airais aimais savoir si il existe une commande pour
sauver le fichier en ecrasant un fichier portant le meme
nom sans mettre de message d'alerte

Merci d'avance
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jan De Messemaeker
Bonjour,

C'est possible en VBA, en direct je ne saurais pas comment.
Bien à vous,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"xav" schreef in bericht
news:948c01c345fb$a9c03640$
Bonjour,

j'airais aimais savoir si il existe une commande pour
sauver le fichier en ecrasant un fichier portant le meme
nom sans mettre de message d'alerte

Merci d'avance


Avatar
Karl Stewing - MVP Project
Bonjour -

Vous pourriez essayer ca

On Error Resume Next
If Dir(ActiveProject.FullName) Then
Kill ActiveProject.FullName
End If
ActiveProject.SaveAs ActiveProject.FullName
On Error GoTo 0

- Karl Stewing, Nolège
Project MVP

"xav" a écrit dans le message de news:
948c01c345fb$a9c03640$
Bonjour,

j'airais aimais savoir si il existe une commande pour
sauver le fichier en ecrasant un fichier portant le meme
nom sans mettre de message d'alerte

Merci d'avance


Avatar
Jan De Messemaeker
Bonjour,

Petit supplément

If len(dir(ActiveProject.FullName))>0 then
Car dir rend un string pas un boolean

Bien à vous,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
Project Management Consultancy
Prom+ade BVBA
32-495-300 620
"Karl Stewing - MVP Project" schreef in bericht
news:#
Bonjour -

Vous pourriez essayer ca

On Error Resume Next
If Dir(ActiveProject.FullName) Then
Kill ActiveProject.FullName
End If
ActiveProject.SaveAs ActiveProject.FullName
On Error GoTo 0

- Karl Stewing, Nolège
Project MVP

"xav" a écrit dans le message de news:
948c01c345fb$a9c03640$
Bonjour,

j'airais aimais savoir si il existe une commande pour
sauver le fichier en ecrasant un fichier portant le meme
nom sans mettre de message d'alerte

Merci d'avance