Modifier deux classeurs dans une macro

Version imprimable

Bonjour tout le monde ! J espère que vous allez bien ,

Je me permets de poster car today j'ai crée une macro (ça progresse haha) mais j'ai évidemment un petit problème

Je vous l'expose :
Citation:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 Sub consolider() Dim Ws As Worksheet 'On vient ensuite boucler sur chaque feuille du classeur voulu For Each Ws In ThisWorkbook.Worksheets If Ws.Name Like "*FRNS*" Then 'Copie les soldes de 7 partout ou il y a FRNS Ws.Range("M1:N200") = Worksheets("TSQT FRNS TEP").Range("M1:N200").Formula End If If Ws.Name Like "*CLT*" Then 'Copie les soldes de 6 partout ou il y a clt Ws.Range("M1:N200") = Worksheets("TEP CLT TSQT").Range("M1:N200").Formula End If 'On passe à la feuille suivante Next Ws ActiveWorkbook.SaveCopyAs "X:\xxxx\GOODIE.xlsx" Workbooks.Open "X:\xxxx\GOODIE.xlsx" Workbooks("GOODIE.xlsx").Activate For Each Ws In ThisWorkbook.Worksheets 'Copie en valeur Ws.Range("M1:N200") = Ws.Range("M1:N200").Value 'Supprime les col de A à K Ws.Range("A:K").Delete Ws.Cells.ClearOutline 'On passe à la feuille suivante Next Ws End Sub
J'aimerais que toutes les instructions apres cette ligne : Workbooks.Open "X:\xxxx\GOODIE.xlsx" ne modifient que le fichier GOODIE et non plus la feuille d'ou j'ai lancé le début de ma macro ! Je ne sais pas comment faire , enfin je pourrais très bien séparer les deux à partir de la ligne citée mais l'objectif est de créer un seul bouton exécutant tout ça d'une traite.

Par avance merci à tous pour votre contribution.

Bonjour,

Dis moi si je me trompe mais tu cherches bien à boucler sur chaque feuille de ton fichier GOODIE ?

Si c'est le cas, alors pourquoi tu utilises ThisWorkbook qui te permet de boucler sur chaque feuille du classeur où est écrit ta procédure ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ActiveWorkbook.SaveCopyAs "X:\xxxx\GOODIE.xlsx" Workbooks.Open "X:\xxxx\GOODIE.xlsx" Workbooks("GOODIE.xlsx").Activate For Each Ws In ThisWorkbook.Worksheets 'Copie en valeur Ws.Range("M1:N200") = Ws.Range("M1:N200").Value 'Supprime les col de A à K Ws.Range("A:K").Delete Ws.Cells.ClearOutline 'On passe à la feuille suivante Next Ws

22/07/2019, 16h20
VBANoJutsu

Oui je cherche à boucler à partir du moment ou j'ouvre le fichier GOODIE sur celui ci ! Il faudrait que je remplace ThisWorkbook , j'ai testé en créant une variable Wb as Workbook mais j'ai fail .. je ne sais pas comment m'y prendre pour boucler sur un autre classeur

EDIT : j'ai testé en remplacant par ActiveWorkbook (à la place de This) , c'est bon ca fonctionne, est-ce correct ? Merci beaucoup tu m'as mis sur la piste , tu es super.

Bonjour,

Exemple de l'affichage du nom des feuilles du classeur nommé 1902 - TimeSheet Jacques.xlsb se trouvant dans un sous-répertoire nommé Data (sous-répertoire du répertoire où se trouve le code VBA)
A toi de l'adapter en modifiant les constantes SubFolder et FileName

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub t()
   ' Déclaration
   Const SubFolder As String = "\data\"
   Const FileName = "1902 - TimeSheet Jacques.xlsb"
   Dim wkb As Workbook
   Dim sht As Worksheet
   Dim Folder As String
   Dim msg As String
   Dim FullName As String
   ' Affectation
   Folder = ThisWorkbook.Path
   FullName = Folder & SubFolder & FileName
   Set wkb = Workbooks.Open(FileName:=FullName)
   ' Parcourir les feuilles du classeur que l'on vient d'ouvrir
   For Each sht In wkb.Worksheets
     With sht
       msg = msg & vbCrLf & .Name & " - " & .CodeName
     End With
   Next
   ' Affichage des propriétés Name &  CodeName des feuilles du classeur
   MsgBox msg
End Sub

23/07/2019, 08h33
Trystan441
Bonjour,

Citation:

Oui je cherche à boucler à partir du moment ou j'ouvre le fichier GOODIE sur celui ci !

Alors il faut que tu attribues ce classeur à un objet Workbook pour ensuite remplacer "This workbook" par cet objet :
Code:

1 2 3 4 5 6 dim Wb as workbook set wb=workbooks("GOODIE.xlsx") ... for each ws in wb.worksheets
Citation:

j'ai testé en créant une variable Wb as Workbook mais j'ai fail

J'en déduis ici que tu as juste déclarer l'objet Workbook sans rien lui attribuer donc VBA ne détecte rien et plante.

Citation:

j'ai testé en remplacant par ActiveWorkbook (à la place de This)

Alors oui, ça fonctionne MAIS, c'est source d'erreur, il suffit que pour une raison ou pour une autre, ce ne soit pas ce classeur qui est actif et paf ça plante !
Donc il vaut toujours mieux attribuer le nom d'un classeur à un objet Workbook, au moins tu es sûr que tu pointes toujours sur le bon classeur.

Concernant "Thisworkbook", Comme tu as pu le voir, il est utile mais seulement quand tu travailles sur le classeur où est présent ta procédure.