HELP : Problème erreur 91

Fermé
captain_rom Messages postés 22 Date d'inscription jeudi 15 novembre 2007 Statut Membre Dernière intervention 16 juin 2021 - 16 juin 2021 à 07:46
m@rina Messages postés 20203 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 11 mai 2024 - 16 juin 2021 à 14:55
Bonjour,

Peut-être pourrez-vous m'aider, voici le problème rencontré : j'ouvre word sans problème, mais à l'ouverture d'un de mes documents, une fenêtre s'ouvre :
"Erreur d'éxécution 91. Variable objet ou Variable de bloc With non définie"

Si je clique sur "Fin" --> le fichier word s'ouvre

Si je clique sur débogage --> voici ci-dessous ce que me renvoie le débogueur, il cible la toute fin de cette macro (la ligne oText.Close)

Précision, j'ai tenté la réparation puis réinstallation d'office.
Merci à celles ou ceux ayant déjà rencontré voire résolu ce problème ;)

Romain


'Traitement du fichier Fraction :
's'il contient toutes les données voulues, on récupère ces données
'sinon on recrée le fichier avec les valeurs par défaut
'----------------------------------------------------
Sub TraiterFichierFraction(ByVal chemin As String)
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
Dim tmp_ValeurLue As String
'----------------------------
On Error GoTo err
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile(chemin)
Set oTxt = oFl.OpenAsTextStream(ForReading)
With oTxt
VarSoustraction = .ReadLine
End With
oTxt.Close
Exit Sub

err:
oTxt.Close
creerFichier chemin, "Fraction.txt"
End Sub

1 réponse

m@rina Messages postés 20203 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 11 mai 2024 11 279
16 juin 2021 à 14:55
Bonjour,

Ce document contient la macro. Est ce que cette macro t'est utile ???
Qui l'a écrite ? A quoi elle sert ?

m@rina


0