d'un classeur ouvrir plusieurs classeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

laurent999

XLDnaute Occasionnel
Bonsoir tous le monde,

J'ai un problème que je n'arrive pas à résoudre.

D'un classeur j'aimerais pouvoir ouvrir d'autres classeur d'un même répertoire les uns après les autres puis les refermer en sauvegardant l'opération.

L'action complète est donc:

ouvrir le fichier.
action.
fermer le fichier et sauvegarder.
Passer au suivant.

Ce que je n'arrive pas à faire est:
ouvrir-fermer-passer au suivant.

Si quelqu'un peu me donner un début de code.

Merci d'avance.

Laurent.
 
Re : d'un classeur ouvrir plusieurs classeur

Bonsoir Laurent, salut jp14,

Vous aurez peut-être des difficultés avec l'exemple de jp, alors voici un code très simple à comprendre :

Code:
Sub RechercheFichier()
Dim nomfich As String
Application.ScreenUpdating = False 'fige l'écran
On Error Resume Next
nomfich = Dir(ThisWorkbook.Path & "\*.xls") '1er fichier du dossier
While nomfich <> ""
  If nomfich <> ThisWorkbook.Name Then
    If IsError(Workbooks(nomfich).Name) Then _
      Workbooks.Open ThisWorkbook.Path & "\" & nomfich 'si le fichier n'est pas déjà ouvert, on l'ouvre
    
    '-----suite du code--------

    Workbooks(nomfich).Close True 'enregistrement et fermeture
  End If
  nomfich = Dir 'fichier suivant du dossier
Wend
ThisWorkbook.Activate
End Sub

Edit : le fichier contenant cette macro doit se trouver dans le même dossier (répertoire) que les fichiers à ouvrir

A+
 
Re : d'un classeur ouvrir plusieurs classeur

Merci pour ta réponse Jp,

Cependant j'ai quelques difficultés à comprendre:

Si tu peux résoudre mon problème j'ai joint un fichier.

Du Classeur "Accueil" en feuille 1 il y une date.
Je voudrais que les infos situées devant chaque prénom, soit transférées dans les classeurs situés dans le dossier "nom" en face de la date située dans l'une des 12 feuilles correspondant aux différents mois de l'année.

Chaque classeur du dossier "nom" et nommé par le prénom dans le classeur "accueil".

Merci d'avance.

Laurent.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
Réponses
13
Affichages
2 K
sanae_J
S
Retour