Discussion :

[linoo7]

Bonjour à tous,

Nouvelle sur le forum, je me trouve confrontée à un problème concernant la réalisation d'une boucle en VBA sous excel.
J'ai 104 fichiers que jai renommé de 100 à 203. J'aimerai les ourir un par un copier le contenue puis le coller dans un meme fichier.
Je n'arrive pas a effectuer la boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 100 to 203
  Workbooks.Open Filename:= _
        "C:\Documents and Settings\Propriétaire\Bureau\Annuaire Pro\i.xls"
Next i

Je ne vois pas où est mon erreur.
Merci par avance
Cordialement,
Aline

[Invité]

Bonjour

Il faut sortir ta variable i de la chaine, essayes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 100 to 203
  Workbooks.Open Filename:= _
        "C:\Documents and Settings\Propriétaire\Bureau\Annuaire Pro\" & i & ".xls"
Next i

Starec

[fring]

J'ai 104 fichiers que jai renommé de 100 à 203. J'aimerai les ourir un par un...

Bonjour,
Là, tu vas ouvrir les 104 fichiers en même temps...je n'ai jamais fait le test mais je ne suis pas certain que le pc va apprécier

Si tu veux les ouvrir un par un, tu pourrais par exemple faire une pause entre chaque ouverture via une Message Box.

En reprenant l'info que t'a communiqué Starec, ça donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 100 to 203
Workbooks.Open Filename:= _
        "C:\Documents and Settings\Propriétaire\Bureau\Annuaire Pro\" & i & ".xls"
MsgBox "Ouvrir fichier n° " & i + 1 & " ?"
Next i

[alsimbad]

ou tout simplement

ouvrir
copier
coller
fermer
next

[linoo7]

merci à tout le monde,
j'ai réussi à ouvrir les 104 fichiers à copier et puis à coller et je suis entrain de chercher à re fermer chaque fichier après ouverture mais j'ai encore un peu de mal!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Windows(" & i & ".xls").Activate
    ActiveWindow.Close

Vraiment désolé mais je pense que j'ai encore beaucoup à apprendre
Merci

[cafeine]

Hello,

tu peux utiliser plutôt un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
dim wb as workbook
for i = 100 to 203
  set wb = application.workbooks.open  (Filename:= _
        "C:\Documents and Settings\Propriétaire\Bureau\Annuaire Pro\" & i & ".xls")
 
  'met ton code ici
  wb.Close
next i
 
set wb=nothing

[linoo7]

Re,

Désolé caféine mais votre code ne fonctionne pas lorsque je l'utilise.
Je vais continuer à chercher.

[cafeine]

j'ai rajouté une parenthèse ... ça doit être mieux ...