Variables dans plusieurs procédures

Bonjour,

je tente de réaliser un tableau excel à partir duquel les éléments de colonnes pré-remplissent un fichier word.

Une inputbox dans laquelle on inscrit le numéro de ligne permet d'aller chercher les infos du tableau vi un recherchev mais ça fonctionne pas et je ne sais pas ce qui cloche.

J'utilise plusieurs procédure avec des variables communes, est-ce que ça vient de là ?

Le code tel quel est dans le même module et n'affiche pas d'erreur :

Public thematique As String
Public titre As String
Public num_article As Integer

Sub boite_dialog()

num_article = InputBox("Inscrivez le numéro de l'article", "Quel article ?")
Select Case num_article
Case Is = vbCancel
Exit Sub
Case Is = vbOK

End Select
End Sub

Static Sub rechechev()
Dim cell_recherche As Range

Set cell_recherche = Range("A4:F1000")
thematique = Application.WorksheetFunction.VLookup(num_article, cell_recherche, 4, False)

titre = WorksheetFunction.VLookup(num_article, cell_recherche, 5, False)
End Sub

Sub redaction_article()

Call boite_dialog
Dim objWord As Object
Set objWord = CreateObject("Word.application")

With objWord
    .Visible = True
    .documents.Add

End With

With objWord.Selection

.TypeParagraph
.TypeText Text:=Range("A1").Value & " n° " & num_article
.TypeParagraph
.TypeText Text:="Thématique : " & thematique
.TypeParagraph
.TypeText Text:="Titre : " & titre
.TypeParagraph
.TypeParagraph
.TypeText Text:="Introduction : "
.TypeParagraph
.TypeParagraph
.TypeText Text:="Texte : "

End With
objWord.ActiveDocument.SaveAs "\ACTU\ARTICLE\actu_" & num_article

End Sub

Merci d'avance si vous pouvez m'aider.

Oliv

Ok alors je m'auto-réponds car j'ai fini par trouver le souci.

Il semblerait que le type de la variable "num_article" ne permettait pas de renvoyer de réponse dans la formule VLookup.

J'ai donc fait ceci "Val(num_article)" pour le passer en "String" et ça a fonctionné.

A+

Oliv