Aide Code Vba

thibaut_francois Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   -  
thibaut_francois Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   -
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.Close

End Sub


Mais le code bloque quand je passe à la 2ème feuille.

Pourriez-vous m'expliquer pourquoi ?

Merci de votre aide
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 714
 
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
0
thibaut_francois Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonjour f894009,
Oui mais la, ça ne copie-colle pas les valeurs.
Je ne veux pas que les formules restent.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 714 > thibaut_francois Messages postés 96 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Je ne veux pas que les formules restent. Fallait le dire avant !!!!!!
0
thibaut_francois Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   1 > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Bah ceci est bien écrit :

"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"
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 714 > thibaut_francois Messages postés 96 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Si j'écris 12 dans une cellule c'est aussi une valeur !!!!
Qu'est-ce qui bloque pour la deuxième feuille??

Je viens de tester votre code et il marche !!!
0
thibaut_francois Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   1
 
Alors désolé pour la mauvaise explication.
Tout le début fonctionne bien. Parfait pour la 1ère feuille "Informatique".

Et j'arrive pas à comprendre pourquoi, ils stoppent au moment de passer sur la 2ème feuille sur :

Sheets("Détail des cdes Informatique").Select

Je me demande s'il serait pas perdu en fait...
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses