[XL-365 ProPlus] ForEach - méthode non gérée

Bonjour à tous,

Je débute en VBA ne parviens pas à trouver mon erreur.

Mon objectif est pourtant très simple.
- Donner un chemin d'accès dans une cellule, menant a un dossier avec des .xlsx
- Faire une boucle parcourant les .xlsx afin de les modifier/dupliquer/déplacer ...
Le code en question :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test1() Dim fso As Object Dim rep As String Dim X As Object Set fso = CreateObject("Scripting.FileSystemObject") rep = Cells(6, 3).Value & "\" 'répertoire actif à partir de C6 = C:\..\..\ MsgBox rep 'Vérification : OK For Each X In fso.GetFolder(rep) 'mes instructions, exemple: Workbooks.Open X 'Ouvre le xlsx original Sheets("Feuil1").Range("B4:C15").Copy 'Copier des données ActiveWorkbook.Close 'Ferme le xlsx original Workbooks.Add 'Créé un nouveau xlsx ActiveSheet.Paste Destination:=Range("A1") 'Y coller les données ActiveWorkbook.SaveAs "MODEL" 'Le nommer ActiveWorkbook.Close 'Ferme le nouveau xlsx Next X End Sub

---

Et sur le for each, j'ai l'erreur suivante :

Citation:

---

Erreur 438, propriété ou méthode non gérée par cet objet.

---

J'ai pourtant regardé pas mal de forums (nombreux topics sur for each) et la docs microsoft, je ne sais pas pourquoi. J'ai également essayé en ajoutant un .SubFolders, mais meme resultat (de tout manière il n'y a pas de sous ossier dans mon cas).
Cela pourrait-il venir de la version que j'utilise ? 365 proplus

Egalement j'ai vu revenir à plusieurs reprises l'instruction f = Dir(X & "*.xlsx"), je n'ai pas bien compris ce que cela renvoyait (pas réussi a la faire tourner).

Pourriez-vous m'indiquer mes erreurs ?

Bonjour,

Un début de solution:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test1() Dim fso As Object, rep As Object, X As Object Set fso = CreateObject("Scripting.FileSystemObject") Set rep = fso.GetFolder(Cells(6, 3).Value) 'chemin répertoire For Each X In rep.Files If InStr(X.Name, ".xls") > 0 Then Debug.Print X.Name End If Next X End Sub

---

Cordialement.

Bonjour EricDgn,
Merci beaucoup pour ta réponse ! Avec ça, la boucle parcours bien les différents fichiers.
Question détails : ta ligne 4 avec le set, elle permet de définir le chemin d'accès au dossier ou bien elle permet d’accéder au dossier (= elle "ouvre" le dossier) ?

Bonjour à tous,

et Bonne Année

Il manque l'instanciation du fichier Excel

Je te conseille ce tuto que j'ai comme livre de chevet

http://warin.developpez.com/access/fichiers/#LI-D-1

Certes l'exemple est avec un fichier Texte mais rien ne t'empêche d'y mettre un fichier Excel




Ceci dit moi j'utiliserais les "FileDialog" car tout ce gère dedans y compris les ouvertures de plusieurs fichiers. C'est hypra simple et c'est très propre.




concernant l'instruction: f = Dir(X & "*.xlsx") cette instruction permet de passer au fichier suivant seulement je ne l'ai jamais vu combiné avec *.xlsx

voici un exemple tiré de la documentation en ligne

Cet exemple utilise la fonction Dir pour vérifier si certains fichiers et répertoires existent.

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

Dim MyFile, MyPath, MyName ' Returns "WIN.INI" (on Microsoft Windows) if it exists. MyFile = Dir("C:\WINDOWS\WIN.INI") ' Returns filename with specified extension. If more than one *.ini ' file exists, the first file found is returned. MyFile = Dir("C:\WINDOWS\*.INI") ' Call Dir again without arguments to return the next *.INI file in the ' same directory. MyFile = Dir ' Return first *.TXT file with a set hidden attribute. MyFile = Dir("*.TXT", vbHidden) ' Display the names in C:\ that represent directories. MyPath = "c:\" ' Set the path. MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry. Do While MyName <> "" ' Start the loop. ' Ignore the current directory and the encompassing directory. If MyName <> "." And MyName <> ".." Then ' Use bitwise comparison to make sure MyName is a directory. If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName ' Display entry only if it End If ' it represents a directory. End If MyName = Dir ' Get next entry. Loop

---

l'instruction : MyName = Dir
suffit pour passer au fichier suivant

tu nous dis

A bientôt

PS : Quand tu mets un code sur ton post sélectionne le et clic sur le bouton [#] cela mettra les balises Codes au début et à la fin de ta sélection donc de ton code c'est plus plaisant et facile à lire

Disons, qu'au moment de ce Set rep il y a tentative de se connecter au dossier. Si le dossier n'existe pas, cela provoque une erreur. Sinon, rep se connecte au dossier.
Cordialement.

Igloobel > Bonne année ! Merci pour le lien, je suis en train de le zyeuter c'est une vraie mine d'or pour se familiariser avec l'utilisation des mots-clés.
Je ne connais pas FileDialog, je suis vraiment au tout début de mon apprentissage. J'ai de bonnes connaissances en python, R et matlab/scilab mais VBA c'est nouveau.
Ok merci pour le "Dir" ! Donc c'est pas la peine de l'utiliser lorsqu'on utilise déjà une boucle For Each pour parcourir les fichiers si je comprends bien.
(Merci aussi pour le PS, j'y penserais !)

EricDgn > C'est compris, merci beaucoup !