XL 2016 transfert de données d'un onglet vers un autre classeur sous conditions

dindin · 26 Septembre 2020

bonjour le Forum
j'ai un onglet BDD dans un classeur 1.
je suis amené tous les jours à le copier sous conditions vers un autre classeur 2 sous condition:
copier que les lignes dont la colonne A contient : à facturer .
copie à l'identique c'est à dire la mise en page et formule et couleur ...etc
y a t'il moyen de faire cette manip via VBA discrètement et sans ouvrir le classeur.
pour info:
les 2 classeurs sont enregistrés dans le même fichier.
les 2 classeurs ne contiennent pas de mot de passe
je vous joins le classeur source.

danielco · 26 Septembre 2020

Bonjour,

A ma connaisssance, il n'est pas possible de mettre des formules ou des couleurs dans un classeur fermé. On peut l'ouvrir discrètement.

Daniel

dindin · 26 Septembre 2020

danielco à dit:
Bonjour,

A ma connaisssance, il n'est pas possible de mettre des formules ou des couleurs dans un classeur fermé. On peut l'ouvrir discrètement.

Daniel

On peut que copier les colonnes avec le texte.
Pas grave. Je rajouterais mes MFC plus tard.
Avez vous une idée comment le faire.
Objectif : copier sans ouvrir le 2ème.
Merci d'avance

danielco · 26 Septembre 2020

Je ne suis pas sûr du tout de savoir le faire. Esr-ce qu'on ne peut pas l'ouvrir de façon invisible le temps de la copie ? On peut alors copier les couleurs, les formules et tout ? Il me faut alors connaître le nom du classeur ainsi que celui de la feuille dans laquelle les données sont copiées. Et savoir quelle genre de copie : copie simple ? Copie en ajout des données ?

Daniel

dindin · 26 Septembre 2020

danielco à dit:
Je ne suis pas sûr du tout de savoir le faire. Esr-ce qu'on ne peut pas l'ouvrir de façon invisible le temps de la copie ? On peut alors copier les couleurs, les formules et tout ? Il me faut alors connaître le nom du classeur ainsi que celui de la feuille dans laquelle les données sont copiées. Et savoir quelle genre de copie : copie simple ? Copie en ajout des données ?

Daniel

Ok
Le 2ème classeur : copie 2020
Onglet : bdd
Copie en effaçant la feuille de destination à chaque fois et recopie de la base avec les données.

danielco · 26 Septembre 2020

Je n'arrive pas non plus à le faire de façon invisible. Désolé.

Daniel

danielco · 26 Septembre 2020

Quelles sont les cellules contenant des formules ?

Daniel

dindin · 26 Septembre 2020

danielco à dit:
Quelles sont les cellules contenant des formules ?

Daniel

Le fichier que j'ai posté ne contient pas les formules.
Pas grave.
Juste le texte suffira.
Copie en effaçant la feuille de destination et recopie de la base avec les données .
Si on arrive à copier sans ouvrir le classeur 2 ca m'arrangerai mieux.

danielco · 26 Septembre 2020

Ceci copie aussi les couleurs et les formules :

VB:

Sub Copie()
  Dim Wbk As Workbook, Plage As Range
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Set Wbk = GetObject(ThisWorkbook.Path & "\Copie 2020.xlsm")
  Application.EnableEvents = True
  With Sheets("BDD")
    .Cells.AutoFilter 1, "à facturer"
    Set Plage = .AutoFilter.Range
  End With
  With Wbk.Sheets("BDD")
    .Cells.ClearContents
    Plage.Copy .[A1]
  End With
  Wbk.Close True
  Cells.AutoFilter
  Application.ScreenUpdating = True
End Sub

Important : Il faut mettre cette macro dans le module ThisWorkbook du classeur Copie 2020 :

Code:

Private Sub Workbook_Open()
  Windows(ThisWorkbook.Name).Visible = True
End Sub

dindin · 26 Septembre 2020

danielco à dit:

Ceci copie aussi les couleurs et les formules :

VB:

Sub Copie()
  Dim Wbk As Workbook, Plage As Range
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Set Wbk = GetObject(ThisWorkbook.Path & "\Copie 2020.xlsm")
  Application.EnableEvents = True
  With Sheets("BDD")
    .Cells.AutoFilter 1, "à facturer"
    Set Plage = .AutoFilter.Range
  End With
  With Wbk.Sheets("BDD")
    .Cells.ClearContents
    Plage.Copy .[A1]
  End With
  Wbk.Close True
  Cells.AutoFilter
  Application.ScreenUpdating = True
End Sub

Important : Il faut mettre cette macro dans le module ThisWorkbook du classeur Copie 2020 :

Code:

Private Sub Workbook_Open()
  Windows(ThisWorkbook.Name).Visible = True
End Sub

Merci je regarde demain et vous tiens au courant

dindin · 28 Septembre 2020

dindin à dit:
Merci je regarde demain et vous tiens au courant

Merci beaucoup ça fonctionne

XL 2016 transfert de données d'un onglet vers un autre classeur sous conditions

dindin

XLDnaute Occasionnel

Pièces jointes

danielco

XLDnaute Accro

dindin

XLDnaute Occasionnel

danielco

XLDnaute Accro

dindin

XLDnaute Occasionnel

danielco

XLDnaute Accro

danielco

XLDnaute Accro

dindin

XLDnaute Occasionnel

danielco

XLDnaute Accro

dindin

XLDnaute Occasionnel

dindin

XLDnaute Occasionnel

Discussions similaires