Aide vba sous access
Nicolas
-
blux Messages postés 2001 Date d'inscription Statut Modérateur Dernière intervention -
blux Messages postés 2001 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Voici mon code :
Private Sub Editer_Click()
Dim oWdApp As Word.Application
Dim oWdDoc As Word.Document
Dim Machin As String
Machin = InputBox("Veuillez entrer le nom du fichier")
While Machin = ""
MsgBox ("Erreur de saisie, veuillez recommencer")
Machin = InputBox("Veuillez entrer le nom du fichier")
Wend
Set oWdApp = CreateObject("Word.Application")
'Si nécessaire...
oWdApp.Visible = True
'Créer nouveau document
Set oWdDoc = oWdApp.Documents.Add
'Ajouter deux lignes de texte
oWdApp.Selection.TypeText ([Form_Formulaire Cartons Jaunes].NOM)
oWdApp.Selection.TypeText ([Form_Formulaire Cartons Jaunes].PRENOM)
With oWdDoc
'Sauver le document
.SaveAs ("E:\Stage Bailly-Comte\essai.doc")
'Fermer le document
.Close
End With
oWdApp.Quit
Set oWdApp = Nothing
End Sub
Et ma question c'est de savoir comment donner un nom de fichier spécifique au lieu de donner toujours le nom essai.doc, j'aimerais que le nom du fichier soit celui que j'entre dans l'inputbox suivante :
Machin = InputBox("Veuillez entrer le nom du fichier").
Merci d'avance pour votre aide
Voici mon code :
Private Sub Editer_Click()
Dim oWdApp As Word.Application
Dim oWdDoc As Word.Document
Dim Machin As String
Machin = InputBox("Veuillez entrer le nom du fichier")
While Machin = ""
MsgBox ("Erreur de saisie, veuillez recommencer")
Machin = InputBox("Veuillez entrer le nom du fichier")
Wend
Set oWdApp = CreateObject("Word.Application")
'Si nécessaire...
oWdApp.Visible = True
'Créer nouveau document
Set oWdDoc = oWdApp.Documents.Add
'Ajouter deux lignes de texte
oWdApp.Selection.TypeText ([Form_Formulaire Cartons Jaunes].NOM)
oWdApp.Selection.TypeText ([Form_Formulaire Cartons Jaunes].PRENOM)
With oWdDoc
'Sauver le document
.SaveAs ("E:\Stage Bailly-Comte\essai.doc")
'Fermer le document
.Close
End With
oWdApp.Quit
Set oWdApp = Nothing
End Sub
Et ma question c'est de savoir comment donner un nom de fichier spécifique au lieu de donner toujours le nom essai.doc, j'aimerais que le nom du fichier soit celui que j'entre dans l'inputbox suivante :
Machin = InputBox("Veuillez entrer le nom du fichier").
Merci d'avance pour votre aide
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Aide vba sous access
- Access appdata - Guide
- Migration base access vers sql server - Télécharger - Gestion de données
- Get access - Télécharger - Récupération de données
- Commun file upload access denied - Forum Services en ligne
- Incompatibilité de type vba ✓ - Forum Programmation
3 réponses
Salut,
tu crées une variable "NomFic as String" et tu la remplis comme ça (après la saisie/contrôle de Machin cependant) :
A+ Blux
tu crées une variable "NomFic as String" et tu la remplis comme ça (après la saisie/contrôle de Machin cependant) :
NomFic = "E:\Stage Bailly-Comte\" & MachinEnsuite, tu l'utilises comme ça :
.SaveAs (NomFic)--
A+ Blux
"Les cons, ça ose tout. C'est même à ça qu'on les reconnait"
Voici mon code:
'Ajouter deux lignes de texte
oWdApp.Selection.TypeText ([Form_Formulaire Cartons Jaunes].NOM)
oWdApp.Selection.TypeText ([Form_Formulaire Cartons Jaunes].PRENOM)
J'aimerais tout simplement que PRENOM s'affiche en dessous de NOM car comme écrit ci-dessus cela s'écris à la suite de NOM.
merci d'avance
'Ajouter deux lignes de texte
oWdApp.Selection.TypeText ([Form_Formulaire Cartons Jaunes].NOM)
oWdApp.Selection.TypeText ([Form_Formulaire Cartons Jaunes].PRENOM)
J'aimerais tout simplement que PRENOM s'affiche en dessous de NOM car comme écrit ci-dessus cela s'écris à la suite de NOM.
merci d'avance
