Copier plages d'un classeur fermé

youky(BJ)

XLDnaute Barbatruc

• 24 Février 2017

• #2

Bonjour malin,
Essaie ceci macro à mettre dans un module
Bien modifier le nom du fichier Source
les 2 fichiers doivent être dans le même dossier.
Bruno

VB:

Sub ouverture()
'vu
Application.ScreenUpdating = False
For Each Wb In Workbooks
  If Wb.Name = "XLC_Source.xls" Then 'modifier nom du fichier..........
    Workbooks(Wb.Name).Activate: k = 1
  End If
Next
If k = "" Then
chemfich = ThisWorkbook.Path & "\XLC_Source.xls.xls" 'ici aussi.........
On Error Resume Next
Workbooks.Open chemfich
If Err <> 0 Then MsgBox "XLC_Source.xls non trouvé": Exit Sub 'là aussi..
End If
ActiveWindow.WindowState = xlMinimized
ThisWorkbook.Activate
ActiveWindow.WindowState = xlMaximized
With Workbooks("XLC_Source.xls").Sheets(1) 'encore ici...................
'Feuil1.[A2:Q1000].Clear
Feuil6.[A2:I30].Value = .[A2:I30].Value
Feuil6.[L2:Q30].Value = .[L2:Q30].Value
End With
Workbooks("XLC_Source.xls").Close False 'encore ici.......................
End Sub

Edit: A rectifier dans le code
With Workbooks("XLC_Source.xls").Sheets("Mouv")

 

Dernière édition: 24 Février 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Février 2017

• #3

Bonsoir kadelmalin 🙂, Bruno 🙂

Une autre façon, sans ouvrir le fichier source. Change le chemin du classeur.

VB:

Sub Copie_Donnees()

  Application.ScreenUpdating = False

  [A2:I30].ClearContents
  [L2:Q30].ClearContents

  On Error Resume Next

  With [A2:I30]
  .Formula = "='C:\Users\TOTO\Desktop\[XLC_Source]Feuil6'!A2:I30"
  .AutoFill [A2:I30]
  .Value = .Value
  End With

  With [L2:Q30]
  .Formula = "='C:\Users\TOTO\Desktop\[XLC_Source]Feuil6'!L2:Q30"
  .AutoFill [L2:Q30]
  .Value = .Value
  End With

End Sub

 

Dernière édition: 24 Février 2017

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 25 Février 2017

• #4

Bonjour,
Vous êtes des As les amis ; en un clin d’œil vous m'avez tiré d'affaire. Encore une fois je vous remercie Lone et Youki.

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 25 Février 2017

• #5

Salut !
Me voilà de retour ! Le post #1 était parfait mais j'ai opté pour le post #2 qui m'évitait d'ouvrir le classeur source; seulement je suis obligé de lui indiquer le chemin. Y a-t-il un moyen pour qu'il prenne en compte le dossier actif ou se trouve les 2 classeurs. Merci et pardonnez si j'abuse de votre temps.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 25 Février 2017

• #6

Bonjour kadelmalin

Si les deux classeurs restent toujours dans le disque C et dans le dossier TOTO, il n'y a pas besoin de lui indiquer le chemin, vu qu'il est déjà dans la macro.

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 25 Février 2017

• #7

Salut Lone !
J'ignore dans quel dossier l'utilisateur va mettre son classeur. C'est pour cette raison que la première partie du post #1 a retenu mon attention si n'est la présence du classeur source.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 25 Février 2017

• #8

Re

Il fallait dire cela dans ton premier message. Et bein tu n'a qu'à prendre les chemins de tes collaborateurs et adapter la macro en conséquence.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 25 Février 2017

• #9

Hééé,
Salut Jacky et kadelmalin,
On peut très bien indiquer le chemin du classeur par la commande ThisWorkbook.Path
donc .Formula = "=' " & ThisWorkbook.Path & "\[XLC_Source]Feuil6'!A2:I30"
Je n'ai pas testé mais ça doit faire l'affaire.
Bruno

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 25 Février 2017

• #10

Zut ! je crois que j'ai mis mon ami Lone en colère. Merci quand même.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 25 Février 2017

• #11

D'ou mon Hééé

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 25 Février 2017

• #12

Re Bruno

Si les DD ont un nom différent, tu es sûr que Thisworkbook.Path fera l'affaire??

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 25 Février 2017

• #13

Oui,
Chez moi c'est C: comme l'indique la copie d'écran

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 25 Février 2017

• #14

Re

Bruno, le classeur receveur est sur le bureau, les classeurs sources sont dans D:\xxx - E:\xxx -F:\xxx par exemple, de plus
" J'ignore dans quel dossier l'utilisateur va mettre son classeur"; et si ils sont en réseau, je ne suis pas vraiment certain avec ThisWorkbook.Path. Ce qu'il doit faire, c'est connaître le chemin des dossiers, ensuite il pourrat faire comme ceci

VB:

Option Explicit

Public Const chemin1 As String = "D:\Users\Salam\OK\"
Public Const chemin2 As String = "E:\Users\Alei\D'ACCORD\"
Public Const chemin3 As String = "F:\Users\Coum\J'AI COMPRIS\"

 

Dernière édition: 25 Février 2017

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 25 Février 2017

• #15

Salut,
Pardonnez mon intrusion. J'ai testé le path proposé par Bruno ; çà a presque marché mais comme le classeur contient plusieurs feuilles c'est la première qui a été remplie et non la feuille 6. Jacky ne m'en veux pas s'il te plait.

 

Vote positif 0 Vote négatif