Demande du Québec pour Workbooks.open

[Xtian]

Bonjour le forum, je viens de vous découvrir...Je trouve ça SUPER !!!

J'aimerais savoir comment utiliser "inputbox" pour ouvrir différents fichiers. Je dois mettre à jour plus de 50 fichiers identiques mais avec des noms différents. Ma macro actuelle (dans mon fichier maître) fait la mise à jour des autres fichiers mais je dois ouvrir manuellement chacun de ces fichiers et ensuite exécuter la macro.

J'aimerais avoir une boîte de saisie qui me demande le nom du fichier à ouvrir et à mettre à jour. Une fois la mise à jour effectuée, le fichier doit être sauvegarder sous un autre nom. Je présume que je pourrai utiliser une autre "inputbox" avec le code "Save as".

Merci beaucoup de votre aide.

Xtian

 

[didier]

Salut le Québec, ici la Wallonie ...
Voici une solution qui je pense pourrais t'aider si tous test fichiers sont placés dans un seul dossier.

Sub AvantMacro()
MonDossier = "C:\MesFichiers"
Application.Dialogs(xlDialogOpen).Show MonDossier
End Sub

Sub ApresMacro()
MonDossier = "C:\CopieFichiers"
ChDir MonDossier
MonFichier = "Copy of " & ActiveWorkbook.Name
Application.Dialogs(xlDialogSaveAs).Show MonFichier
End Sub

A+
Didier

 

[Xtian]

Cher Didier de Wallonie

C'est exactement ce que je cherchais. En utilisant ce code, je pourrai choisir le fichier à mettre à jour.

Merci pour la réponse rapide.

Xtian du Québec (sous la neige présentement)