erreur

Le
Pascal
Bonjour,
J'ai ce code destiné à regrouper et faire une copie de tous mes fichiers
excel dans un autre dossier:

Sub CopierFichiers()
Dim fso As Object
Dim strFile As String
Dim i As Integer
'Crée un nouveau repertoire si non existant
Set fso = CreateObject("Scripting.fileSystemObject")
If Not fso.folderExists("C:Tout mon XL") Then
fso.createFolder ("C:Tout mon XL")
End If
'Recherche les fichiers excel et les copie dans le repertoire
With Application.FileSearch
.LookIn = "C:"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
fso.copyfile.FoundFiles (i), "C:Tout mon XL"
Next i
End With
End Sub
A chaque fois que je l'excécute j'ai une erreur sur fso.copyfile.FoundFiles
(i), "C:Tout mon XL"
Quelqu'un voit??
Merci
Pascal





Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000722-4, 09/03/2007
Analyse le : 11/03/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #4233761
Bonjour,

C'est plus du VB tout court que du VBA, dans ce contexte
en déclarant l'API et
d'autre part attention à l'espace ici:
fso.CopyFile .FoundFiles(i),
et non pas
fso.CopyFile.FoundFiles(i),

Voici mais qui rame copieusement:

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _
ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long


Sub CopierFichiers()
Dim fso As Object
Dim strFile As String
Dim i As Integer
'Crée un nouveau repertoire si non existant
Set fso = CreateObject("Scripting.fileSystemObject")
If Not fso.folderExists("C:Tout mon XL") Then
fso.createFolder ("C:Tout mon XL")
End If
'Recherche les fichiers excel et les copie dans le repertoire
With Application.FileSearch
.LookIn = "C:"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
fso.CopyFile .FoundFiles(i), "C:Tout mon XL"
Next i
End With
End Sub



'Cdlt
'lSteph
Bonjour,
J'ai ce code destiné à regrouper et faire une copie de tous mes fichiers
excel dans un autre dossier:

Sub CopierFichiers()
Dim fso As Object
Dim strFile As String
Dim i As Integer
'Crée un nouveau repertoire si non existant
Set fso = CreateObject("Scripting.fileSystemObject")
If Not fso.folderExists("C:Tout mon XL") Then
fso.createFolder ("C:Tout mon XL")
End If
'Recherche les fichiers excel et les copie dans le repertoire
With Application.FileSearch
.LookIn = "C:"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
fso.copyfile.FoundFiles (i), "C:Tout mon XL"
Next i
End With
End Sub
A chaque fois que je l'excécute j'ai une erreur sur fso.copyfile.FoundFiles
(i), "C:Tout mon XL"
Quelqu'un voit??
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000722-4, 09/03/2007
Analyse le : 11/03/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





Pascal
Le #4239711
Mreci tout cela pour un espace

"LSteph"
Bonjour,

C'est plus du VB tout court que du VBA, dans ce contexte
en déclarant l'API et
d'autre part attention à l'espace ici:
fso.CopyFile .FoundFiles(i),
et non pas
fso.CopyFile.FoundFiles(i),

Voici mais qui rame copieusement:

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _
ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long


Sub CopierFichiers()
Dim fso As Object
Dim strFile As String
Dim i As Integer
'Crée un nouveau repertoire si non existant
Set fso = CreateObject("Scripting.fileSystemObject")
If Not fso.folderExists("C:Tout mon XL") Then
fso.createFolder ("C:Tout mon XL")
End If
'Recherche les fichiers excel et les copie dans le repertoire
With Application.FileSearch
.LookIn = "C:"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
fso.CopyFile .FoundFiles(i), "C:Tout mon XL"
Next i
End With
End Sub



'Cdlt
'lSteph
Bonjour,
J'ai ce code destiné à regrouper et faire une copie de tous mes fichiers
excel dans un autre dossier:

Sub CopierFichiers()
Dim fso As Object
Dim strFile As String
Dim i As Integer
'Crée un nouveau repertoire si non existant
Set fso = CreateObject("Scripting.fileSystemObject")
If Not fso.folderExists("C:Tout mon XL") Then
fso.createFolder ("C:Tout mon XL")
End If
'Recherche les fichiers excel et les copie dans le repertoire
With Application.FileSearch
.LookIn = "C:"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
fso.copyfile.FoundFiles (i), "C:Tout mon XL"
Next i
End With
End Sub
A chaque fois que je l'excécute j'ai une erreur sur
fso.copyfile.FoundFiles (i), "C:Tout mon XL"
Quelqu'un voit??
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000722-4, 09/03/2007
Analyse le : 11/03/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000722-4, 09/03/2007
Analyse le : 11/03/2007 18:20:01
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000722-4, 09/03/2007
Analyse le : 11/03/2007 18:23:28
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Pascal
Le #4237241
Bonjour,
Effectivement cela rame beaucoup.
pas d'autre idée ou manip plus rapide?
Merci
Pascal

"LSteph"
Bonjour,

C'est plus du VB tout court que du VBA, dans ce contexte
en déclarant l'API et
d'autre part attention à l'espace ici:
fso.CopyFile .FoundFiles(i),
et non pas
fso.CopyFile.FoundFiles(i),

Voici mais qui rame copieusement:

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _
ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long


Sub CopierFichiers()
Dim fso As Object
Dim strFile As String
Dim i As Integer
'Crée un nouveau repertoire si non existant
Set fso = CreateObject("Scripting.fileSystemObject")
If Not fso.folderExists("C:Tout mon XL") Then
fso.createFolder ("C:Tout mon XL")
End If
'Recherche les fichiers excel et les copie dans le repertoire
With Application.FileSearch
.LookIn = "C:"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
fso.CopyFile .FoundFiles(i), "C:Tout mon XL"
Next i
End With
End Sub



'Cdlt
'lSteph
Bonjour,
J'ai ce code destiné à regrouper et faire une copie de tous mes fichiers
excel dans un autre dossier:

Sub CopierFichiers()
Dim fso As Object
Dim strFile As String
Dim i As Integer
'Crée un nouveau repertoire si non existant
Set fso = CreateObject("Scripting.fileSystemObject")
If Not fso.folderExists("C:Tout mon XL") Then
fso.createFolder ("C:Tout mon XL")
End If
'Recherche les fichiers excel et les copie dans le repertoire
With Application.FileSearch
.LookIn = "C:"
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
fso.copyfile.FoundFiles (i), "C:Tout mon XL"
Next i
End With
End Sub
A chaque fois que je l'excécute j'ai une erreur sur
fso.copyfile.FoundFiles (i), "C:Tout mon XL"
Quelqu'un voit??
Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000722-4, 09/03/2007
Analyse le : 11/03/2007 10:29:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000722-4, 09/03/2007
Analyse le : 11/03/2007 18:20:01
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000723-0, 11/03/2007
Analyse le : 12/03/2007 08:17:03
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Publicité
Poster une réponse
Anonyme