[VBA-E] gestion des fichiers ouverts ...

Version imprimable

Voir 40 message(s) de cette discussion en une page

le plus simple c'est de vous montrer le bout de code ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 For i = 0 To 2 'UBound(FileList) - 1 Workbooks.Open Filename:="C:\Documents and Settings\stma\Mes documents\XLFILES\SUFIX\" & FileList(i) Range("A1:N6").Select 'selection des cellules a copier Selection.Copy ' copie des cellules 'ActiveWorkbook.Close Windows("SubMainTest.xls").Activate ' active la fenetre de test2 ActiveWorkbook.Worksheets(1).Activate 'active la fenetre de test2 Range("A" & lastline).Select 'selectionne la dernier ligne ActiveSheet.Paste 'colle les cellules recuperées 'Windows(winName).Activate ' ActiveWindow.Close lastline = lastline + 7 Next
Donc je parcourre un array de nomns de fiochiers j'ouvre les fichiers et je copie les 6 premières lignes...
je les colle ensuite à la suite dans ma feuille ...
seulement le fichier que j'ouvre reste ouvert ... je voudrais le refermer ...
si je fais fermer avant le paste j'ai un message d'alert avec grandes qantité de données dena le presse papier ...
si je paste, et j'essaye de fermer la fenetre source il me dit que l'indicie de la page n'est pas dans la selection
je n'arrive pas à réactiver la page source des lignes copées pour la fermer ensuite ... :cry:

19/01/2006, 17h44
Megaxel
Et si tu fais
Code:

1 2 Workbooks(FileList(i)).Close False
Ça ne marche pas?

bonsoir SpaceFrog , bonsoir Megaxel

tu peux tester ce type de synthaxe
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim Wb As Workbook For i = 0 To 2 'UBound(FileList) - 1 Set Wb = _ Workbooks.Open(Filename:="C:\Documents and Settings\stma\Mes documents\XLFILES\SUFIX\" & FileList(i)) ' ' ... la procedure ' Wb.Close False 'mettre True pour sauvegarder les modifs Set Wb = Nothing Next
il est certainement possible aussi d'enlever tous tes "activate" et "select" pour simplifier ton code

bonne soiree
michel

merci de vos réponses les gars ...

je progresse ...

le

Code:

Workbooks(FileList(i)).Close False

focntionne ...
pas le Wb set

donc il me ferme bien la fenetre source, mais j'ai toujours ce foutu message d'alert concerantn les données entrées dans le clipboard !!
même avec le false ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim lastline, FileList, winindex
FileList = Split(s, ";")
  lastline = 1
For i = 0 To UBound(FileList) - 1
       Workbooks.Open Filename:="C:\Documents and Settings\stma\Mes documents\XLFILES\SUFIX\" & FileList(i)
       Range("A1:N6").Select     'selection des cellules a copier
       Selection.Copy ' copie des cellules
       Windows("SubMainTest.xls").Activate ' active la fenetre de test2
       ActiveWorkbook.Worksheets(1).Activate 'active la fenetre de test2
       Range("A" & lastline).Select 'selectionne la dernier ligne
       ActiveSheet.Paste 'colle les cellules recuperées
       Workbooks(FileList(i)).Close False
       lastline = lastline + 7
Next

End Sub :cry:

20/01/2006, 12h34
Megaxel
Et si tu essaies de faire
Code:

1 2 Application.DisplayAlerts = False
juste avant la fermeture. Et tu le remets à True après...
20/01/2006, 13h30
SpaceFrog

yes megaxel ... ça fait un peu bidouille mais ça fonctionne ...

merci !
20/01/2006, 13h51
Megaxel

De rien. Bidouille, c'est mon deuxième prénom... :D
Sinon, pour faire du propre, il faudrait vider le presse-papier. J'ai vu un post passer sur ce sujet, et ça se faisait avec les API.
Peut-être qu'une petite recherche....
Mais le displayAlerts est bien aussi... :D
20/01/2006, 13h52
SpaceFrog

bon en fait j'ai une question subsidiare ???
les copyselections ne vont ils pas saturer la mémoire au bout d'un moment ou le alertdisplay false annule il la copie dans le clipboard ?

sinon comment vider le clipboard enVBA ?
20/01/2006, 13h55
Megaxel

Cf ma réponse 1 minute avant ta question...
:)

http://www.developpez.net/forums/viewtopic.php?t=124504
20/01/2006, 14h23
SpaceFrog

lol nos psots se sont croisés ...
heu l'API vide la corbeille pas le clipboard ...

sinon tu voudrais dire que le displayalert machinchose = false vide le clipboard .. ?
20/01/2006, 14h41
Megaxel

Houps, exact, je me suis trompé dans ma recherche... Mais je reste sûr d'avoir vu ça un jour sur ce forum.
Et non, je ne pense pas que DisplayAlerts = False vide le presse papier. Au contraire, je suis presque sûr que ça ne le vide pas.
20/01/2006, 14h42
Megaxel

Alors celui ci:
http://www.developpez.net/forums/viewtopic.php?t=224972
20/01/2006, 14h51
jmfmarques

Allons donc, mais il va falloiur gérer tout celà :

Citation:

'La fonction SetClipboardData place une donnée, au format spécifié, dans le presse-papier.
'En cas de succès : la vakeur retournée est le handle de la donnée.
'En cas d'échec, la valeur retournée est un nul (l'appel de GetLastError permet alors d'en connaître les raisons)
'wFormat : spécifie un format de presse-papier. Ce format peut être un format enregistré ou n'importe lequel
' des formats standards de presse-papier.
'hMem : identifie la donnée formatée. Ce paramètre peut être nul (ce qui signifie que la fenêtre fournit la
' donnée au format spécifié. Si une fenêtre tarde à fournir la donnée, il faut lui appliquer l'échange de
' messages WM_RENDERFORMAT et WM_RENDERALLFORMATS. Une fois cette fonction appelée, le système devient
' propriétaire de l'objet identifié par le paramètre hMem. L'application peut lire la donnée mais le peut
' ni verrouiller le handle ni le libérer. Si le paramètre hMem identifie un objet mémoire, cet objet doit
' avoir été alloué en utilisatant la fonction GlobalAlloc, dotée des "drapeaux" GMEM_MOVEABLE et
' GMEM_DDESHARE
Public Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
'--------------------------------------------------
'La fonction CopyImage crée une nouvelle image (icône, curseur ou bitmap) et copie les attributs d'une image
'spécifiée vers la nouvelle image. Si nécessaire, la fonction retrécit les octets pour que la copie entre
'dans la surface de la nouvelle image.
'En cas de succès : la vakeur retournée est le handle de l'image nouvelle.
'En cas d'échec, la valeur retournée est un nul (l'appel de GetLastError permet alors d'en connaître les raisons)
'handle : identiifie une instance du module contenant l'image à copier.
'imageType : spécifie le type d'image à copier. Ce paramètre peut être l'un des suivants : IMAGE_BITMAP (bitmap),
' IMAGE_CURSOR (curseur), IMAGE_ICON (icône)
'newWidth : spécifie la largeur (en pixels) souhaitée pour la copie.
'newHeight : spécifie la hauteur (en pixels) souhaitée pour la copie.
'lFlags : Drapeaux ("flags") pouvant combiner les valeurs suivantes :
' LR_COPYDELETEORG (destruction de l'original après copie)
' LR_COPYRETURNORG (copie exacte, en faisant abstaction des paramètres cxDesired and cyDesired)
' LR_MONOCHROME (pour que la copie soit monochrome)
' LR_COPYFROMRESOURCE (pour tenter de charger une icône ou un curseur depuis la ressource d'origine
' plutôt que depuis l'image courante. Celà peut être utile pour créer une copie de taille
' différente lorsque le fichier de ressource contient plusieurs tailles. Sans ce drapeau,
' la fonction adapte la taille à celle se la surface de copie. Si ce paramètre est fixé,
' la fonction utilise la taille du fichier de ressource la plus proche de la taille désirée.
' Ceci n'est valable que si hImage a été chargée par LoadIcon ou par LoadCursor, ou par
' LoadImage accomapgnée du drapeau ("flag") LR_SHARED
Public Declare Function CopyImage Lib "user32" (ByVal handle As Long, ByVal imageType As Long, ByVal newWidth As Long, ByVal newHeight As Long, ByVal lFlags As Long) As Long
'--------------------------------------------------
'La fonction EmptyClipboard function vide le presse-papier et libère les handles des données qui s'y trouvent.
'Elle donné ensuite la propriété du presse-papier à la fenêtre l'ayant ouvert.
'En cas de succès : la valeur retournée est différente de 0.
'En cas d'échec, la valeur retournée est 0 (l'appel de GetLastError permet alors d'en connaître les raisons)
' Cette fonction n'utilise (bien évidemment) aucun paramètre
Public Declare Function EmptyClipboard Lib "user32" () As Long
'--------------------------------------------------
'La fonction CloseClipboard ferme le presse-papier.
'En cas de succès : la valeur retournée est différente de 0.
'En cas d'échec, la valeur retournée est 0 (l'appel de GetLastError permet alors d'en connaître les raisons)
' Cette fonction n'utilise (bien évidemment) aucun paramètre
Public Declare Function CloseClipboard Lib "user32" () As Long
'--------------------------------------------------
'La fonction OpenClipboard ouvre le press-papier pour en examiner le contenu et empêcher les autres applications
'd'en modifier le contenu.
'En cas de succès : la valeur retournée est différente de 0.
'En cas d'échec, la valeur retournée est 0 (l'appel de GetLastError permet alors d'en connaître les raisons)
'hWndNewOwner : identifie la fenêtre à associer au presse-papier ouvert. Si ce paramètre est nul, le presse-
' papier ouvert est associé à la tâche en cours.
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
'--------------------------------------------------

Je veux bien dépenser du temps pour adapter tout celà aux besoins ici exprimés, mais celà est-il vraiment indispensable ??

:lol:
20/01/2006, 15h10
SpaceFrog

pas besoin de dépenser du temps ...

Code:

Public Declare Function EmptyClipboard Lib "user32" () As Long

était tout ce dont j'avais besoin ...

merci !

EmptyClipBoard ne fonctionne pas tout seul
il faut ouvrir le presse-papier avant et le fermer ensuite
sinon ca renvoie 0 = Echec

Code:

1
2
3
4
5
6
7
8
9
 
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
    OpenClipboard Me.hwnd
    EmptyClipboard
    CloseClipboard
End Sub

20/01/2006, 16h16
ogenki

bonjour

Citation:

EmptyClipBoard ne fonctionne pas tout seul
il faut ouvrir le presse-papier avant et le fermer ensuite
sinon ca renvoie 0 = Echec

bin je sais pas en tout cas sa ne ma pas renvoyé d'erreur..
20/01/2006, 16h18
ThierryAIM

ca ne renvoie pas d'erreur mais le code de retour =0

Citation:

'La fonction EmptyClipboard function vide le presse-papier et libère les handles des données qui s'y trouvent.
'Elle donné ensuite la propriété du presse-papier à la fenêtre l'ayant ouvert.
'En cas de succès : la valeur retournée est différente de 0.
'En cas d'échec, la valeur retournée est 0 (l'appel de GetLastError permet alors d'en connaître les raisons)
' Cette fonction n'utilise (bien évidemment) aucun paramètre
Public Declare Function EmptyClipboard Lib "user32" () As Long
20/01/2006, 16h28
Megaxel

C'est exactement ce que dit le post dont j'ai mis la référence.
:D
20/01/2006, 16h35
SpaceFrog

heu le Me.hwnd retourne une erreur .. on peut s'en passer ? :roll:
20/01/2006, 16h40
ThierryAIM

Mets 0 à la place,
mais Megaxel à raison, c'était déjà expliqué dans le 2e post qu'il à cité (que j'avais aussi zappé)

Voir 40 message(s) de cette discussion en une page