naecofranck
XLDnaute Nouveau
Bonjour,
J'essaie d'appliquer des bouts de code que je peux trouver en ligne, et j'ai souvent un problème de typage.
Par exemple, quand je prend le code de cette page :
Je cite le code :
Cela me donne l'erreur :
Erreur de compilation : Type défini par l'utilisateur non défini.
Par contre, quelque chose comme :
Fonctionne.
Comment se fait-il que le code fourni sur le site de Microsoft ne fonctionne pas ? Où est l'astuce ?
J'essaie d'appliquer des bouts de code que je peux trouver en ligne, et j'ai souvent un problème de typage.
Par exemple, quand je prend le code de cette page :
Contrôle d'une application Microsoft Office à partir d'une autre
Référence de langage VBA pour Office
docs.microsoft.com
Je cite le code :
VB:
' You must pick Microsoft Word Object Library from Tools>References
' in the VB editor to execute Word commands.
Sub ControlWord()
Dim appWD As Word.Application
' Create a new instance of Word and make it visible
Set appWD = CreateObject("Word.Application.12")
appWD.Visible = True
' Find the last row with data in the spreadsheet
FinalRow = Range("A9999").End(xlUp).Row
For i = 1 To FinalRow
' Copy the current row
Worksheets("Sheet1").Rows(i).Copy
' Tell Word to create a new document
appWD.Documents.Add
' Tell Word to paste the contents of the clipboard into the new document.
appWD.Selection.Paste
' Save the new document with a sequential file name.
appWD.ActiveDocument.SaveAs Filename:="File" & i
' Close the new Word document.
appWD.ActiveDocument.Close
Next i
' Close the Word application.
appWD.Quit
End SubCela me donne l'erreur :
Erreur de compilation : Type défini par l'utilisateur non défini.
Par contre, quelque chose comme :
Code:
Dim objWord As Object
Set objWord = CreateObject("Word.Application")Fonctionne.
Comment se fait-il que le code fourni sur le site de Microsoft ne fonctionne pas ? Où est l'astuce ?
Dernière édition: