Discussion :

[tremens]

Bonjour,

je tiens à dire qu'avant de poster, j'ai fait une recherche, testé des codes mais je n'y arrive pas...

je retraite un fichier d'acquisition à partir d'un fichier Almemo.xls qui contient mes macros.

Le fichier Almemo contient 2 feuilles: 1- contient les donnees et macros qui vont avec, la 2- contient simplement une liste qui va servir à remplir un userform1

Le fichier acquisition contient une feuille avec le n° essai uniquement. Ma macro copie donc cette feuille en feuil1 puis crée une feuil2 vierge pour recevoir la liste pour userform1.

Voilà le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub copie()
 
Dim Wbk1 As Workbooks
Dim Wbk2 As Workbooks
 
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbook
 
Wbk1.Worksheets("feuil2").Columns(1).Copy Destination:=Wbk2.Worksheets("Feuil2").Columns(1)
 
End Sub

Le code bloque au

Code :

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

Wbk2.Worksheets("feuil2")...

j'ai dû faire une erreur, mais je ne voie pas...merci pour votre aide

Tremens

[aalex_38]

Bonjour,


c'est le code suivant qui ne va pas tu ne précise pas le classeur :

Code :

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

Set Wbk2 = Workbook

J'ai testé le code suivant qui fonctionne [a Adapter] :

Code :

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

ThisWorkbook.Sheets("Feuil1").Columns("A:A").Copy Destination:=Workbooks("Classeur2").Sheets("Feuil1").Columns("A:A")

[tremens]

Merci aalex38 , mais les fichiers d'acquisition que j'ai à retraiter, sont :10000.xls (exemple)

Comment faire pour le faire apparaitre à la place de classuer 2?

Merci

Tremens

[aalex_38]

Comment faire pour le faire apparaitre à la place de classuer 2?

Je ne comprend pas exactement le sens de ta demande, mais je vais essayer.
Déja en re regardant ton code tu utilses workbooks (collection des classeurs) au lieu de workbook qui defini un classeur.

Je te donne une exemple :

Code :

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

1
2
3
4
5
6
7
8
 
Sub tremens()
Dim Wbk1 As Workbook, Wbk2 As Workbook, NomCla2 As String
NomCla2 = "10000.xls"
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks(NomCla2)
Wbk1.Worksheets("Feuil2").Columns("A:A").Copy Destination:=Wbk2.Sheets("Feuil2").Columns("A:A")
End Sub

[tremens]

Je m'excuse de m'avoir mal exprimé...

j'ai environ 50 fichiers à retraiter et ils représentent autant d'essais. par exemple du 90010, 90011,....,90060.xls
Voilà, j'espère que c'est plus clair

Merci aalex 38



Tremens

[aalex_38]

[a Adapter]

Code :

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

1
2
3
4
5
6
7
cpt = 9009
For i = 1 to 50
cpt = cpt + 1
NomCla2 =   cpt & ".xls"
Set Wbk2 = Workbooks(NomCla2)
' -----
next i