Aide Code Vba
thibaut_francois
Messages postés
99
Statut
Membre
-
thibaut_francois Messages postés 99 Statut Membre -
thibaut_francois Messages postés 99 Statut Membre -
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 :
Mais le code bloque quand je passe à la 2ème feuille.
Pourriez-vous m'expliquer pourquoi ?
Merci de votre aide
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:
- Aide Code Vba
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Scanner qr code pc - Guide
1 réponse
Bonjour,
avec enregistreur de macro et adaptation pour le chemin
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
Oui mais la, ça ne copie-colle pas les valeurs.
Je ne veux pas que les formules restent.
Je ne veux pas que les formules restent. Fallait le dire avant !!!!!!
"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"
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 !!!
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...