objFile OBJET REQUIS

Version imprimable

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:

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

31/01/2018, 23h01
ProgElecT

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.
➂ ....
➃ .....
➄ ....
➅ ...
31/01/2018, 23h52
Phone42

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
01/02/2018, 08h37
ProgElecT

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.

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:

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

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:

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

02/02/2018, 22h39
l_autodidacte

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.
04/02/2018, 22h16
Phone42

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
11/02/2018, 08h38
l_autodidacte

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 :oops: .
A titre indicatif, que contient le fichier NomClient.txt ?
11/02/2018, 21h08
Phone42

le nom du fichier .xlsx
12/02/2018, 09h33
tsuji
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:

1 2 WScript.echo " Mdp: " & Mdp WScript.echo " escape(Mdp): " & escape(Mdp)
12/02/2018, 18h14
Phone42

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.
12/02/2018, 19h43
tsuji

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.
16/02/2018, 00h08
l_autodidacte

Citation:

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 ?