Discussion :

[Al3x300]

Bonjour à tous,

Voilà mon soucis:
je dois enregistrer un document word généré automatiquement.
je l'enregistre avec un nom qui est récupéré sur le document par une recherche sur vba (jusque la pas de problème)
dans un dossier comportant en partie le même nom.
Exemple : le nom récupéré est 15A001 mais le nom du dossier ou je dois enregistrer est 15A001 PORTO.

voila une partie de mon du code

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Sub VerifieExistenceRepertoire()
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "D743/"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
Selection.Find.Execute
    With Selection
        .MoveRight Unit:=wdWord, Count:=1, Extend:=6
    If Selection.Fields.Count = 1 Then Selection.Fields(1).Update
End With
 
 
Dim NumDossier As Variant
Set NumDossier = ActiveDocument.Range(Selection.Start + 5, Selection.End)
Dim NomCourrier As String
NomCourrier = NumDossier & "_AVIS"
 
Dim Chemin As String
 
Chemin = "C:\Users\AG23984N\Desktop\Nouveau dossier\" & NumDossier & "*"
 
 
 
Application.changefileopendirectory "C:\Users\AG23984N\Desktop\Nouveau dossier\" & NumDossier & "*"
 
 
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        NomCourrier + MES, ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
 
End Sub

la fonction dir trouve bien le dossier mais pour définir le chemin pour enregistrer cela ne suffit pas.

Comment puis-je faire ??

Merci

[Heureux-oli]

Salut,

La ligne avec "changefileopendirectory" n'est pas utile.
Il te suffit de l'inclue dans le "filename".

ex : "C:\Temp\monFihier.docm"

Si tu as besoin d'une concaténation, soit tu le fais dans une variable, soit tu le fais en direct dans l'argument.

[Al3x300]

Merci pour ta réponse mais ce n'est pas la question
je met changefileopendirectory plusieurs fois après cette partie

Le problème reste le même comment enregistrer dans un dossier dont je n'est qu'une partie du nom?

[Heureux-oli]

Salut,

Désolé, suis passé à côté.

il faut travailler avec du FSO et chercher dans la liste des répertoire obtenu celui qui contient les morceau que tu as.

http://warin.developpez.com/access/fichiers/

[Marc-L]

Bonjour,

en utilisant la fonction VBA Dir comme pourtant indiqué dans son aide et son exemple …



______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Heureux-oli]

Salut,


Je pense que c'est le "*" qu pose problème.

[Al3x300]

Salut,


La fonction Dir que j'ai essayée marche (pas comme je le voudrai) cad que elle trouve que le dossier existe mais je ne peu pas y enregistrer mon fichier
pour ce qui est des "*" c est ce qui me permet avec Dir de trouver mon dossier sans renseigner le nom complet.

[Heureux-oli]

Salut,

Dans la fonction Dir, je ne dis pas, mais dans les chemins d'enregistrement, les * sont des caractères interdits, il y en a d'autres.

[Al3x300]

Salut à tous ,

Voilà j'ai réussi a résoudre mon propre problème ^^

au cas ou je mets le code avec du FSO (même s'il doit y avoir plus simple)

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
Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim i As Integer
 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set objFolder = objFSO.GetFolder("C:\Users\AG23984N\Desktop\Nouveau dossier\")
i = 1
 
For Each objSubFolder In objFolder.SubFolders
 
 
 
 
If Left(objSubFolder.Name, 6) = NumDossier Then
    CheminAffaire = objSubFolder.Path
 
 
 
End If
 
 
    i = i + 1
Next objSubFolder

[Heureux-oli]

Salut,

Je vais donner mon avis.

il y a certainement pour toncas, plus simple qu'avec FSO, mais avec FSO, quand on maîtrise un peu, on peut faire beaucoup plus.
Et c'est là que ça fait une différence.