VBA excel Erreur 462
jdmdb
-
Gord21 Messages postés 918 Date d'inscription Statut Membre Dernière intervention -
Gord21 Messages postés 918 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une erreur dans mon code au niveau de
WrdDoc.Selection.TypeText Variable:=total
Si quelqu un a une idée je suis preneur
Sub ajout_presse()
Dim ligne As Integer
Dim WrdApp As Object
Dim WrdDoc As Object
Dim total As String
Dim Revue As String
Dim Titre As String
Dim description As String
Dim note As Integer
Dim id As Double
ligne = ActiveCell.Row
Titre = Cells(ligne, 3).Value
note = Cells(ligne, 5).Value
description = Cells(ligne, 7).Value
Set WrdApp = CreateObject("Word.Application")
Set WrdDoc = WrdApp.Documents.Open("C:\Documents and Settings\invite2\Mes documents\Pige\Revue_Presse.docx")
WrdApp.Visible = True
total = Titre & vbCrLf & "Note : " & note & " /5" & vbCrLf & description
WrdDoc.Selection.TypeText Variable:=total
End Sub
Merci d'avance et a bientot
J'ai une erreur dans mon code au niveau de
WrdDoc.Selection.TypeText Variable:=total
Si quelqu un a une idée je suis preneur
Sub ajout_presse()
Dim ligne As Integer
Dim WrdApp As Object
Dim WrdDoc As Object
Dim total As String
Dim Revue As String
Dim Titre As String
Dim description As String
Dim note As Integer
Dim id As Double
ligne = ActiveCell.Row
Titre = Cells(ligne, 3).Value
note = Cells(ligne, 5).Value
description = Cells(ligne, 7).Value
Set WrdApp = CreateObject("Word.Application")
Set WrdDoc = WrdApp.Documents.Open("C:\Documents and Settings\invite2\Mes documents\Pige\Revue_Presse.docx")
WrdApp.Visible = True
total = Titre & vbCrLf & "Note : " & note & " /5" & vbCrLf & description
WrdDoc.Selection.TypeText Variable:=total
End Sub
Merci d'avance et a bientot
A voir également:
- VBA excel Erreur 462
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide