Bug avec activatesheet d'une variable

Salut 'Temjeh
je me pose la question de savoir à quoi sert Le .xls dans cette ligne
Windows(Range('A' & i) & '.xls').Activate
peut être ton Problème vient t'il de là
Amicalement
Jean Marie
New Edition
Voilà ce que j'ai mis
Windows(Range('A' & i).Value).Activate
et celà m'active le Classeur dont le nom est dans la cellule
Range('A' & i)
Amicalement
Jean Marie

Message édité par: ChTi160, à: 04/05/2005 14:30

bonjour,

pourquoi ne mettrais-tu pas le nom du classeur a ouvrir dans une variable et en + il me semble que tu fais reference au range en question mais tu precise pas de quel classeur ( c'est peut etre poru sa qu'il ne reconnait pas, par defaut il le prendra le range du classeur courant)

a+

Merci de ton aide

Pour la première loope il N'y a pas de prob mais à la 2ème
Si je lui met: Windows(Range('A' & i)).Activate il me bug a la 18ème ligne sur cette ligne.
Donc juste avant je lui ai resélectionné mon classeur1 pour qu'il ouvre le 2ème de range et bug aussi

Windows('Classeur1.xls').Activate
Windows(Range('A' & i)).Activate

Merci

Temjeh

Re ,

je pensais aussi , tu pourais utiliser cells(1,i) si t nom sur sur une ligne ou cells(i,1) si tes noms sont sur une colonne à la place de t range

je pense que c'est le mieux

a+

Bonjour Ja

ma liste des classeurs à ouvrir est dans classeur1 en A1 à A24
ptêtre le plus simple serait un code qui loope tout les classeurs de ChDir 'Crogram FilesTerritoire 2004TerritoiresMaisonneuve'

Merci

Temjeh

re
je viens de créer une boucle sur 17 classeurs et celà fonctionne

Sub selection()
For i = 1 To 17
Windows(Range('A' & i).Value).Activate
Sheets('Feuil1').Visible = True
Sheets('Feuil1').Select
ActiveSheet.Range('M9:N28').Select
Next
End Sub
Amicalement
Jean Marie

Merci ChTi160

Je regarde ca plus tard car j'ai tout essayé et là je tu sur le point de tout delete.

A==

Temjeh

Merci à tous pour votre aide j'ai enfin trouvé un raccourci qui sauvegarde ..saveas de la valeur en A1 qui est aussi le nom du classeur:
Pour ceux qui aimerais l'avoir...remplace les macros et la mise en page sauf les données en range:
Nommé un classeur Uptdate_Vide
Mettre sa liste dans col A des classeurs à modifié et hop il les ouvre un a un ....:0)


Sub Uptdate()

For i = 1 To 3

ChDir 'C:\\Program Files\\Territoire 2004\\Territoires\\Maisonneuve'
Workbooks.Open Filename:= _
'C:\\Program Files\\Territoire 2004\\Territoires\\Maisonneuve\\vide.xls'
Windows('Uptdate_Vide').Activate
Workbooks.Open Filename:= _
'C:\\Program Files\\Territoire 2004\\Territoires\\Maisonneuve\\' & Range('A' & i).Value & '.xls'

Columns('A:H').Select
Selection.Copy
Windows('Vide').Activate
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('A1').Select

Windows(Range('A1 ') & XLS).Activate
Sheets('Téléphone1').Visible = True
Sheets('Téléphone1').Select
Range('M9:N28').Select
Selection.Copy

Windows('Vide').Activate
Sheets('Téléphone1').Visible = True
Sheets('Téléphone1').Select
Range('M9').Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWindow.SelectedSheets.Visible = False
Windows(Range('A1 ') & XLS).Activate

ActiveWindow.Close SaveChanges:=False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
'C:\\Program Files\\Territoire 2004\\Territoires\\Maisonneuve\\' & Range('A1').Value & '.xls'
ActiveWindow.Close

Next i

End Sub

A++

Temjeh