Copier une plage depuis le premier onglet et copier le deuxième onglet auto
KK7510
-
franc38 Messages postés 197 Date d'inscription Statut Membre Dernière intervention -
franc38 Messages postés 197 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un fichier excel composé de 2 onglets et je voudrais copier coller avec vba une plage du premier onglet, par exemple (B1:V2000) et copier en entier le deuxième onglet et que ces 2 onglets s'enregistrent quelque part à une adresse que je précise. Je souhaite que ce code copie depuis la feuille "Etat", la plage "B1:V2000" et le feuillet "LEXIQUE" en entier. Je n'arrive pas à adapter le code Sheets(Array("Etat", "LEXIQUE")).Copy pour lui donner une plage au feuillet "Etat". Quelqu’un aurait une idée? Merci par avance pour votre aide.
Sub Sauvegarde()
Dim extension As String, chemin As String, nomfichier As String, suivi As String
extension = ".xlsx"
chemin = "disque_test"
suivi = "Suivi_"
nomfichier = Sheets("Critères").Range("C7") & suivi & Sheets("Etat").Range("C3") & extension
Sheets(Array("Etat", "LEXIQUE")).Copy
ActiveWorkbook.SaveAs Filename:=chemin & nomfichier
ActiveWorkbook.Close
End Sub
J'ai un fichier excel composé de 2 onglets et je voudrais copier coller avec vba une plage du premier onglet, par exemple (B1:V2000) et copier en entier le deuxième onglet et que ces 2 onglets s'enregistrent quelque part à une adresse que je précise. Je souhaite que ce code copie depuis la feuille "Etat", la plage "B1:V2000" et le feuillet "LEXIQUE" en entier. Je n'arrive pas à adapter le code Sheets(Array("Etat", "LEXIQUE")).Copy pour lui donner une plage au feuillet "Etat". Quelqu’un aurait une idée? Merci par avance pour votre aide.
Sub Sauvegarde()
Dim extension As String, chemin As String, nomfichier As String, suivi As String
extension = ".xlsx"
chemin = "disque_test"
suivi = "Suivi_"
nomfichier = Sheets("Critères").Range("C7") & suivi & Sheets("Etat").Range("C3") & extension
Sheets(Array("Etat", "LEXIQUE")).Copy
ActiveWorkbook.SaveAs Filename:=chemin & nomfichier
ActiveWorkbook.Close
End Sub
A voir également:
- Copier une plage depuis le premier onglet et copier le deuxième onglet auto
- Comment copier une vidéo youtube - Guide
- Raccourci rouvrir onglet fermé - Guide
- Super copier - Télécharger - Gestion de fichiers
- Historique copier coller - Guide
- Copier dans le presse papier - Guide