Discussion :

[fpicaut]

Bonjour,

Je souhaiterais créer une macro qui enregisre le fichier de la manière suivante:

CDI-ONYME-Anne.doc

CDI est dans un champ de formulaire, idem pour ONYME et Anne.

Voici le début de mon code:

Code :

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

1
2
3
4
5
Sub norma()
 
ActiveDocument.SaveAs FileName:="G:\Contrats de Travail\Chrono\" & "CONTRAT" & "PRENOM" & "NOM" & " " & ".doc"
 
End Sub

Merci pour votre aide.

[Ltspitfire]

Bonjour fpicaut,

Tu as uniquement ça comme code ?
Car déjà tes variables ne sont pas déclarées
Les champs tu les remplis via un userform?

Cordialement,
Ltspitfire

[Heureux-oli]

Salut,

Si ce sont des champs de formulaire, on récupère la valeur des champs de cette manière :

http://heureuxoli.developpez.com/off...aires/#L5-B-10

[fpicaut]

Ok merci,


Donc, si j'ai bien capté, il faut mettre:

Code :

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

1
2
3
4
5
6
7
8
9
ActiveDocument.FormFields(1).Result
 
Sub norma()
 
ActiveDocument.FormFields(1).Result
 
ActiveDocument.SaveAs FileName:="G:\Contrats de Travail\Chrono\" & "CONTRAT" & "PRENOM" & "NOM" & " " & ".doc"
 
End Sub

...ça marche pas ....

Merci d'avance.
Fabrice.

[Heureux-oli]

Salut,

Ecrit de cette manière, le contraire m'aurait surpris.

Code :

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

1
2
3
4
5
Sub EnregistrerAvecChamp()
 
ActiveDocument.savesas "C:\temp\" & Activedocument.FormFields("BlaBla").Result & ..............
 
End Sub

[fpicaut]

Hélas non ...

Code :

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

1
2
3
4
5
Sub norma()
 
ActiveDocument.savesas "G:\Contrats de Travail\Chrono\" & ActiveDocument.FormFields("NOM").Result
 
End Sub

Merci.

[Heureux-oli]

Salut,

Essaie de faire un debug.print sur ton ActiveDocument.FormFields("NOM").Result

Je suis certain de la syntaxe et du résultat à obtenir.

[fpicaut]

Tu voudras bien m'excuser, je suis très débutant...c'est quoi ?

Merci à toi,

[pgz]

Bonjour.

Essaie de faire cela

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
Sub norma()
Dim sPath As String
 
sPath = "G:\Contrats de Travail\Chrono\"
 
With ActiveDocument
    sPath = sPath & .FormFields("CONTRAT")
    Debug.Print sPath
    sPath = sPath & .FormFields("PRENOM")
    Debug.Print sPath
    sPath = sPath & .FormFields("NOM")
    Debug.Print sPath
 
    .SaveAs sPath & ".doc"
End With
 
End Sub

Si tu ouvres la fenêtre d'exécution de l'éditeur VB, tu verras les différentes valeurs de sPath.
Sans les debug.print, tu peux aussi exécuter au pas à pas et ouvrir la fenêtre des variables locales.

Cordialement,

PGZ

[fpicaut]

Ca marche, mais le fichier n'a pas le nom CONTRAT NOM PRENOM .doc mais 707070.doc

Merci.

[Heureux-oli]

Salut,

Qu'est-ce qui marche ?

Si c'est le code, il ne contient pas d'erreur, il va donc s'exécuter.
Quelles sont les valeur que tu obtiens dans la fenêtre d'exécution lorsque le code est fini ?

[fpicaut]

Le fichier se créer, masi je cherche à ce que le fichier se nomme avec les valeurs du champ.
Exemple: Le champ NOM contient la valeur dupont. Le but est que le fichier se nomme dupont.doc .
Actuellement, il renvoit 70.doc

Merci.

[pgz]

Bonsoir.

Dans la procédure proposée il y a 3 instructions "Debug.print" qui doivent provoquer des inscriptions dans la fenêtre d'exécution, lors de l'exécution de la procédure. Peux-tu dire ce que tu y lis ? Ca pourrait aider !

Cordialement,

PGZ

[fpicaut]

Oui, je ne dois pas être très doué...il n'y a rien...

[pgz]

Bonjour.

Si tu ne trouves pas la fenêtre d'éxecution, dans le code remplace chaque Debug.Print par MsgBox

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
Sub norma()
Dim sPath As String
 
sPath = "G:\Contrats de Travail\Chrono\"
 
With ActiveDocument
    sPath = sPath & .FormFields("CONTRAT")
    MsgBox "sPath = " & sPath
    sPath = sPath & .FormFields("PRENOM")
    MsgBox "sPath = " & sPath
    sPath = sPath & .FormFields("NOM")
    MsgBox "sPath = " & sPath
 
    .SaveAs sPath & ".doc"
End With
 
End Sub

Lors de l'exécution, tu dois voir 3 messages successifs et tu notes à chaque fois ce que tu vois.

Cordialement,

PGZ

[fpicaut]

Ok,

La réponse:

Spath:"G:\Contrats de Travail\Chrono\70
Spath:"G:\Contrats de Travail\Chrono\7070
Spath:"G:\Contrats de Travail\Chrono\707070

Et il crée le fichier.

Merci.

[Heureux-oli]

Salut,

Tes champs contiennent 70.
Le résultat obtenu avec ton nom de fichier est conforme.

[fpicaut]

Salut,

Les champs contiennent un type de contrat (CDI), un nom (Dupont), un prénom (marcel)...
Je ne comprends pas ...

[Heureux-oli]

Salut,

Les mesures que nous t'avons demandé de mettre en place pour des tests servent en général à faire du débogage.
En utilisant soit des Debug.Print ou des MsgBox, on demande l'affichage des certaines choses pendant l'exécution de la procédure.

Dans ton cas, les champs contiennent "70".

Soit les objets que tu souhaites utiliser ne sont pas les bons, soit ils ne contiennent pas la valeurs que tu penses.

[fpicaut]

Ok, il s'agit de signets et renvoi de signets qui font office de champs.
Le document est un contrat qui contient un formulaire.
L'utilisateur remplit ces champs. Une fois remplis, les renvois de signets viennent remplir le contrat.
Mon but est de me servir du contenu de ces champs ou signets pour nommer le fichier et donc là, je séche sérieusement sur le 70 .

Merci.