Microsoft 365 VBA Array

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
Bonjour,

J'aurais une petite question, est-ce que on peut déclarer les onglets et les ranges comme array afin de les copier ?
Je voulais faire cela dans mon code, mais je reçois une erreur :

VB: 
ThisWorkbook.Sheets(Array("T1", "T2")).Range(Array("A:X", "A:X")).Value.Copy
With ActiveWorkbook
    .Sheets(1).UsedRange = .Sheets(1).UsedRange.Value
    .Sheets(2).UsedRange = .Sheets(2).UsedRange.Value
    .SaveAs ThisWorkbook.Path & "\" & NomFichier_ter
    .Close False
End With

Merci pour votre aide !
 
Trier par date Trier par votes
VBA_dev_Anne_Marie à dit:
Bonjour,

J'aurais une petite question, est-ce que on peut déclarer les onglets et les ranges comme array afin de les copier ?
Je voulais faire cela dans mon code, mais je reçois une erreur :

VB: 
ThisWorkbook.Sheets(Array("T1", "T2")).Range(Array("A:X", "A:X")).Value.Copy
With ActiveWorkbook
    .Sheets(1).UsedRange = .Sheets(1).UsedRange.Value
    .Sheets(2).UsedRange = .Sheets(2).UsedRange.Value
    .SaveAs ThisWorkbook.Path & "\" & NomFichier_ter
    .Close False
End With

Merci pour votre aide !
Cliquez pour agrandir...
Bonjour,

Stp, un fichier représentatif serait le bienvenu.
 
Vote positif 0 Vote négatif
Bonjour Anne Marie, Cathodique,
Si votre fichier est vraiment représentatif, ne serait il pas plus simple d'enregistrer le fichier sous un autre nom et dans ce fichier de supprimer les colonnes Y:AE ?
Vous conserveriez ainsi valeurs et formules, ainsi que les mises en forme, MFC ...
 
Vote positif 0 Vote négatif
sylvanu à dit:
Bonjour Anne Marie, Cathodique,
Si votre fichier est vraiment représentatif, ne serait il pas plus simple d'enregistrer le fichier sous un autre nom et dans ce fichier de supprimer les colonnes Y:AE ?
Vous conserveriez ainsi valeurs et formules, ainsi que les mises en forme, MFC
Cliquez pour agrandir...
Bonjour,

Merci pour votre mail.
En fait, c'est un fichier test pour voir l'idée.
Mon vrai fichier est très volumineux, je souhaite supprimer les colonnes automatiquement.
 
Vote positif 0 Vote négatif
Re,
Essayez avec :
VB: 
Sub Essai()
Application.ScreenUpdating = False
NomFichier = Format(Date, "yyyymmdd") & "- hebdo.xlsx"
With ThisWorkbook
    .Sheets(Array("T1", "T2")).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs .Path & "\" & NomFichier
    Sheets("T1").Columns("Y:AE").Delete Shift:=xlToLeft
    Sheets("T2").Columns("Y:AE").Delete Shift:=xlToLeft
    ActiveWorkbook.Close SaveChanges:=True
    Application.DisplayAlerts = True
End With
End Sub
 
Vote positif 0 Vote négatif
bonjour @VBA_dev_Anne_Marie , @sylvanu ,

Un essai d'après ce que j'ai compris.
VB: 
Option Explicit

Sub CopierClasseur()
   Dim wbNew As Workbook
   Dim ws1 As Worksheet, ws2 As Worksheet
   Dim T1 As Variant, T2 As Variant
   Dim cheminDossier As String, NomFichier As String

   ' Définition du classeur source
   Set ws1 = ThisWorkbook.Sheets("T1")
   Set ws2 = ThisWorkbook.Sheets("T2")

   ' Récupération des données des feuilles dans un tableau
   T1 = ws1.UsedRange.Value
   T2 = ws2.UsedRange.Value

   ' Définition du chemin du dossier
   cheminDossier = ThisWorkbook.Path
   NomFichier = Format(Date, "yyyymmdd") & "-hebdo.xlsx"

   ' Création du nouveau classeur
   Set wbNew = Workbooks.Add

   ' Renommer les feuilles et insérer les données
   wbNew.Sheets(1).Name = "T1"
   wbNew.Sheets(1).Range("A1").Resize(UBound(T1, 1), UBound(T1, 2)).Value = T1

   wbNew.Sheets(2).Name = "T2"
   wbNew.Sheets(2).Range("A1").Resize(UBound(T2, 1), UBound(T2, 2)).Value = T2

   ' Enregistrer le nouveau classeur
   wbNew.SaveAs cheminDossier & "\" & NomFichier
   wbNew.Close

   MsgBox "Le fichier " & NomFichier & " a été créé et enregistré dans " & cheminDossier, vbInformation

   Set ws1 = Nothing
   Set ws2 = Nothing

End Sub
 
Vote positif 0 Vote négatif
sylvanu à dit:
Re,
Essayez avec :
VB: 
Sub Essai()
Application.ScreenUpdating = False
NomFichier = Format(Date, "yyyymmdd") & "- hebdo.xlsx"
With ThisWorkbook
    .Sheets(Array("T1", "T2")).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs .Path & "\" & NomFichier
    Sheets("T1").Columns("Y:AE").Delete Shift:=xlToLeft
    Sheets("T2").Columns("Y:AE").Delete Shift:=xlToLeft
    ActiveWorkbook.Close SaveChanges:=True
    Application.DisplayAlerts = True
End With
End Sub
Cliquez pour agrandir...
Merci, malheureusement ce code ne supprime pas les plages Y:AE dans le fichier créé 🙁
 
Vote positif 0 Vote négatif
VBA_dev_Anne_Marie à dit:
malheureusement ce code ne supprime pas les plages Y:AE dans le fichier créé
Cliquez pour agrandir...
Si, je viens de vérifier.
Essayez cette PJ, enregistrez la sur le bureau, il crée bien le fichier sans les colonnes Y:AE.
Attention à l'ordre des lignes, il faut supprimer les colonnes puis enregistrer avec les modifications.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
code corrigé
VB: 
Option Explicit

Sub CopierClasseur()
   Dim wbNew As Workbook
   Dim ws1 As Worksheet, ws2 As Worksheet
   Dim T1 As Variant, T2 As Variant
   Dim cheminDossier As String, NomFichier As String
   Dim dl1 As Long, dl2 As Long
   ' Définition du classeur source
   Set ws1 = ThisWorkbook.Sheets("T1")
   Set ws2 = ThisWorkbook.Sheets("T2")

   dl1 = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
   dl2 = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row

   ' Récupération des données des feuilles dans un tableau
   T1 = ws1.Range("A1:X" & dl1).Value    '.UsedRange.Value
   T2 = ws2.Range("A1:X" & dl2).Value     '.UsedRange.Value

   ' Définition du chemin du dossier
   cheminDossier = ThisWorkbook.Path
   NomFichier = Format(Date, "yyyymmdd") & "-hebdo.xlsx"

   ' Création du nouveau classeur
   Set wbNew = Workbooks.Add

   ' Renommer les feuilles et insérer les données
   wbNew.Sheets(1).Name = "T1"
   wbNew.Sheets(1).Range("A1").Resize(UBound(T1, 1), UBound(T1, 2)).Value = T1

   wbNew.Sheets(2).Name = "T2"
   wbNew.Sheets(2).Range("A1").Resize(UBound(T2, 1), UBound(T2, 2)).Value = T2

   ' Enregistrer le nouveau classeur
   Application.DisplayAlerts = False
   wbNew.SaveAs cheminDossier & "\" & NomFichier
   Application.DisplayAlerts = True

   wbNew.Close

   MsgBox "Le fichier " & NomFichier & " a été créé et enregistré dans " & cheminDossier, vbInformation

   Set ws1 = Nothing
   Set ws2 = Nothing

End Sub
 
Vote positif 0 Vote négatif
Bonjour le forum,

Perso j'utiliserais :
VB: 
Sub Enregistrer_sans_formules()
Dim NomFichier As String, a As Object, n
NomFichier = Format(Date, "yyyymmdd") & "- hebdo.xlsx"
Set a = ThisWorkbook.Sheets(Array("T1", "T2"))
Application.ScreenUpdating = False
Application.DisplayAlerts = False
a.Copy 'nouveau document
With ActiveWorkbook
    For n = 1 To a.Count
        With .Sheets(n).UsedRange
            .Columns("Y").EntireColumn.Resize(, .Columns.Count - 24).Delete
            .Value = a(n).UsedRange.Resize(, 24).Value
        End With
    Next n
    .SaveAs ThisWorkbook.Path & "\" & NomFichier, 51
    .Close False
End With
End Sub
A+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

VBA_dev_Anne_Marie
  • Résolu(e)
Microsoft 365 VBA : Break line méthode
Réponses
3
Affichages
137
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
  • Résolu(e)
Microsoft 365 VBA : copier 2 onglets
Réponses
4
Affichages
144
job75
job75
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
329
job75
job75
M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
524
marie3107
M
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
838
marie3107
M
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
792
tnion
T
J
  • Question Question
XL 2021 enregistrer sous une feuille définie du classeur avec nom cellule
Réponses
5
Affichages
814
Eric KERGRESSE
E
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
704
guiyom
G
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
873
jebibo
J
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
399
Latias
L
cathodique
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
cathodique
Philou0607
  • Question Question
XL 2016 deplacer copier onglets vers nouveaux classeurs VBA
2
Réponses
24
Affichages
1 K
sylvanu
sylvanu
H
  • Question Question
Microsoft 365 Enregistrer en PDF dans une macro
Réponses
4
Affichages
583
kiki29
kiki29
E
  • Question Question
Microsoft 365 Vba erreur de compilation variable non définie
Réponses
2
Affichages
461
Dranreb
Dranreb
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
541
ZiM
Z
D
  • Question Question
XL 2019 assemblage 2 petits code vba message erreur
Réponses
3
Affichages
509
David62800
D
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
488
Maxou69
M
A
  • Résolu(e)
XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte
2 3 4
Réponses
54
Affichages
3 K
sylvanu
sylvanu
R
  • Résolu(e)
XL 2016 Fusionner 3 classeurs Excel en un seul.
Réponses
10
Affichages
1 K
ReneDav14000
R
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
714
oguruma
oguruma
Retour