Commandes DOS en VBA / Concaténation de fichier sous Dos

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

J'ai une petite question toute bête mais qui me tracasse :

Quelqu'un peut-il me dire ce qui cloche dans la macro écrite avec Excel 2003 sous Windows XP ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 Sub test1() lerep = CurDir file1 = lerep & "\LoyersBruts1003.CSV" file2 = lerep & "\Foncier1003.CSV" file3 = lerep & "\complet1003.CSV" lacommande = "file1 + file2 file3" Shell "command.com /c copy" & lacommande End Sub
Quand je la fais tourner, je n'ai pas de message d'erreur mais le fichier "complet1003.csv" est introuvable...

Si j'enlève le commutateur /c, dans la fenêtre d'invite de commandes, j'ai le message suivant :

Mauvais répertoire de recherche de COMMAND.COM
Format de paramètre incorrect
Trop de paramètres
Trop de paramètres

Merci pour votre aide.

Christian

09/06/2009, 17h29
DeaD78

Bonjour,

Que veux-tu avoir AU FINAL dans ta variable "lacommande " ? Que doit-elle donner ?
09/06/2009, 17h34
Sécateur

Merci pour la réponse rapide.

En fait je cherche à concatener deux fichiers csv en un. J'utilise pour cela la commande DOS copy file1 + file2 file3.

Mais ça marche pô !

A bientôt.

Déja est ce que Lerep est le bon repertoire ?

ensuite vérifie la commande que tu vas passer :
Code:

1 2 3 4 5 6 7 8 9 Sub test1() lerep = CurDir file1 = lerep & "\LoyersBruts1003.CSV" file2 = lerep & "\Foncier1003.CSV" file3 = lerep & "\complet1003.CSV" lacommande = "file1 + file2 file3" msgbox "command.com /c copy" & lacommande End Sub
Vérifie que le code marche en direct dans la boite de commande

sans tout faire mais en regardant d'un peu plus près :

Code:

lacommande = "file1 + file2 file3"

te donne pour la commande une chaine de caractères "file1 + file2 file3"
a mon avis c'est pas ça que tu veux.

De plus aucun espace entre copy et macommande

Citation:

En fait je cherche à concatener deux fichiers csv en un. J'utilise pour cela la commande DOS copy file1 + file2 file3.

en fait je ne connais pas cette utilisation de la commande, ça marche ?

edit : ok ça existe

09/06/2009, 17h47
Sécateur

C'est vrai qu'il manque un espace !!

J'essaye tout de suite et reviens vers vous !

merci encore !
09/06/2009, 17h51
Sécateur

Non ! Rien à faire !

J'ai toujours des messages d'erreurs sous DOS.

lerep doit être le bon répertoire puisque je vais le chercher avec CurDir.

En fait, je suis sous ma partition d: et mon windows est sous c:. Cela peut-il avoir un effet ?
09/06/2009, 17h53
aalex_38

Je viens de faire le test sous dos pour que ça fonctionne tu dois avoir dans ta variable :

Code:

copy "D:\...\1.csv" + "D:\AGR\VBA Excel\2.csv" "D:\..\3.csv"
09/06/2009, 17h54
Jean-Philippe André

salut,
la concaténation que tu tentes n'est-elle pas un peu bancale ?

Code:

lacommande = file1 & " " & file2 & " " & file3

serait déjà moins aléatoire ;)
09/06/2009, 17h55
aalex_38

LA but c'est déja que tu obtienne la bonne commande, montres nous ce que tu obtiens quand tu fait :

Code:

msgbox "command.com /c copy" & lacommande

Citation:

En fait, je suis sous ma partition d: et mon windows est sous c:. Cela peut-il avoir un effet ?

Moi aussi et pas de soucis.
09/06/2009, 17h56
Sécateur

C'est ce que me donne la variable lerep

Au début du code j'ai :

lerep= CurDir

qui me donne le chemin complet des fichiers à concatener ...

Bizarre, n'est-ce-pas ?

Bien sûr ! Suis-je bête !!

si je mets de guillemets entre file1 + file2 file3, j'obtiens file1 + file2 file3

Merci de m'avoir ouvert les yeux !!!

Mais il faut encore que j'essaye ...

A tout de suite !
09/06/2009, 18h01
aalex_38

Citation:

C'est ce que me donne la variable lerep

Au début du code j'ai :

lerep= CurDir

qui me donne le chemin complet des fichiers à concatener ...

Bizarre, n'est-ce-pas ?

Je ne comprend pas

Je te laisse regarder, si tu as un problème tu dis.

Nb : Ma prochaine connection demain matin ;)
09/06/2009, 18h49
Sécateur

Bon, j'ai un peu avancé mais cela ne marche toujours pas.

J'ai fait un test sur l'invite de commande : en fait, le nom du chemin est trop long (=d:\machin\chose\truc\....). Comme je dois le rentrer pour les trois fichiers (file1, file2 et file3), au bout d'un certain nombre de caractères, ça bloque, je ne peux pas rentrer le reste de la commande ... Il y a longtemps que je n'ai plus bidouiller en DOS.

Par contre, si je fais la même commande en omettant le chemin pour le file3, ça fonctionne. Sauf qu'il va me créer mon nouveau fichier dans le répertoire c:\docume~1\.... et je ne peux pas changer de répertoire avec la commande CHDIR ???

:calim2::calim2:

Pas d'espaces

Bonjour

Pour concatener plusieurs fichiers pas d'espaces entre les fichiers sources et un seule cible

Donc la commande est sous dos copy fichier1.txt+fichier2.txt fichier3.txt
Code:

1 2 3 4 5 6 7 8 9 10 Sub test1() lerep = ThisWorkBook.Path file1 = lerep & "\LoyersBruts1003.CSV" file2 = lerep & "\Foncier1003.CSV" file3 = lerep & "\complet1003.CSV" lacommande = file1 & "+" & file2 & " " & file3 msgbox "command.com /c copy " & lacommande End Sub
Voila la syntaxe correcte

:ccool:

10/06/2009, 07h14
Sécateur

Bonjour Lynk92260,

Merci pour ta contribution. Malheureusement, cela ne fonctionne toujours pas.

Je n'y comprends rien : quand je tape directement la commande dans l'invite de commande, c'est maintenant impeccable (j'ai mis les fichiers directement sous d: ).

Quand je le fais par VBA, avec la ligne

Code:

Shell "COMMAND.com copy " & lacommande

rien à faire ! Dans la fenêtre d'invite de commande, il me dit : Mauvais répertoire de recherche de COMMAND.COM ...

Il y a un blème quelque part, mais où ?

Re-Bonjour,

Pour répondre à aalex_38, en VBA, la commande CurDir renvoie une valeur indiquant le chemin en cours :

Ex :

Code:

MyPath = CurDir ' Renvoie "C:\WINDOWS\SYSTEM".

Merci de vous intéresser à mon problème.

Christian

Autre methode

bon il faut utiliser la bibliothèque filesystem sous vba.

Procedure du code ci dessous devrait fonctionner .

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
 
Sub Joindre2Fichiers(sFichierSource as string, sFichierCible as string)
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    ' fCible fichier dans lequel on va rajouter f2
    Dim fs, fCible,fSource 
    Dim txtf2 as String 'Pour récupérer tout le fichier 2
 
    Set fs = CreateObject("Scripting.FileSystemObject")
 
    Set fSource = fs.OpenTextFile(sFichierSource , ForReading,TristateFalse)    
 
    Set fCible= fs.OpenTextFile(sFichierCible, ForAppending,TristateFalse)
 
    txtf2=fSource.ReadAll
 
    fCible.Write(txtf2) 
 
    ' ou 
    ' fCible.Write(fSource.ReadAll)
 
    fSource .Close
 
    fCible.Close
 
End Sub

Je pense avec cette approche cela marche mieux en appelant autant de fois cette procédure qu'il y a des fichiers à ajouter.

:ccool:

10/06/2009, 08h40
Sécateur

Bonjour Lynk92260,

Merci pour ton conseil.

J'avais aussi vu cette méthode quelque part dans les forums mais je n'osais l'utiliser ... Je n'en comprends pas tous les finesses :roll:

Juste une petite question subsidiaire : sous quelle forme faut-il passer les variables sFichierSource et sFichierCible ? Je présume qu'il faut aussi donner le chemin complet des fichiers à concaténer. De plus, est-ce que le fichier cible doit être créé avant ou sera-t-il créé automatiquenent ?

Grand merci pour le coup de main !
10/06/2009, 08h57
Lynx92260
Effectivement le nom du fichier complet pour les deux variables

donc
Code:

1 2 3 4 5 6 7 8 file1 = lerep & "\LoyersBruts1003.CSV" file2 = lerep & "\Foncier1003.CSV" file3 = lerep & "\complet1003.CSV" Joindre2Fichiers file1, file3 Joindre2Fichiers file2, file3
En principe le fichier cible est crée si ça n'existe pas .

:ccool: bon courage on est presque au bout du tunnel !!!!!
10/06/2009, 09h07
Sécateur
J'ai honte mais il doit encore avoir un problème quelque part.

Quand je lance la macro suivante :
Code:

1 2 3 4 5 6 7 Sub test1() lerep = ThisWorkbook.Path file1 = lerep & "\Foncier1003.CSV" file3 = lerep & "\complet1003.CSV" Joindre2Fichiers file1, file3 End Sub
il me donne un message d'erreur : Erreur de compilation Type d'argument ByRef incompatible !

Vois-tu d'où cela peut provenir ?

modif

remplace

ces lignes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Set Fs = CreateObject("Scripting.FileSystemObject")
 
    Set fSource = Fs.OpenTextFile(sFichierSource, ForReading, False, TristateFalse)
 
    Set fCible = Fs.OpenTextFile(sFichierCible, ForAppending, True, TristateFalse)
 
    'txtf2 = fSource.ReadAll
 
    'fCible.Write txtf2
 
    ' ou
    fCible.Write (fSource.ReadAll)
 
    fSource.Close
 
    fCible.Close

Je dois partir cherche l 'aide sur FilesSystemObject il y en plein sur le site

:ccool:

T'oublies que file1, 2 et 3 sont des variables. Teste ça ;)
Code:

1 2 lacommande = "cmd /c copy " & file1 & " + " & file2 & " " & file3 Shell lacommande

Voir 40 message(s) de cette discussion en une page