Bonjour à tous les forumeurs
Je me suis servi d'une macro déjà existante que j'ai trouvé sur le forum.
L'objectif est la copie d'onglets prédéfinis d'un fichier excel (.xlsm) vers un nouveau fichier.
La copie s'effectue bien mais je perds toute la mise en forme des tableaux contenus dans ces mêmes onglets.
Voici la macro:
De plus lorsque j'ouvre le nouveau fichier, j'ai le message suivant:
Quand le fichier s'ouvre, j'ai:
Quelqu'un aurait-il une solution à me proposer?
Je vous remercie par avance pour votre aide!
Je me suis servi d'une macro déjà existante que j'ai trouvé sur le forum.
L'objectif est la copie d'onglets prédéfinis d'un fichier excel (.xlsm) vers un nouveau fichier.
La copie s'effectue bien mais je perds toute la mise en forme des tableaux contenus dans ces mêmes onglets.
Voici la macro:
Sub FichierClient_Clic()
Dim tablo, F As Object, n%, chemin$, test As Boolean, fichier$, FileFormatNum
If MsgBox("Voulez-vous générer le fichier Client?", vbYesNo) = vbYes Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
tablo = Array("Synthèse", "Projets Devis", "Service Recurrent", "IGE-Indicateurs SR", "Catalogue de Services") 'noms des feuilles à copier
Set F = ThisWorkbook.Sheets(tablo)
With Application
n = .SheetsInNewWorkbook
.SheetsInNewWorkbook = F.Count
Workbooks.Add
.SheetsInNewWorkbook = n
End With
With ActiveWorkbook
For n = 1 To F.Count
With .Sheets(n)
F(n).Cells.Copy .Cells
.UsedRange = .UsedRange.Value
.Name = F(n).Name
End With
Next
.Sheets(tablo).Select
'ActiveWindow.DisplayGridlines = False 'le quadrillage n'est pas affiché
.Sheets(1).Select
chemin = "C:\Temp\"
test = Val(Application.Version) < 12
'---enregistrement au format en cours-------------
fichier = "test" & IIf(test, ".xls", ".xlsx")
FileFormatNum = IIf(test, xlWorkbookNormal, 51)
.SaveAs chemin & fichier, FileFormatNum
.Close
End With
End If
MsgBox "Le fichier Client à été généré sous C:\Temp"
End Sub
De plus lorsque j'ouvre le nouveau fichier, j'ai le message suivant:
Excel a rencontré un contenu illisible dans "test.xlsx". Voulez-vous récupérer le contenu de ce classeur? si la source de ce classeur est fiable, cliquez sur Oui.
Quand le fichier s'ouvre, j'ai:
Partie supprimée: /xl/drawings/drawing2.xml partie. (Forme de dessin)
Quelqu'un aurait-il une solution à me proposer?
Je vous remercie par avance pour votre aide!