Message d'erreur innatendu..

[romainchu78]

Bonjour a tous,
Je travail sur une macro excel que je suis entrain de mettre en place.
Par le biais d'un bouton je selectionne un fichier text de donnees. Puis grace a la fonction "opentext", j'ouvre ce fichier text et le place dans un autre classeur excel (appele aussi workbook).
J'ai un message d'erreur vraiment bizarre que je ne comprend pas, je crois que le mieux c'est de jeter un coup d'oeil directement sur mon fichier (en piece jointe), j'ai mis un max de commentaire pour faciliter la comprehension.

Ceux qui veulent m'aider la dessus sont le bien venu. J'ai cherche longtemps sans rien trouve...
Pour moi le message d'erreur n'a aucun sens par rapport au probleme !

Bonne journee,
romain

 

[Hervé]

Re : Message d'erreur innatendu..

bonjour romainchu


problème classique des select.

tu ne peux pas prendre une biere dans le frigo sans avoir ouvert le frigo avant.

en clair, tu ne peux pas sélectionner une plage d'un classeur sans avoir activer le dit classeur et la feuille concernée.

début de ton code corrigé (le reste est inchangé) :

Application.ScreenUpdating = False

'        Copiage du contenu du fichier text ouvert dans un nouveau workbook
        Workbooks.OpenText Filename:=FileToOpenCAB1_path _
            , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
            :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
            False, Comma:=False, Space:=False, Other:=True, OtherChar:="|", _
            FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1))
        
        Set wbk2 = ActiveWorkbook 'MsgBox wbk2.Name 'on copie le nouveau workbook du fichier text dans une variable
        With wbk2.Sheets(1)
            .Rows("1:4").Delete Shift:=xlUp       'on supprime les lignes 1 a 4
            .Cells.Copy Destination:=wbk1.Sheets("Resultat").Range("a1")         'on copie le contenu
        End With
'        wbk1.Activate   'On reactive le 1er workbook
'        Sheets("Resultat").Activate       'on colle le contenu dans longlet Resultat
'        Range("a1").Select
'        ActiveSheet.Paste
        TEST = 0

salut 🙂

 

[nat54]

Re : Message d'erreur innatendu..

Bonjour,

Pas mal la métaphore LOL

 

[romainchu78]

Re : Message d'erreur innatendu..

Merci a vous,
La reponse est carre. bravo