Enregistrer sous le nom d'une variable !!!

Enregistrer sous le nom d'une variable !!! - VB/VBA/VBS - Programmation

Marsh Posté le 12-05-2006 à 15:21:58    

Bonjour,
J'aurai besoin d'un petit coup de main.
Sous excel, je crée un fichier word pour y enregistrer un récapitulatif de ma macro.
 
1) comment fais-on pour enregistrer le fichier sous le nom d'une des variables rentrées
 
ex j'ai une variable s'appelant variable (bcp d'imagination vs me direz) et je fais l'enregistrement suivant :
 
Private Sub imprimer_Click()
 
Dim objet As Object, nom As String
 
nom = "fichier.doc"
'et là j'aimerai bien mettre nom = variable .doc
 
...
 
.ActiveDocument.SaveAs Filename:=nom, FileFormat:=wdFormatDocument
'a moins que ce soit ici
...
 
End Sub
 
2) pour écrire dans word, auriez-vous des petites astuces pour écrire en gras ou centrer (comme vbCrLf par ex) pour la commade suivante:
 
.Selection.TypeText Text:=
 
Merci d'avance :hello:

Reply

Marsh Posté le 12-05-2006 à 15:21:58   

Reply

Marsh Posté le 15-05-2006 à 10:25:16    

personne n'a d'idée???

Reply

Marsh Posté le 15-05-2006 à 12:56:43    

toonsky a écrit :

Bonjour,
J'aurai besoin d'un petit coup de main.
Sous excel, je crée un fichier word pour y enregistrer un récapitulatif de ma macro.
 
1) comment fais-on pour enregistrer le fichier sous le nom d'une des variables rentrées
 
ex j'ai une variable s'appelant variable (bcp d'imagination vs me direz) et je fais l'enregistrement suivant :
 
Private Sub imprimer_Click()
 
Dim objet As Object, nom As String
 
nom = "fichier.doc"
'et là j'aimerai bien mettre nom = variable .doc
 
...
 
.ActiveDocument.SaveAs Filename:=nom, FileFormat:=wdFormatDocument
'a moins que ce soit ici
...
 
End Sub
 
2) pour écrire dans word, auriez-vous des petites astuces pour écrire en gras ou centrer (comme vbCrLf par ex) pour la commade suivante:
 
.Selection.TypeText Text:=
 
Merci d'avance :hello:


 
 
1) nom = variable & ".doc"
2) Ouvre Word, tapes un texte et vas dans Outils - Macro - Enregistrer. La, tu centres et/ou mets en gras ton text puis tu arrêtes la macro. Tu vas dans Outils - Macro - Editeur Visual Basic et tu regardes le code que Word a créé pour mettre en gras ou centrer le texte.
 
Centrer
.Alignment = wdAlignParagraphCenter
 
Gras
.Font.Bold = wdToggle

Reply

Marsh Posté le 16-05-2006 à 14:38:41    

merci bien splitform, ;)

Reply

Marsh Posté le 17-05-2006 à 16:40:20    

pour le petit 2)
 
je veux effectuer ma mise en page de word à partir d'excel, j'intègre cette mise en forme directement dans ma macro excel qui créé le fichier word où seront rentrées les données à sauvegarder.
 
dc pas de problème pour tab et saut de ligne par exemple :
.Selection.TypeText vbCrLf & vbTab  
.Selection.TypeText Text:="mon texte"
 
mais par contre pour centrer, mettre en gras, ..., je ne trouve pas les bonnes commandes
.Selection.Alignment = wdAlignParagraphCenter ???
 
PS : je 'ai pas réussi à faire dans word ce que tu m'as expliqué  
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed