Générer un fichier de synthèse en VBA

Bonjour,

Voir le fichier joint. En cliquant sur le bouton je génère un fichier de synthèse (mettre à jour le chemin sur votre poste-voir le code-pour que cela fonctionne). La synthèse fait la somme de cellules du fichier source, ligne par ligne. Par exemple la somme des cellules E2 à O2 =135 est reportée dans la cellule C2 du fichier de synthèse.

1ère question:

Je n'arrive pas à centrer mes 3 colonnes du fichier de synthèse avec le code :

Wbk.Worksheets(1).Columns("A:C").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Voyez-vous pourquoi ? On voit quand on ouvre le fichier que les colonnes sont sélectionnées mais non centrées...

2ème question:

D'une manière générale, existe t'il une autre façon de générer un fichier de synthèse, sans utiliser de variable instanciées ? Car son maniement n'est pas simple...

Certes on génère un fichier et on travaille dedans sans l'ouvrir, c'est propre !

Mais si on pouvait le générer, puis l'ouvrir automatiquement, puis travailler dedans en reportant facilement des données du fichier source, cela me conviendrait mieux !

En attente de vos solutions !

Dadams51

Bonjour,

Une proposition à étudier.

Cdlt.

Bonsoir,

Merci Jean-Eric, c'est résolu !

Dadams51