VBA Avertissement à l'enregistrement d'un document
2 réponses
JMD
Bonjour.
J'ai une macro SAVE AS.. qui enregistre le document courant sous un nom
récupéré dans une variable. Je ne comprends pas bien comment faire pour
afficher un message d'avertissement si le document existe déjà dans le
répertoire, afin d'éviter un écrasement systématique.Est-ce possible ?
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
Circé
Bonjour JMD,
Tu peux tester avec la propriété FileSearch:
With Application.FileSearch .LookIn = "C:ton dossier" .FileName = "ta variable.doc" If .Execute = 0 Then ActiveDocument.SaveAs FileName:="tavariable.doc" 'mettre toutes les indications d'enregistrement End If End With
Circé http://faqword.free.fr
JMD a formulé ce mardi :
Bonjour.
J'ai une macro SAVE AS.. qui enregistre le document courant sous un nom récupéré dans une variable. Je ne comprends pas bien comment faire pour afficher un message d'avertissement si le document existe déjà dans le répertoire, afin d'éviter un écrasement systématique.Est-ce possible ?
Merci !!!
Bonjour JMD,
Tu peux tester avec la propriété FileSearch:
With Application.FileSearch
.LookIn = "C:ton dossier"
.FileName = "ta variable.doc"
If .Execute = 0 Then
ActiveDocument.SaveAs FileName:="tavariable.doc" 'mettre toutes les
indications d'enregistrement
End If
End With
Circé
http://faqword.free.fr
JMD a formulé ce mardi :
Bonjour.
J'ai une macro SAVE AS.. qui enregistre le document courant sous un nom
récupéré dans une variable. Je ne comprends pas bien comment faire pour
afficher un message d'avertissement si le document existe déjà dans le
répertoire, afin d'éviter un écrasement systématique.Est-ce possible ?
With Application.FileSearch .LookIn = "C:ton dossier" .FileName = "ta variable.doc" If .Execute = 0 Then ActiveDocument.SaveAs FileName:="tavariable.doc" 'mettre toutes les indications d'enregistrement End If End With
Circé http://faqword.free.fr
JMD a formulé ce mardi :
Bonjour.
J'ai une macro SAVE AS.. qui enregistre le document courant sous un nom récupéré dans une variable. Je ne comprends pas bien comment faire pour afficher un message d'avertissement si le document existe déjà dans le répertoire, afin d'éviter un écrasement systématique.Est-ce possible ?
Merci !!!
JMD
Merci beaucoup.
"Circé" a écrit dans le message de news:
Bonjour JMD,
Tu peux tester avec la propriété FileSearch:
With Application.FileSearch .LookIn = "C:ton dossier" .FileName = "ta variable.doc" If .Execute = 0 Then ActiveDocument.SaveAs FileName:="tavariable.doc" 'mettre toutes les indications d'enregistrement End If End With
Circé http://faqword.free.fr
JMD a formulé ce mardi :
Bonjour.
J'ai une macro SAVE AS.. qui enregistre le document courant sous un nom récupéré dans une variable. Je ne comprends pas bien comment faire pour afficher un message d'avertissement si le document existe déjà dans le répertoire, afin d'éviter un écrasement systématique.Est-ce possible ?
Merci !!!
Merci beaucoup.
"Circé" <circe@aea.gr> a écrit dans le message de news:
mn.8ac47d778a939105.46999@aea.gr...
Bonjour JMD,
Tu peux tester avec la propriété FileSearch:
With Application.FileSearch
.LookIn = "C:ton dossier"
.FileName = "ta variable.doc"
If .Execute = 0 Then
ActiveDocument.SaveAs FileName:="tavariable.doc" 'mettre toutes les
indications d'enregistrement
End If
End With
Circé
http://faqword.free.fr
JMD a formulé ce mardi :
Bonjour.
J'ai une macro SAVE AS.. qui enregistre le document courant sous un nom
récupéré dans une variable. Je ne comprends pas bien comment faire pour
afficher un message d'avertissement si le document existe déjà dans le
répertoire, afin d'éviter un écrasement systématique.Est-ce possible ?
With Application.FileSearch .LookIn = "C:ton dossier" .FileName = "ta variable.doc" If .Execute = 0 Then ActiveDocument.SaveAs FileName:="tavariable.doc" 'mettre toutes les indications d'enregistrement End If End With
Circé http://faqword.free.fr
JMD a formulé ce mardi :
Bonjour.
J'ai une macro SAVE AS.. qui enregistre le document courant sous un nom récupéré dans une variable. Je ne comprends pas bien comment faire pour afficher un message d'avertissement si le document existe déjà dans le répertoire, afin d'éviter un écrasement systématique.Est-ce possible ?