Sujet Précédent Sujet Suivant

Boucle ouverture fichier VBA excel

Résolu/Fermé
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 - 22 sept. 2011 à 11:35
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 - 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.


A voir également:

7 réponses

Réponse 1 / 7
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 9
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
3
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
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?
0
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 9
22 sept. 2011 à 13:10
Oui très bonne idée, pouvez vous m'indiquer une syntaxe ?
merci
0
Réponse 2 / 7
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 9
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
2
Réponse 3 / 7
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
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.
1
Réponse 4 / 7
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
22 sept. 2011 à 11:42
bonjour,

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
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?
0
Réponse 6 / 7
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 9
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
0
Réponse 7 / 7
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 9
22 sept. 2011 à 12:57
Il me reste "juste" à créer ma boucle pour l'ouverture des fichiers :-)
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
22 sept. 2011 à 13:12
Un exemple ici
Si tu as besoin d'aide pour l'adapter à ton cas, n'hésite surtout pas.
0
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 9
22 sept. 2011 à 13:41
Super merci beaucoup
0
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 9
22 sept. 2011 à 13:47
il me manque juste la commande pour ouvrir un fichier et ça sera génial ! J'essaye de la trouver sur le net et je la poste
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
22 sept. 2011 à 13:49
Mmmmm
Essaye :
Workbooks.Open "Chemin d'accès et nom du fichier"
0
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 9
22 sept. 2011 à 13:56
C'est ça, merci beaucoup
0

Discussions similaires

comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses