Discussion: objFile OBJET REQUIS

  1. #1
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    janvier 2018
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Lycéen
    Secteur : Distribution

    Informations forums :
    Inscription : janvier 2018
    Messages : 12
    Points : 4
    Points
    4

    Par défaut objFile OBJET REQUIS

    Bonjour voila j ai petit problème sur mon code je voudrais ouvrir plusieurs excel dans un même dossier en même temps en lecture seul pour les copier en .txt

    mon problème viens de cette ligne : if objFile.Extension = "xlsx" thenvoici mon code :
    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
    '*****************************************************
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    '*****************************************************
    Dim objExcel
     
    'objet application excel
    Set objExcel = CreateObject("Excel.Application")
      strComputer = "."
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
     set colFileList = objWMIService.ExecQuery _
         ("ASSOCIATORS OF {Win32_Directory.Name = 'C:\MTOM\Traitement'}  Où ResultClass = CIM_DataFile")
     
     set objExcel = CreateObject ("Excel.Application")
     objExcel.Visible = TRUE
     
    objExcel.Application.DisplayAlerts = True
     
    if objFile.Extension = "xlsx" then
    	objExcel.Application.Workbooks.Open objFile.Name, "3", True, , "max"
        ElseIf objFile.Extension = "doc" or objFile.Extension = "docx" Then
    		objWord.Documents.Open objFile.Name
    		'objet fichier
    		Dim fso, fi, x, TextStreamTest
    		Set fso = CreateObject("Scripting.FileSystemObject")
    		'definition fichier
    		dim nom_Fichier,chemin_Fichier,Separateur
    		nom_Fichier = "Excel"
    		chemin_Fichier="C:\MTOM\Temp\"
    		Separateur=" "		
    		'creation fichier
    		Set fo = fso.OpenTextFile(chemin_Fichier & nom_Fichier & ".txt",ForWriting,True)
    		'ligne de depart lecture fichier excel	
    		intRow = 1 
    		ColumnCount = objExcel.Activesheet.UsedRange.Columns.count
    		'boucle de lecture lignes fichier excel
    		Do Until objExcel.Cells(intRow, 1).Value = ""
    			TextStreamTest = ""
    			'boucle de lecture colonne de la ligne
    			For x= 1 To  ColumnCount 		'max colonne a modifier 
    				TextStreamTest = TextStreamTest & objExcel.Cells(intRow, x).Value & Separateur
    			Next
    			'affiche ligne dans boite a message
    			'Wscript.Echo "text: " & TextStreamTest
    			'ecriture fichier TXT
    			fo.writeline(TextStreamTest)
    			'incremente pointeur de ligne
    			intRow = intRow + 1
    		Loop
    		'fermeture fichier
    		fo.Close
    		'fermeture excel via objet application
    		objExcel.Quit
    		'termine
    		Wscript.Echo "Conversion terminée"
     end if

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 258
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 258
    Points : 8 875
    Points
    8 875

    Par défaut

    Salut

    Si tu nous as mis tout le code,
    objFile n'est pas définit
    il te manque un End If en fin de code.
    ➂ ....
    ➃ .....
    ➄ ....
    ➅ ...
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    janvier 2018
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Lycéen
    Secteur : Distribution

    Informations forums :
    Inscription : janvier 2018
    Messages : 12
    Points : 4
    Points
    4

    Par défaut re

    end if je les mis tout à la fin je sais pas si ses une bonne idée
    objFile le problème ses que je voie pas comment le définir

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 258
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 258
    Points : 8 875
    Points
    8 875

    Par défaut

    Salut

    Pour ton objFile, dans la FAQ VBScript tu as cette partie Fichiers : le FileSystemObject, Accès aux Fichiers qui te serait bien utile de lire pour avancer ton code par toi même.
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  5. #5
    Membre chevronné
    Inscrit en
    octobre 2011
    Messages
    1 111
    Détails du profil
    Informations forums :
    Inscription : octobre 2011
    Messages : 1 111
    Points : 1 928
    Points
    1 928

    Par défaut

    Non, ce n'est pas objet fichier accedé via Scripting.FileSystemObject, c'est d'objet fichier du type CIM2_DataFile comme intentionné par la requête d'association. Ce sont les membres de collection colFileList. Il est actualisé comme ça
    Code vbs : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    'etc, des lignes comme objExcel.Application.DisplayAlerts = True, etc
     
    for each objFile in colFileList
        if objFile.Extension = "xlsx" then
            'etc etc
            'mais il faut absolument déplacer les lignes de codes liés à oExcel.Quit etc 
            'et les placer dehors la boucle for each objFile in colFileList - @op: compris ?
        end if
        'etc etc
    next
     
    'etc etc et les lignes de code déplacées

  6. #6
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    janvier 2018
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Lycéen
    Secteur : Distribution

    Informations forums :
    Inscription : janvier 2018
    Messages : 12
    Points : 4
    Points
    4

    Par défaut re

    bonjour
    Nouveau problème très étrange tout marche ou presque j ai une erreur . Il ne trouve pas le fichier alors qu ' il est bien présent
    ligne: objExcel.Application.Workbooks.Open ExcelFile, "3", True, , Mdp
    code :
    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
     
    Dim TempFile , ExcelFile , Mdp , RetourFile , objExcel , Separateur
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Set fso = CreateObject("Scripting.FileSystemObject")
    CurrentDirectory = fso.GetAbsolutePathName(".")
    CurrentDirectory = CurrentDirectory & "\"
    TempFile = CurrentDirectory & "Temp\"
    Set fso = CreateObject("Scripting.FileSystemObject" )
    Set f = fso.OpenTextFile(TempFile & "NomClient.txt", ForReading)
    ExcelFile = f.ReadAll
    Set f = fso.OpenTextFile(TempFile & "Mdp.txt", ForReading)
    Mdp = f.ReadAll
    ExcelFile = CurrentDirectory & "Traitement\" & ExcelFile
    RetourFile = TempFile & "Retour.txt"
    Separateur = " "
     
     
    WScript.echo " In: " & ExcelFile
    WScript.echo " Out: " & RetourFile
    WScript.echo " Mdp: " & Mdp
     
     
     
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Application.DisplayAlerts = True
    objExcel.Application.Visible = True
    objExcel.Application.Workbooks.Open ExcelFile, "3", True, , Mdp
    Dim fso, fi, x, TextStreamTest
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fo = fso.OpenTextFile(RetourFile,ForWriting,True)
     
    intRow = 1 
    ColumnCount = objExcel.Activesheet.UsedRange.Columns.count
    Do Until objExcel.Cells(intRow, 1).Value = ""
    	TextStreamTest = ""
    	For x= 1 To  ColumnCount 		 
    	TextStreamTest = TextStreamTest & objExcel.Cells(intRow, x).Value & Separateur
    	Next    
        fo.writeline(TextStreamTest)
        intRow = intRow + 1
    Loop
    fo.Close
    objExcel.Quit

  7. #7
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 008
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 008
    Points : 4 558
    Points
    4 558

    Par défaut

    C'est tout à fait normal qu'il ne trouve pas le fichier ExcelFile qui n'est rien d'autre que le contenu du fichier "Mdp.txt"(ligne 12).
    Essaie donc de revoir la définition de ton fichier excel à ouvrir.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  8. #8
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    janvier 2018
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Lycéen
    Secteur : Distribution

    Informations forums :
    Inscription : janvier 2018
    Messages : 12
    Points : 4
    Points
    4

    Par défaut

    le fichier mot de passe contient le mot de passe pour ouvrir le fichier mais ExcelFiles est le lien du chemin qui est écrie dans un bloc-note et le chemin est bon mais il ne veut pas l ouvrir
    cdtl

  9. #9
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 008
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 008
    Points : 4 558
    Points
    4 558

    Par défaut

    Si le code de la ligne 12 n'a pas été modifié après mon post c'est que j'ai dû loupé quelque chose .
    A titre indicatif, que contient le fichier NomClient.txt ?
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  10. #10
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    janvier 2018
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Lycéen
    Secteur : Distribution

    Informations forums :
    Inscription : janvier 2018
    Messages : 12
    Points : 4
    Points
    4

    Par défaut

    le nom du fichier .xlsx

  11. #11
    Membre chevronné
    Inscrit en
    octobre 2011
    Messages
    1 111
    Détails du profil
    Informations forums :
    Inscription : octobre 2011
    Messages : 1 111
    Points : 1 928
    Points
    1 928

    Par défaut

    Faites attention de ne pas laisser dans mdp des caractères invisibles, espaces vides, faute d'encodage des caractères... Ajoutez aussi une ligne pour l'inspecter.
    Code vbs : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    WScript.echo " Mdp: " & Mdp
    WScript.echo " escape(Mdp): " & escape(Mdp)

  12. #12
    Candidat au Club
    Homme Profil pro
    Lycéen
    Inscrit en
    janvier 2018
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Lycéen
    Secteur : Distribution

    Informations forums :
    Inscription : janvier 2018
    Messages : 12
    Points : 4
    Points
    4

    Par défaut

    Bonjour, le problème ses qu il ne trouve pas le fichier alors qu il a le bon chemin
    erreur : si vous essayez d' ouvrir le fichier à partir de la liste des fichiers les plus récents, assurez-vous que le fichier n' a pas été renommé, déplacé ou supprimé.

    ps quand je tape le chemin manuellement a la place de ExcelFile sa marche mais le problème ses qui il faut que j' ouvre plusieurs fichier en même temps.

  13. #13
    Membre chevronné
    Inscrit en
    octobre 2011
    Messages
    1 111
    Détails du profil
    Informations forums :
    Inscription : octobre 2011
    Messages : 1 111
    Points : 1 928
    Points
    1 928

    Par défaut

    Essayez d'abord de utiliser version spécifique (ou dit dépendente) progid pour excel.application apparu comme excel.application.8, ou ..., ou excel.application.12 selon la version installée. Il n'est pas rare que le système ait multiple version d'excel installé. On peut toujours (re-)décourvrir les versions exactes disponible dans le registre. Pour un xlsx, ce serait excel.application.12 ou une version plus élevée.

  14. #14
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 008
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 008
    Points : 4 558
    Points
    4 558

    Par défaut

    erreur : si vous essayez d' ouvrir le fichier à partir de la liste des fichiers les plus récents, assurez-vous que le fichier n' a pas été renommé, déplacé ou supprimé.
    Ce message d'erreur pourrait être dû à des espaces dans le chemin d'accès au fichier à ouvrir.
    Que donne le remplacement de la ligne ExcelFile = CurrentDirectory & "Traitement\" & ExcelFile par :
    ExcelFile = CreateObject("Scripting.FileSystemObject").GetFile(CurrentDirectory & "Traitement\" & ExcelFile).ShortPath ?
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

Discussions similaires

  1. Objet requis: 'expXpath', contourner l'erreur
    Par totoche dans le forum ASP
    Réponses: 3
    Dernier message: 09/11/2006, 15h35
  2. [POO] objet requis dans choix de bouton radio
    Par allowen dans le forum JavaScript
    Réponses: 6
    Dernier message: 30/11/2005, 14h46
  3. Objet requis qu'il me dit
    Par Grosmou dans le forum Access
    Réponses: 15
    Dernier message: 27/09/2005, 08h41
  4. Erreur Objet requis : 'this' --> Comprend pas!!
    Par Grozeil dans le forum ASP
    Réponses: 3
    Dernier message: 30/03/2005, 10h46
  5. Erreur "Objet requis"
    Par cindaille dans le forum Access
    Réponses: 5
    Dernier message: 26/10/2004, 01h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo