Téléchargement
illégal
Posez votre question Signaler

Boucle ouverture fichier VBA excel [Résolu]

Jack_636 23Messages postés 22 septembre 2011Date d'inscription 12 décembre 2011Dernière intervention - Dernière réponse le 22 sept. 2011 à 14:36
Bonjour,
Je travail actuellement sur une macro capable d'ouvrir des fichiers numérotés par mois, nommé suivant le schéma ci contre : XX - nom. XX étant le mois variant de 01 à 12 (logique ;-) ) et nom étant le nom de mon fichier, ce nom est invariant sur l'ensemble des fichiers.
Je cherche donc à réaliser une boucle me permettant d'ouvrir l'ensemble de ces fichiers; Attention si je lance ma macro en juin, il n'y aura que 6 fichiers dans mon dossier.
Merci beaucoup pour votre aide.
Lire la suite 

Boucle ouverture fichier VBA excel »

19 réponses
Réponse
+0
moins plus
michel_m 7330Messages postés 2 janvier 2008Date d'inscription 30 mai 2012Dernière intervention 22 sept. 2011 à 11:42
bonjour,

quel est le suffixe de tes fichiers (xls, xslx, xslm, doc, ppt....) ?

Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
pijaku 4445Messages postés 15 mai 2008Date d'inscription 30 mai 2012Dernière intervention 22 sept. 2011 à 11:42
Bonjour,
Tu dis : En juin, il n'y aura que 6 fichiers dans mon dossier en juillet 7, en septembre 9 etc...
Ben il suffit de boucler sur tous les fichiers du-dit répertoire...
Tu dis : Je travail actuellement sur une macro quel est ton code? Qu'as tu déjà écris? Qu'elles sont tes pistes? sources?

Ajouter un commentaire - Site web
Ajouter un commentaire
Réponse
+0
moins plus
Jack_636 23Messages postés 22 septembre 2011Date d'inscription 12 décembre 2011Dernière intervention 22 sept. 2011 à 12:50
Mes fichiers sont des fichiers excel donc *.xls

Je souhaiterai compter les fichiers de mon répertoire pour ensuite lancer une boucle avec un compteur allant de 1 à Nombre_de_fichiers pour ouvrir les fichiers de mon dossier.

Je n'ai malheureusement pas les connaissances suffisantes en VBA pour coder moi même cette macro.

Merci

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Jack_636 23Messages postés 22 septembre 2011Date d'inscription 12 décembre 2011Dernière intervention 22 sept. 2011 à 12:54
je viens de trouver un code comptant le nombre de fichiers de mon répertoire. Le voici :

Sub test()
Dim Rep As String
Dim n As Integer

Rep = Dir("C:\Chemin\Dossier\*.xls")
While Rep <> ""
n = n + 1
Rep = Dir()
Wend
MsgBox "Nombre de Fichiers : " & n
End Sub

Je vais essayer d'insérer ce résultat dans une cellule

 Ajouter un commentaire
pijaku- 22 sept. 2011 à 13:08
Il n'est pas utile de compter le nombre de fichiers.
Si, dans un dossier (répertoire), vous n'avez que les fichiers à ouvrir, il suffit de boucler sur tous les fichiers du répertoire :
For Each Fichiers In répertoire
Ok?
Jack_636- 22 sept. 2011 à 13:10
Oui très bonne idée, pouvez vous m'indiquer une syntaxe ?
merci
Ajouter un commentaire
Réponse
+0
moins plus
Jack_636 23Messages postés 22 septembre 2011Date d'inscription 12 décembre 2011Dernière intervention 22 sept. 2011 à 12:57
Il me reste "juste" à créer ma boucle pour l'ouverture des fichiers :-)

 Ajouter un commentaire
Afficher les 10 commentaires
Jack_636- 22 sept. 2011 à 14:15
merci
Jack_636- 22 sept. 2011 à 14:18
J'ai un message d'erreur, Excel ne s'attend pas à la 2eme chaine
Jack_636- 22 sept. 2011 à 14:19
c'est bon, merci bcp
Ajouter un commentaire
Réponse
+0
moins plus
pijaku 4445Messages postés 15 mai 2008Date d'inscription 30 mai 2012Dernière intervention 22 sept. 2011 à 14:34
Maintenant que tu y es parvenu, merci de placer ton code dans une réponse. cela peux effectivement resservir à quelqu'un d'autre.
Merci pour eux.

Ajouter un commentaire - Site web
Ajouter un commentaire
Réponse
+0
moins plus
Jack_636 23Messages postés 22 septembre 2011Date d'inscription 12 décembre 2011Dernière intervention 22 sept. 2011 à 14:36
Voici le code


Sub ouverture_générale()
Dim Rep As String
Dim n As Integer
Rep = Dir("C:\Chemin\*.xls")
While Rep <> ""
n = n + 1
Rep = Dir()
Wend
MsgBox "Nombre de Fichiers : " & n
For i = 1 To n
Range("A" & i).Value = i
Workbooks.Open "C:\Chemin\" & i & " Nomfichier.xls"
Next
End Sub

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « Boucle ouverture fichier VBA excel » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?