Discussion :

[tazamorte]

Bonjour


J'essay de faire une procédure permettant d'enregistrer le document word courant dans le format de mon choix sans toucher au document actuel.

Par exemple mon fichier est maquette.dotm je veux enregistrer le document en docx avec le nom de mon choix mais continuer à travailler sous mon maquette.dotm

VOici mon code actuel qui ne me permet pas de travailler sous maquette.dotm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub Export_Word(NomFichier As String, NomDir As String, Compatible2k3 As Boolean)
 
    Dim NomFic As String
    NomFic = NomDir
 
    'Change de répertoire
    ChangeFileOpenDirectory NomDir
 
    'Init Nom Fichier
   If Compatible2k3 Then
        NomFic = NomFic & "\" & NomFichier & ".doc"
         ActiveDocument.SaveAs fileName:=NomFic, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
    Else
        NomFic = NomFic & "\" & NomFichier & ".docx"
         ActiveDocument.SaveAs fileName:=NomFic, FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
   End If
 
 
End Sub

la seule solution que je vois et de le réenrgistrer par dessus en maquette.dotm si quelqu'un à une solution plus propre

[ouskel'n'or]

Regarde copyas dans l'aide

[tazamorte]

le problème de copyas est qu'il ne permet pas de changer de format il copie le document avec le format en cours. C'est pour cela que j'avais spécifié en mettant son format.

[ouskel'n'or]

Autant pour moi, je ne l'ai même pas retrouvé dans l'aide.
Regarde plutôt SaveAs, il y a une page à lire mais c'est instructif.
Tu enregistres d'abord ton doc en tant que Doc, puis tu l'enregistres avec SaveAs
A+

[tazamorte]

si tu regardes le code que j'ai mis j'utilise déjà le saveas pour l'aide je l'ai déjà lu mais rien ne me convient dans mon cas pour info je pense que tu confonds copyas avec savecoopyas qui n'existe que sous excel et qui ne gére pas les formats.

[ouskel'n'or]

SaveAs te conduit à la propriété saveFormat qui affiche... tout ça

SaveFormat, propriété
Voir aussi S'applique à Exemple Particularités
Renvoie le format de fichier du convertisseur de document ou de fichier spécifié. Il s'agit d'un nombre unique spécifiant qu'il s'agit d'un convertisseur de fichiers externe ou d'une constante WdSaveFormat. Type de données Long en lecture seule.

Les constantes WdSaveFormat possibles sont les suivantes :
wdFormatDocument
wdFormatDOSText
wdFormatDOSTextLineBreaks
wdFormatEncodedText
wdFormatHTML
wdFormatRTF
wdFormatTemplate
wdFormatText
wdFormatTextLineBreaks
wdFormatUnicodeText

expression.SaveFormat

expression Obligatoire. Expression qui renvoie l’un des objets de la liste S’applique à.

Notes
Pour enregistrer un document dans un format de fichier pour lequel il n'existe aucune constante WdSaveFormat, utilisez la valeur de la propriété SaveFormat correspondant à l'argument FileFormat de la méthode SaveAs.

Exemples
Si le document actif est un document RTF (Rich Text Format), cet exemple montre comment l'enregistrer en tant que document Microsoft Word.

Code :

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

1
2
3
If ActiveDocument.SaveFormat = wdFormatRTF Then
    ActiveDocument.SaveAs FileFormat:=wdFormatDocument
End If

Cet exemple montre comment créer un document et répertorier dans un tableau les convertisseurs permettant d'enregistrer des documents, ainsi que les valeurs de la propriété SaveFormat qui leur correspondent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub FileConverterList()
    Dim cnvFile As FileConverter
    Dim docNew As Document
 
    'Create a new document and set a tab stop
    Set docNew = Documents.Add
    docNew.Paragraphs.Format.TabStops.Add _
        Position:=InchesToPoints(3)
 
    'List all the converters in the FileConverters collection
    With docNew.Content
        .InsertAfter "Name" & vbTab & "Number"
        .InsertParagraphAfter
        For Each cnvFile In FileConverters
            If cnvFile.CanSave = True Then
                .InsertAfter cnvFile.FormatName & vbTab & _
                    cnvFile.SaveFormat
                .InsertParagraphAfter
            End If
        Next
        .ConvertToTable
    End With
 
End Sub

Cet exemple montre comment enregistrer le document actif au format WordPerfect 5.1 ou 5.2 Fichier secondaire.

Code :

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

1
2
ActiveDocument.SaveAs _
    FileFormat:=FileConverters("WrdPrfctDat").SaveFormat

Bonne lecture
A+

[tazamorte]

Merci mais cela ne me permet toujours pas de faire ce que je veux certes ont choisi le format avec saveformat mais cela revient au même que de le spécifier en argument dans saveas.

[ouskel'n'or]

A force de lire ta question je crois que je viens de comprendre (cépasûr)
Tu as plusieurs dot, ayant chacun des styles définis.
Tu as un doc ouvert que tu voudrais enregistrer selon le modèle de ton choix...
Si c'est ça, tu as autre une solution...
Consite à sélectionner un modèle de style, modèle que tu auras préalablement enregistré.
Tu enregistes ton fichier sous un autre nom et tu lui appliques le style de ton choix.
Tape "Création d'un nouveau style" dans l'aide intuitive.
Bonne lecture
Mais dis-moi si j'ai bien compris, ce coup-ci
A+

[jomree]

Bonjour,

ma question n'est peut être pas appropriée mais bon, je la pose quand même :
Comment faîtes-vous pour que la librairie word vous propose ce format :

Code :

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

wdFormatXMLDocument

Je suppose que cela correspond au format openXML...?
Parce que perso, je ne peut disposer que de ce format :

Code :

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

wdFormatXML

Cela doit venir du fait que la librairie d'import de word que j'utilise est la librairie Word 11, et donc pas le word 2007.
J'ai cependant un plugin qui me permet d'enregistrer sous docx depuis word 2003, la question concrète est donc : comment faire pour pouvoir enregistrer sous docx depuis le code en n'ayant pas word 2007 installé sur le pc...?
Si une âme charitable passe par ici...
Merci