Discussion :

[VBANoJutsu]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Trystan441]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Trystan441]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

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.