Aide Code Vba Fermé

Question

Bonjour à tous, 
J'ai un fichier excel avec plusieurs feuilles. Je souhaite découper le fichier en plusieurs fichiers différents pour les mettre à disposition de gestionnaires.

Déplacer une seule feuille/copier coller ses valeurs/et enregistrer sous fonctionne bien.

Mais ça se gâte pour le Déplacement de 2 feuilles/copier colles les valeurs des 2 feuilles.

J'ai écrit ça :

Sub Informatique()    Sheets(Array("Informatique", "Détail des cdes Informatique")).Select    Sheets(Array("Informatique", "Détail des cdes Informatique")).Copy        Cells.Select    Selection.Copy    Selection.PasteSpecial Paste:=xlPasteValues    Application.CutCopyMode = False    Range("A1").Select        Sheets("Détail des cdes Informatique").Select    Cells.Select    Selection.Copy    Selection.PasteSpecial Paste:=xlPasteValues    Application.CutCopyMode = False    Range("A1").Select        Sheets("Informatique").Select             With Application        .DisplayAlerts = False        .EnableEvents = False            ActiveWorkbook.SaveAs Filename:=Chemin & "\DIRECTION DU SYSTEME D'INFORMATION.xlsx"            .EnableEvents = True        .DisplayAlerts = True        End With        ActiveWindow.CloseEnd Sub

Mais le code bloque quand je passe à la 2ème feuille.

Pourriez-vous m'expliquer pourquoi ?

Merci de votre aide

f894009 · Answer

Bonjour,

avec enregistreur de macro et adaptation pour le chemin

Sub Macro1()
'
' Macro1 Macro
'

'
    Application.ScreenUpdating = False
    chemin = "D:\_acsv1"        'a adapter
    Sheets(Array("Informatique", "Détail des cdes Informatique")).Select
    Sheets(Array("Informatique", "Détail des cdes Informatique")).Copy
    ActiveWorkbook.SaveAs Filename:=chemin & "\DIRECTION DU SYSTEME D'INFORMATION.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
End Sub

Aide Code Vba

1 réponse

Discussions similaires