Problème de programmation VBA Excel : Type défini par l'utilisateur non défini.

**Swam.logx3** · 23/03/2018, 12h17

Bonjour à tous, je suis nouveau sur le forum et dans la programmation VBA mais avec quelques notions.
J'ai un problème dans ma programmation VBA Excel.
J'explique mon projet :
Je souhaite Ouvrir automatiquement un Modèle (Word), en double-cliquant sur une cellule dans mon tableur Excel.
Seulement J'ai une erreur de compilation : Type défini par l'utilisateur non défini.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Private moFSO As FileSystemObject
 
Public Sub GenererConvoc(piLig As Integer)
 
    Dim iRep As VbMsgBoxResult
    Dim sModele As String
    Dim oShSource As Worksheet
    Dim oWAFinal As WordApplication
    Dim oWDFinal As WordDoc
    Dim sNomPrenom As String
 
    Dim sFichierFinal As String
 
    sModele = This.Document.Path & "\" & "Convocation.docx"
 
    If Dir(sModele) = "" Then
        MsgBox "Modèle absent : " & vbCrLf & sModele, vbExclamation
        Exit Sub
    End If
 
    Set oShSource = Worksheets("Programme")
 
    sNomPrenom = oShSource.Range("A" & piLig).Value
 
    sFichierFinal = ThisDocument.Path & "\" & sNomPrenom & ".docx"
 
    If Dir(sFichierFinal) = "" Then
        iRep = MsgBox("Voulez-vous générer le bon pour le client [" & sNomPrenom & "] ?", vbOKCancel + vbExclamation)
    Else
       iRep = MsgBox("Un bon existe déjà pour le client [" & sNomPrenom & "] : " & vbCrLf & vbCrLf & sFichierFinal & vbCrLf & vbCrLf & _
                "Voulez-vous le remplacer ?", vbOKCancel + vbExclamation)
    End If
 
    If iRep <> vbOK Then
        Exit Sub
    End If
 
    Set moFSO = New FileSystemObject
 
    'copie du modèle
    moFSO.CopyFile sModele, sFichierFinal, True
 
    'ouverture fichier final
    Set oWAFinal = Word.Open(sFichierFinal)
 
    Set oWDFinal = oWAFinal.Worksheets(1)
 
    'alimentation du fichier final
    'MsgBox "Alimentation !"
    WordDoc.Fields(1).Result.Text = oShSource.Range("A" & piLig).Value 'Nom Prénom
    WordDoc.Fields(2).Result.Text = oShSource.Range("B" & piLig).Value 'Adresse
 
    'save + fermeture
    oWAFinal.Save
    'oWBFinal.Close
 
    Set oWDFinal = Nothing
    Set oWAFinal = Nothing
    Set moFSO = Nothing
 
    Set oShSource = Nothing
 
    MsgBox "Le bon est disponible !" & vbCrLf & vbCrLf & sFichierFinal, vbInformation, "Bon disponible !"
 
 
End Sub
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Target.Column = 1 Then
        If Target.Value <> "" Then
            GenererConvoc Target.Row
        End If
    End If

Si quelqu'un découvre des anomalies, merci de me l'indiquer.
Restant dans l'attente d'une réponse positive.
Cordialement,

**unparia** · 23/03/2018, 12h20

Bonjour

Seulement J'ai une erreur de compilation : Type défini par l'utilisateur non défini.

Un minimum serait de préciser la ligne de code concernée, non ?
Précise dans la foulée les références cochées et saisis cette occasion pour modifier ton titre de telle sorte qu'il révèle la difficulté à traiter, ce que ne fait en aucun cas :

Problème de programmation VBA Excel

**Swam.logx3** · 23/03/2018, 12h25

Oups, j'ai oublié : Première ligne "Private moFSO As FileSystemObject"
Par contre je n'ai pas compris votre demande : Références cochées ?

**Menhir** · 23/03/2018, 12h27

Envoyé par Swam.logx3

Par contre je n'ai pas compris votre demande : Références cochées ?

Outils > Références

**Swam.logx3** · 23/03/2018, 12h30

Références cochées :

- Visual Basic For Applications
- Microsoft Excel 14.0 Object Library
- OLE Automation
- Microsoft Office 14.0 Object Library
- Microsoft Forms 2.0 Object Library

**unparia** · 23/03/2018, 12h32

Oups, j'ai oublié : Première ligne "Private moFSO As FileSystemObject"

Bien que VBS ait été délibérément inhibé sur ma machine, je sais que le type FileSystemObject est totalement inconnu au bataillon
existe par contre le type Scripting.FileSystemObject (pour autant que la référence à Microsoft Scripting Runtime ait bien évidemment été cochée).

**Swam.logx3** · 23/03/2018, 12h41

Super cette erreur n'est plus d'actualité grâce à vos réponse.
Néanmoins, serait t'il possible de m'aider pour la suite ?

Maintenant j'ai une erreur de compilation sur " Dim oWAFinal As WordApplication"

**Pierre Fauconnier** · 23/03/2018, 13h11

Salut

Il manque le point entre Word et Application, car Application est une propriété de Word...

Code :

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

Dim oWAFinal As Word.Application

**Swam.logx3** · 23/03/2018, 13h19

Malgré l'ajout du point, j'ai toujours la même erreur.

**Pierre Fauconnier** · 23/03/2018, 13h22

As-tu coché la référence à la librairie de Word dans Outils\Références de ton VBE? La référence doit être cochée pour pouvoir utiliser la syntaxe que tu utilises.

**Swam.logx3** · 23/03/2018, 13h27

Bien vu ! Effectivement je n'avais pas sélectionné la référence adaptée.

J'ai un doute concernant cette partie :
" 'ouverture fichier final
Set oWAFinal = Word.Open(sFichierFinal)"

Si je met Workbooks.Open est une bonne solution, je me trompe ?

**Pierre Fauconnier** · 23/03/2018, 13h34

Lorsque tu saisis Word. => à la saisie du point, VBA va t'afficher la liste des méthodes et propriétés disponibles. Open n'en fait pas partie. Donc, ce n'est pas correct.

Tu ouvres en fait un document de la collection Documents de Word, collection qui contient les documents ouverts dans l'instance. C'est donc via cette collection que tu peux ouvrir un document.

Code :

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

1
2
3
4
 
Dim w Qs Word.Application
 
w.Documents.Open(...)

Essaie de compiler ton code (Débogage\Compiler...). Il s'arrêtera sur la première erreur qu'il trouve. Tant qu'il s'arrête sur une erreur, ce n'est pas bon.

Au passage: Workbooks.Open, c'est pour Excel, pas pour Word. Essaie de comprendre ce que tu saisis comme code... L'apprentisage ne se fera pas aisément à coup de ping-pong sur le forum...

**Menhir** · 23/03/2018, 14h21

Ta variable moFSO est inutile puisque visiblement elle ne te sert qu'à copier le fichier Word avant de l'ouvrir.
Il est plus simple d'ouvrir ton fichier Word sous son nom original et de l'enregistrer immédiatement par un SaveAs sous son nouveau nom.

Le FileSystem dans VBA, quand on peut s'en passer c'est souvent plus simple.

**Swam.logx3** · 23/03/2018, 14h52

En parlant de moFSO, j'ai une permission refusée lorsqu'il essaye de copier...
Y-a-t'il une erreur dans cette partie du code ?
Je souhaiterais tout de même conserver moFSO.

Code :

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

1
2
3
4
    Set moFSO = New FileSystemObject
 
    'copie du modèle
    moFSO.CopyFile sModele, sFichierFinal, True

**Pierre Fauconnier** · 23/03/2018, 14h56

Salut.

En plus de la méthode de Menhir, tu pourrais utiliser, avant d'ouvrir le fichier, la simple commande VBA Filecopy Source, destination. Utiliser fso uniquement pour ça n'est pas productif.

Quoi qu'il en soit, si tu as un verrou sur le fichier, fso ou filecopy sont inopérants. L'astuce de Menhir pourrait fonctionner car il y a de fortes chances que Word ouvre le fichier en lecture seule s'il est verrouillé.

**Menhir** · 23/03/2018, 14h59

Envoyé par Swam.logx3

Je souhaiterais tout de même conserver moFSO.

Tu as raison : pourquoi faire simple quand on peut faire compliquer ?

Il est nettement préférable de passer du temps à essayer de comprendre un bug plutôt que de trouver une solution plus simple pour le contourner en obtenant le même résultat.

**Swam.logx3** · 23/03/2018, 15h01

Si j'enleve FSO le fichier ne se renomme pas automatiquement ?
Donc plus simple je veux bien mais bon c'est pas ce que j'aimerai ...
Encore merci pour vos réponses.

**Pierre Fauconnier** · 23/03/2018, 15h08

Je t'ai donné du plus simple... Mais je répète que si tu as un verrou sur le fichier, ça ne changera pas grand-chose.

Menhir t'a donné une autre solution vraiment pas plus compliquée, qui permettrait peut-être de bypasser le verrou.

Pourquoi n'essaies-tu pas ce qui t'est proposé?

**Menhir** · 23/03/2018, 15h14

Envoyé par Swam.logx3

Si j'enleve FSO le fichier ne se renomme pas automatiquement ?
Donc plus simple je veux bien mais bon c'est pas ce que j'aimerai ...

Relis mon message #13.
Pour que ça se renomme automatiquement, tu ouvres le fichier avec son nom d'origine (Documents.Open) puis immédiatement (à la ligne de code suivante) tu le sauvegardes sous un autre nom (SaveAs).
Avec ça, ton fichier sera renommé "automatiquement".
Et sans utiliser le FSO.

Code :

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

1
2
3
    Dim w As Word.Application
    Set oWAFinal = w.Documents.Open(sModele)
    oWAFinal.SaveAs(sFichierFinal)

**Swam.logx3** · 23/03/2018, 15h30

Ah d'accord !
Petit soucis sur le .SaveAs, je suis entrain de chercher.
Par contre je fais comment si le fichier existe déjà et que je veux le remplacer ?

Problème de programmation VBA Excel : Type défini par l'utilisateur non défini.

Macros et VBA Excel

Discussions similaires

Partager

Partager