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

[dindin]

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]

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]

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]

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]

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]

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

Daniel

 

[danielco]

Quelles sont les cellules contenant des formules ?

Daniel

 

[dindin]

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]

Ceci copie aussi les couleurs et les formules :

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 :

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

 

[dindin]

Ceci copie aussi les couleurs et les formules :

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 :

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

Merci je regarde demain et vous tiens au courant

 

[dindin]

Merci je regarde demain et vous tiens au courant

Merci beaucoup ça fonctionne