Bonjour,
J'ai fais une macro qui pour chaque classeur d'un répertoire y copie une feuille provenant d'un autre classeur puis l'imprime.
Malheureusement, alors que tous les fichier sont sensé être identique, certains me provoquait l'erreur : "les titres à imprimer doivent être adjacents et constitués de lignes ou de colonnes entières"
Je n'ai pas réussi, dans les fichiers concerné à isoler le problème.
Pour contourner, j'ai ajouté ce code avant la copie de la feuille de calcul :
Évitez de sauvegarder le fichier ensuite, car vous perdriez les titres de ligne et colonnes et zones d'impression.
En espérant que cela sera utile à quelqu'un.
Salutations
Guy
J'ai fais une macro qui pour chaque classeur d'un répertoire y copie une feuille provenant d'un autre classeur puis l'imprime.
Malheureusement, alors que tous les fichier sont sensé être identique, certains me provoquait l'erreur : "les titres à imprimer doivent être adjacents et constitués de lignes ou de colonnes entières"
Je n'ai pas réussi, dans les fichiers concerné à isoler le problème.
Pour contourner, j'ai ajouté ce code avant la copie de la feuille de calcul :
Code:
Dim Feuille As Worksheet 'A placer au début de la procédure
For Each Feuille In ThisWorkbook.Sheets
With Feuille.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
.PrintArea = ""
End With
NextÉvitez de sauvegarder le fichier ensuite, car vous perdriez les titres de ligne et colonnes et zones d'impression.
En espérant que cela sera utile à quelqu'un.
Salutations
Guy
