erreur

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel erreur

3 réponses

Pascal

11/03/2007 à 10:29

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

3 réponses

LSteph

11/03/2007 à 11:10

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

11/03/2007 à 18:20

Mreci tout cela pour un espace

"LSteph" a écrit dans le message de news:

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

Mreci tout cela pour un espace

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uwpo8V8YHHA.984@TK2MSFTNGP04.phx.gbl...

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

Vous avez filtré cet utilisateur ! Consultez son message

Mreci tout cela pour un espace

"LSteph" a écrit dans le message de news:

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

12/03/2007 à 08:16

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

"LSteph" a écrit dans le message de news:

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

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

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uwpo8V8YHHA.984@TK2MSFTNGP04.phx.gbl...

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

Vous avez filtré cet utilisateur ! Consultez son message

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

"LSteph" a écrit dans le message de news:

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

erreur

3 réponses

Veuillez sélectionner un problème