Macro: code pour activer un fichier déjà ouvert

[franck70]

Bonjour à toutes et à tous.

Ce coup-ci, c'est un problème tout bête mais que je ne connais pas du tout. J'ai un fichier actif. Je veux que ma macro lui donne un nom pour simplifier le code, puis j'ouvre un autre fichier, je fais pareil, et ensuite, dans mon code, je n'utilise plus que les nom simplifiés.

En gros, j'ai essayé ça:

Activefile=fichier1
Workbooks.OpenText Filename:=acces_balance, _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1))
Activefile=fichier2
Range("C1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
fichier1.Activate
Range("F3").Select
Selection.Paste
fichier2.Activate

Je pense que mon problème doit venir du code fichier1.activate Je dois mettre quelquechose d'autre pour activer le fichier défini auparavant?

Merci par avance.

 

[bof]

Re : Macro: code pour activer un fichier déjà ouvert

Bonjour,

En gros, j'ai essayé ça :
Et en détail ça donne quoi ? Une macro commence par
Sub blabla et se termine par :
End Sub

Activefile : Connait pas. Ne fait pas parti du vocabulaire VBA

A+

 

[franck70]

Re : Macro: code pour activer un fichier déjà ouvert

Bonjour bof,

Je sais qu'une macro commence par sub blabla et se termine par endsub. J'ai mis uniquement l'extrait de la macro qui pose problème, le reste étant très très long, mais fonctionnant sans problème.

Activefile n'existe pas, d'accord, mais ça m'aurait intéresé de savoir le code pour nommer le fichier actif. Je pensais que le problème venait de fichier1.Activate, mais ce n'était qu'une supposition et il pouvait venir de Activefile=fichier1.

J'ai essayé fichier1=activeworkbook, mais ça plante également !

Merci pour ton aide.

 

[Pierrot93]

Re : Macro: code pour activer un fichier déjà ouvert

Bonsoir Franck, Bof

essaye peut avec le code ci ddessous :

Sub test()
Dim wb1 As Workbook, wb2 As Workbook

Set wb1 = ActiveWorkbook

Workbooks.OpenText Filename:=acces_balance, _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1))

Set wb2 = ActiveWorkbook

Range("C1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

wb1.Activate

Range("F3").Select
Selection.Paste

wb1.Activate

End Sub

bonne soirée
@+

 

[bof]

Re : Macro: code pour activer un fichier déjà ouvert

Bonsoir,

J'ai mis uniquement l'extrait de la macro qui pose problème

Le problème est que dans la foulée tu supprimes également les déclarations. Et peut-être des tas de petites choses qui nous aiderait bien à comprendre le problème.
Difficile d'extraire des bribes de macro de son contexte...

A+

 

[franck70]

Re : Macro: code pour activer un fichier déjà ouvert

Merci pierrot93, c'est tout à fait ce que je voulais et ça fonctionne parfaitement.

Pour Bof, j'ai coupé la macro car elle fait 4 pages sous word. J'avais bien précisé que ce que j'avais enlevé fonctionnait parfaitement. Merci quand même.