Bonjour,
J'utilisais jusqu'à présent une macro me permettant d'accéder aux données d'un nombre variable d'autres tableaux. Pour ce faire, j'utilisais en premier lieu cette commande :
With Application.FileSearch
.LookIn = CheminClasseur
.SearchSubFolders = True
.Filename = "CE 20*"
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
If .FoundFiles(i) <> ActiveWorkbook.FullName Then
Workbooks.Open Filename:=.FoundFiles(i)
nomfichier = ActiveWorkbook.Name
Application.Goto Reference:="Toutes"
Selection.Copy
Windows(NomClasseur).Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, _
SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False
Workbooks(nomfichier).Close SaveChanges:=False
End If
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
End With
Nous avons changé la partition sur laquelle se trouve les fichiers, et depuis, la macro refuse de se lancer et bloque sur la première ligne :
Merci de votre aide,
Bonne journée,
Plectrude
J'utilisais jusqu'à présent une macro me permettant d'accéder aux données d'un nombre variable d'autres tableaux. Pour ce faire, j'utilisais en premier lieu cette commande :
With Application.FileSearch
.LookIn = CheminClasseur
.SearchSubFolders = True
.Filename = "CE 20*"
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
If .FoundFiles(i) <> ActiveWorkbook.FullName Then
Workbooks.Open Filename:=.FoundFiles(i)
nomfichier = ActiveWorkbook.Name
Application.Goto Reference:="Toutes"
Selection.Copy
Windows(NomClasseur).Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, _
SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False
Workbooks(nomfichier).Close SaveChanges:=False
End If
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
End With
Nous avons changé la partition sur laquelle se trouve les fichiers, et depuis, la macro refuse de se lancer et bloque sur la première ligne :
With Application.filesearch
A quoi cela peut-il être dû (l'aide d'Excel est un peu sybilline pour moi sur ce sujet), et surtout, surtout, comment résoudre ce problème ?Merci de votre aide,
Bonne journée,
Plectrude