Plantage inconnu

[tbft]

Bonjour

Est ce que quelqu'un a déjà ce problème?
Comment faire pour éviter cette cochonnerie???

D'avance merci

 

[Guest]

Re : Plantage inconnu

Bonjour,

Erreur d'entrée/sortie. Souvent due à une macro qui a fait appel soit à une requête externe (connexion mal fermée, ou mal paramétrée) soit une ouverture/Ecriture/Lecture de fichier texte ou autre etc... Ou un fichier externe corrompu.

A+

 

[tbft]

Re : Plantage inconnu

Bonjour Hasco

J'ai la macro suivante

Sub Principale()
Dim repertoire As String, nom_fichier_de As String
Dim fd As FileDialog
  'initialisaton des variables
  Set Fichier_Vers = ActiveWorkbook
  'ouverture du fichier à récuperer
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
  'Use a With...End With block to reference the FileDialog object.
  With fd
      'Use the Show method to display the File Picker dialog box and return the user's action. The user pressed the action button.
      If .Show = -1 Then
        repertoire = fd.InitialFileName
        nom_fichier_de = fd.SelectedItems.Item(1)
        'ouverture du fichier
        Workbooks.Open nom_fichier_de
        'nom_fichier_de = Replace(nom_fichier_de, repertoire, "")
        Set Fichier_De = ActiveWorkbook
        'traitement
        Traitement Fichier_De
        'fermeture du fichier
'        Fichier_De.Close False
      End If
  End With
  'Set the object variable to Nothing.
  Set fd = Nothing
End Sub

Je pense que l'erreur provient de Fichier_De.Close car depuis que je l'ai mis en commentaire yen plus plantage....mais pourquoi???

 

[Guest]

Re : Plantage inconnu

RE,

Et la macro Traitement Fichier_De? que fait-elle?
Et le fichier Fichier_De que contient-il? A-t-il une macro qui se lance à la fermeture?

A+

 

[tbft]

Re : Plantage inconnu

La macro de traitement je suis entrain (enfin j'essaye) de la développer.
Donc pour l'instant elle ne contient rien ou presque.
voici le fichier qui fi chier.....Désolé

 

[Guest]

Re : Plantage inconnu

Re,

Euh...........? y a que des données, pas de macro, userform vide? Qu'est-ce que je fais avec?😕

A propos de ton erreur initiale. Celle-ci peut avoir été causée par un classeur précédement ouvert. Et peut perdurer tant que ta session excel est ouverte, même si le classeur initial est fermé.

A+

 

[tbft]

Re : Plantage inconnu

Re,
le fichier que j'ai transmis n'ai pas le fichier qui possède la macro qui déconne.....
mais c'est celui qui fait déconner ma macro...

En espérant avoir était clair.
Mais pas facile d'aligner deux mots avec la tête dans le pâté...

 

[Guest]

Re : Plantage inconnu

Re,

D'accord mais comme il n'y a rien dans le fichier transmit(à part des données et un userForm vide), je ne vois pas ce qui peut faire capoter ta jolie macro.

A propos de userform et de ton erreur initiale(on va peut-être trouvé).
Si un userForm comporte des contrôles issus d'autres bibliothèques que MsForms, (calendrier, listview, webbrowser etc.) ceux-ci peuvent parfois engendrer ce genre d'erreur 'Entrée/sortie' s'ils sont mal initialisés ou mal détruits ou simplement incorrectement programmés,.

A+

 

[tbft]

Re : Plantage inconnu

D'accord

Merci pour les conseils.

J'ai modifié la macro en ajoutant

  Set Fichier_De = Nothing
  Set Fichier_Vers = Nothing

juste avant le End Sub

 

[tbft]

Re : Plantage inconnu

@Hasco
Depuis que j'ai rajouté les deux lignes en fin de macro, je n'ai plus de problème....
Merci pour tes lumières...

 

[Guest]

Re : Plantage inconnu

Re,

Souvent il est mieux effectivement de laisser les macros aussi propres en sortant qu'excel les trouve en entrant.

Tout nettoyer les objets.

A+

 

[tbft]

Re : Plantage inconnu

Bonsoir Hasco

J'apprends de mes betisses tout les jours....
La liste est encore tréstréstréstréstrés longues...

Merci beaucoup pour ton aide