Discussion :

[mephistos123]

Bonjour

je voudrais ouvrir, sauvegarder et fermer des claseurs (asc1.xls, asc2.xls,...) à partir d'une macro qui serait dans un autre classeur source (fiches) qui comtient tout les liens hypertext des claseurs à ouvrir dans les cellules "E2:E201"

en effet chacun de ces classeur execute une macro avant la sauvegarde, ce qui me permettra de mettre à jour une base de donnée

merci d'avance

[hkpsyco]

Bonjour,

Tous tes classeurs (asc1.xls, asc2.xls...) se trouvent dans un même dossier ou dans des dossiers différents.

S'ils sont dans le même dossier tu peux par exemple faire un parcours sur tous les fichiers présents dans ton dossier.

Sinon s'ils sont pas dans un même dossier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim Classeur as Workbook
 
i = 2
 
While i <> 202
 
  CheminDuClasseur = Cells(i,5)
  Set Classeur = Workbooks.Open(Filename:=CheminDuClasseur)
  Classeur.Activate
 
  ' SI TU AS UN TRAITEMENT A FAIRE DANS LE CLASSEUR TU LE FAIS ICI
 
  Classeur.save
  Classeur.close
 
  i = i + 1
 
Wend

[Drost]

Hello,

Voic un brin de code pour ouvrir sauvegarder et fermer un fichier. Il ne te restera plus qu'a inserer tout cela dans une boucle qui recupere les noms de tes fichiers dans la feuille de ton classeur source ( e2:e201).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Chemin = "R:\Folder\"
 
 
    ChDir Chemin
    ActiveWorkbook.SaveAs Filename:= _
        Chemin & "\nomdufichier".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
ActiveWorkbook.Save
 
    ActiveWindow.Close

Bonne programmation

Drost

[mephistos123]

Bonjour,

S'ils sont dans le même dossier tu peux par exemple faire un parcours sur tous les fichiers présents dans ton dossier.

comment fait on pour parcourir un dossier????, en effet ils sont tous dans un même dossier.

par contre je veux qu'ils soient ouvert, sauvegarder et fermer l'un après l'autre, je ne sais pas si le parcours de dossier fonctionnera ainsi...

[hkpsyco]

Oui le parcours du dossier fonctionne à merveille.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim CheminDuRepertoire As String
Dim objFSO, objDossier, objFichier
On Error Resume Next
 
CheminDuRepertoire = "tu mets ici le chemin absolue de ton répertoire"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(CheminDuRepertoire)
 
If (objDossier.Files.Count > 0) Then
  For Each objFichier In objDossier.Files
    If (InStr(1, objFichier.Name, ".xls", 1) > 0) Then
      ' ICI TU FAIS TON TRAITEMENT, Tu ouvres le classeur avec la méthode que je t'ai donné précedement allez je suis gentil, je te donne une ébauche
      Set Classeur = Workbooks.Open(Filename:=CheminDuRepertoire & "\" & objFichier.Name)
      Classeur.Activate ' Tu actives ton classeur pour pouvoir faire des traitements dedans
      ' SI TU AS UN TRAITEMENT A FAIRE DANS LE CLASSEUR TU LE FAIS ICI
      Classeur.save ' Tu sauvegardes ton classeur
      Classeur.close ' et tu fermes ton classeur
 
    End if
  Next
Else
  MsgBox ("Il n'y a aucun fichier dans ce répertoire !")
End If
 
Set objDossier = Nothing
Set objFSO = Nothing

Voila normalement avec ça tout devrait bien se passer. Si je récapitule, ce code va donc ouvrir un par un les fichiers Excel d'un dossier, faire de l'execution si demandez, sauvegarder, puis fermer. C'est bien ce que tu veux ? allez ciao !

[mephistos123]

merci beaucoup, je teste cela au plus vite et vous tiens informé.

merci

[ouskel'n'or]

Hello hkpsyco,
Je reconnais que ton code est très beau, si si ! mais il y a plus simple
Tu sélectionnes ton code, en mode d'édition, et tu fais un clic sur l'icône # en haute de la fenêtre.
Bonne soirée

[mephistos123]

le code fonctionne à merveille sauf que j'ai des liens entre mes classeurs, donc ca beug car ça me demande si je veux mettre à jour mes liaisons.

avez vous une commande qui permmet de dire mettre à jour automatiquement ces liaisons de manière à ce que la macro ne s'arrête pas en plein milieu à chaque classeur???

merci de votre aide

[hkpsyco]

Merci du conseil ouskel'n'or ^^ Je vais essayer ton astuce lorsque j'aurai l'occasion

Alors mephistos123, si tu ne veux pas que ton programme te demande de mettre à jour tes liens et que tu veux le faire toi même :

Code :

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

1
2
Application.AskToUpdateLinks = False
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

Voila, la première ligne désactive la fenêtre qui te demande de mettre à jour ton classeur et la deuxième ligne met à jour toutes les liaisons du classeur actif. A toi d'adapter le tout maintenant