Enregistrer sous à l'aide d'une macro

[f1f00]

Salut à tous

Existe il une macro permettant d'enregistrer sous des classeurs ouverts?

En fait j'aimerais qu'en appuyant sur un bouton plusieurs classeurs souvrent et qu'en appuyant sur un autre bouton ces classeurs s'enregistrent sous un autre chemin.
J'insiste sur le fait que les classeurs doivent tous être ouvert en mêm temps et être tous enregistrés sous et non pas copié collé.

Un exempleRegarde la pièce jointe Classeur2.xls

 

[MJ13]

Re : Enregistrer sous à l'aide d'une macro

Bonjour F100

Tu peux essayer avec un code de ce type à adapter.

for each cel in range("B2:B"&end(xlup).rows.row
 
Utilise l'enregistreur de macro pour avoir la syntaxe exact des actions à faire
 
next cel

Et une Bière (tu as vu je suis à 1664!)

 

[GCFRG]

Re : Enregistrer sous à l'aide d'une macro

Bonjour tu peux tester ceci, et l'adapter
Sub test()
Dim chemin As String, Derlig As Integer, I As Integer
With Sheets("feuil1")
Derlig = .Range("b" & .Rows.Count).End(xlUp).Row
For I = 2 To Derlig
chemin = .Range("b" & I).Value


ThisWorkbooks.Open Filename:=chemin
Next
End With
End Sub

pour l'enregistrement la syntaxe est

ThisWorkbook.SaveAs Filename:=chemin
Si problème revient

Gilbert

 

[f1f00]

Re : Enregistrer sous à l'aide d'une macro

Je teste ca cet aprem merci je reviens vous dire

 

[f1f00]

Re : Enregistrer sous à l'aide d'une macro

Pas eu le temps je teste lundi merci encore

 

[f1f00]

Re : Enregistrer sous à l'aide d'une macro

Quand je clique sur le bouton un message d'erreur apparait "Erreur d'exectuion '424': Objet requis" et on me souligne la ligne ThisWorkbooks.Open Filename:=chemin

 

[GCFRG]

Re : Enregistrer sous à l'aide d'une macro

Salut,

si joint un exemple d'ouverture de fichiers en fonction d'un chemin ou ils sont supposés se trouver .
dans le code tu peux remplacer:
Chemin = Application.InputBox("Veuillez saisir le Chemin ou se trouvent les fichiers à ouvrir")

Par

Chemin = "le chemin ou se touvent tes fichiers"

@+ Gilbert

 

[f1f00]

Re : Enregistrer sous à l'aide d'une macro

Merci Gilbert j'essaie ca dans la journée un grand merci encore

 

[f1f00]

Re : Enregistrer sous à l'aide d'une macro

Super Gilbert ta macro est niquelle maintenant sais tu comment enregistrer sous tous ces fichiers ouverts?

 

[f1f00]

Re : Enregistrer sous à l'aide d'une macro

Imaginons que comme dans lexemple ci joint je veuille non pas ouvrir tous les fichiers d'un chemin mais tous les fichiers de l'ensemble des chemins qui sont dans la colonne chemin. Pourais tu m'aider à complétr la macro dans ce sens??

Regarde la pièce jointe ouvrir%20fichiers(1).xls

 

[GCFRG]

Re : Enregistrer sous à l'aide d'une macro

Salut, pas le temp ce matin, je m'y colle cet après-midi, j'aurait surement besoins d'autres éléments, donc suis le fil.

Gilbert

 

[f1f00]

Re : Enregistrer sous à l'aide d'une macro

EN tout cas c'est très gentil de prendre du temps pour moi

 

[f1f00]

Re : Enregistrer sous à l'aide d'une macro

Je suis prêt si tu as besoin d'information

 

[GCFRG]

Re : Enregistrer sous à l'aide d'une macro

Bonjour, à tester voit si çà te convient
j'ai ajouter un formulaire avec deux "combobox" et 2 "Commandbutton"

Gilbert

 

[f1f00]

Re : Enregistrer sous à l'aide d'une macro

Franchement c'est génialissime merci beaucoup je veux pas plus t'emmbêter mais c'est vrai qu'une solution ou on pouvait enregistrer sous plusieurs fichiers en mm temps aurait été plus agraéble sachant que j'ai une 50ene de classeur à enregistrer par client et que j'ai une 100ene de client mais t'inquiete pas c'est déjà énorme merci beaucoup.