Discussion :

[abouhossam]

bjr
j'ai une macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim i%
With Sheets("Feuil1")
For i = 2 To .Range("A65535").End(xlUp).Row
If .Cells(i, 1) <> "" Then
Range(.Cells(i, 1), .Cells(i, 5)).Copy
Sheets("Feuil2").Range("A65535").End(xlUp)(2).PasteSpecial
End If
Next
End With
Application.CutCopyMode = False
End Sub

1-veuillez m'aider d'executer cette macro si la feuille2 est dans un autre classeur qui est fermé.
2-existe t-elle une macro qui permet d'enregistre la feuille1 dans un nouveau classeur sous le nom configuré dans la cellule A1?
MERCI.

[moilou2]

Slt tu veux executer ta macro dans un classeur fermé ou tu veux la mettre dans un classeur ouvert pour lire ou écrire dans un classeur fermé?

Explique un peu se que tu veux faire avec cette macro! Ta fait une boucle tu veuxx tester koi?

[Qwazerty]

SAlut
Allons y carrement
Fonction recherche
http://www.developpez.net/forums/sho...97#post2967997
A++
Qwaz

[moilou2]

Slt Qwazery je crois que ce Post ne lui servira à rien cette discussion a été totalement inutile la seul chose à retenir du post sont les 2 liens suivants:

http://excel.developpez.com/faq/?pag...lasseursFermes
http://silkyroad.developpez.com/VBA/ClasseursFermes/

@+ si ty arrive tu me contact paske je suis sur le même problème que toi comme sa on pourra travailler ensemble ++

[abouhossam]

bjr
ma macro execute bien si les 2 classeurs sont ouvert je veux savoir comment faire si le 2ème classeur est fermé, je pense que c'est clair.
merci

[Qwazerty]

SAlut
Ta question est claire et si tu lit le post que je t'ai joint tu comprendra que le mode d'accès a un fichier fermé ne se fait pas comme l'accès a un fichier ouvert.
Ton fichier excel fermé se comporte (je ne l'ai jamais fais mais c'est comme ça que je le vois(et je pense avoir juste ... quel prétentieux ... ben oui un peu ) comme une base de donnée il faut donc y accéder avec des méthode base de donnée, il n'est alors plus question d'aller chercher telle ou telle cellule dans la fichier comme tu le ferait normalement dans une macro.
Si le cœur m'en dis je regarderai peut être se soir ça pourrais être intéressant
A++
Qwaz

[moilou2]

Oui regarde les liens que l'on ta mis il s'agit maintenant d'utiliser des structure OLE Microsoft JET et tu verra c'est pas simple! La structure en elle même n'est pas si compliquée que sa mais pour exprimer ta requête c'est pas évident!

Qwaz tu conné mon dossier (Avec les dates!) Si tu réussi à explorer les liens OLE pense à moi!

Merci à toi

[cafeine]

En même temps quand on n'a qu'un fichier "fermé" à traiter ... pourquoi ne pas l'ouvrir le temps de travailler dessus ?

[Qwazerty]

SAlut
C'est pas faut ^^ (Karadok sort de ce corps)
Et puis bon même si ça fait pas plaisir y'a quand même pas que du faux dans ce que les gens ont dis sur le post précédents, le Sql ça s'apprend, y'a même une partie de DVP qui en traite, doit donc y avoir des cours dispo (que je serais obligé d'ingérer si je veux aider)

A++
Qwaz

[abouhossam]

bjr
le problème est le suivant:
je travail sur la feuille1 du classeur "a" est ce que je peux exicuter la macro sachant que le classeur "b" qui contient la feuille2 est fermé.
(la macro est de copier des lignes de la feuille1 du classeur"a" vers la feuille2 du classeur"b")
le macro est le suivant -sachant qu'il est exicutable lors que les deux classeurs sont ouverts-

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Sub test()
Dim i%
With Sheets("Feuil1")
For i = 2 To .Range("A65535").End(xlUp).Row
If .Cells(i, 1) <> "" Then
Range(.Cells(i, 1), .Cells(i, 5)).Copy
Sheets("Feuil2").Range("A65535").End(xlUp)(2).PasteSpecial
End If
Next
End With
Application.CutCopyMode = False
End Sub

merci.

[cafeine]

Je verrais bien qqchose de ce genre là ...

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
Sub test()
dim wb as Workbook, wbActive As Workbook
set wbActive = ActiveWorkbook
set wb = Application.OpenWorkbook("C:\toto\mon autre fichier.xls")
Dim i%
With wbActive.Sheets("Feuil1")
  For i = 2 To .Range("A65535").End(xlUp).Row
    If .Cells(i, 1) <> "" Then
      Range(.Cells(i, 1), .Cells(i, 5)).Copy
      wb.Sheets("Feuil2").Range("A65535").End(xlUp)(2).PasteSpecial
    End If
  Next
End With
Application.CutCopyMode = False
wb.Close SaveChanges:=True
Set wb = Nothing
Set wbActive = Nothing
End Sub