Acitver classeur via cellule

Robert

XLDnaute Barbatruc

Repose en paix

• 28 Janvier 2010

• #2

Re : Acitver classeur via cellule

Bonjour Guigui, bonjour le forum,

Deux possibilités :

Code:

i = Range("A1").Value

ou

Code:

i = Cells(1, 1).Value

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 28 Janvier 2010

• #3

Re : Acitver classeur via cellule

Merci, Robert pour ton aide.
Peux-tu me dire pourquoi je bloque sur Workbooks("i").Activate

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 28 Janvier 2010

• #4

Re : Acitver classeur via cellule

Bonjour Guigui, bonjour le forum,

Pardon je n'avais pa vu qu'il y avait une erreur au départ. il faut enlever les guillemets puisque tu as déclaré i en tant que variable (si tu ne l'as pas fait tu dois écrire en début de marcro : Dim i As String) et là tu écris :

Code:

Workbooks(i).Activate

Il faut aussi, bien évidemment, que le classeur i soit ouvert sinon ça plante...

soit la macro Complète :

Code:

[COLOR=black]Sub act()[/COLOR]
[COLOR=black]Dim i As String[/COLOR]
 
[COLOR=black]i = Range("A1").Value[/COLOR]
[COLOR=black]Workbooks(i).Activate[/COLOR]
[COLOR=black]End Sub[/COLOR]

 

Dernière édition: 28 Janvier 2010

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 28 Janvier 2010

• #5

Re : Acitver classeur via cellule

Je te rermercie , jene peux pas tester ceci ce matin , je te tiendrai au courant ce soir .
un grand merci

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 28 Janvier 2010

• #6

Re : Acitver classeur via cellule

😕Dans le fichier bilan en A1, je mets bien le nom avec l'extension .XLS ?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 28 Janvier 2010

• #7

Re : Acitver classeur via cellule

Bonjour Guigui, bonjour le forum,

Oui il faut le mettre.

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 28 Janvier 2010

• #8

Re : Acitver classeur via cellule

J'ai fait plus d'un essai et cela fonctionne parfaitement.
Encore un grand Merci

Voici la macro complete, si cela peut intéréssé quelqu'un.

Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 27/01/2010 par Moi
'
If MsgBox("Avez-vous besoin de créer le fichier?", vbYesNo) = vbNo Then End
Dim i As String

i = Range("A2").Value
Workbooks(i).Activate
'Workbooks("classeur1.xls").Activate
Worksheets(1).Activate
Range("a2:d254,g2:g254").Select
Application.CutCopyMode = True
Selection.Copy
Workbooks("bilan.xls").Activate

Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Range("B2").Select

End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Janvier 2010

• #9

Re : Acitver classeur via cellule

Bonsoir


guigui76: peux-tu me dire si ta macro ainsi modifiée fonctionne comme ta macro initiale ? Merci

Code:

Sub Macro5bis()
Dim Source As Range, Desti As Workbook
Dim i As String

' Macro enregistrée le 27/01/2010 par Moi

If MsgBox("Avez-vous besoin de créer le fichier?", vbYesNo) = vbNo Then End
i = Range("A2").Value

Set Source = Workbooks(i).Worksheets(1).Range("A2:D254,G2:G254")
Source.Copy
Set Desti = Workbooks("bilan.xls").Worksheets(1)
Desti.[A65536].End(xlUp)(2).PasteSpecial xlPasteAll, xlNone, , True
End Sub

 

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 29 Janvier 2010

• #10

Re : Acitver classeur via cellule

Je viens de faire l'essai cela bloc sur:

_Set Desti = Workbooks("bilan.xls").Worksheets(1) en supprimant cette partie c'est bon pour cette ligne
_Range("A65536").End(xlUp)(2).PasteSpecial xlPasteAll, xlNone, , True et la plus de problême.

J'aime bien ce que tu as fait c'est nettement plus claire que moi.
la macro modifié
Sub Macro5bis()
Dim Source As Range, Desti As Workbook
Dim i As String

' Macro enregistrée le 27/01/2010 par Moi

If MsgBox("Avez-vous besoin de créer le fichier?", vbYesNo) = vbNo Then End
i = Range("A2").Value

Set Source = Workbooks(i).Worksheets(1).Range("A2😀254,G2:G254")
Source.Copy
Set Desti = Workbooks("bilan.xls")
Range("A65536").End(xlUp)(2).PasteSpecial xlPasteAll, xlNone, , True
End Sub

 

Dernière édition: 29 Janvier 2010

Vote positif 0 Vote négatif

G

guigui76

XLDnaute Occasionnel

• 29 Janvier 2010

• #11

Re : Acitver classeur via cellule

Comment pourrais-je faire pour indiquer dans quel fichier coller mais sans donner le nom?

Set Desti = Workbooks("??????????????.xls")

 

Vote positif 0 Vote négatif