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

**SpaceFrog** · 19/01/2006, 17h39

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

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
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 ...

**Megaxel** · 19/01/2006, 17h44

Et si tu fais

Code :

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

1
2
 
Workbooks(FileList(i)).Close False

Ça ne marche pas?

**SilkyRoad** · 19/01/2006, 17h53

bonsoir SpaceFrog , bonsoir Megaxel

tu peux tester ce type de synthaxe

Code :

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

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

**SpaceFrog** · 20/01/2006, 12h00

merci de vos réponses les gars ...

je progresse ...

le

Code :

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

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 :

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

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

**Megaxel** · 20/01/2006, 12h34

Et si tu essaies de faire

Code :

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

1
2
 
Application.DisplayAlerts = False

juste avant la fermeture. Et tu le remets à True après...

**SpaceFrog** · 20/01/2006, 13h30

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

merci !

**Megaxel** · 20/01/2006, 13h51

De rien. Bidouille, c'est mon deuxième prénom...

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...

**SpaceFrog** · 20/01/2006, 13h52

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 ?

**Megaxel** · 20/01/2006, 13h55

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

http://www.developpez.net/forums/viewtopic.php?t=124504

**SpaceFrog** · 20/01/2006, 14h23

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 .. ?

**Megaxel** · 20/01/2006, 14h41

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.

**Megaxel** · 20/01/2006, 14h42

Alors celui ci:
http://www.developpez.net/forums/viewtopic.php?t=224972

**jmfmarques** · 20/01/2006, 14h51

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

'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 ??

**SpaceFrog** · 20/01/2006, 15h10

pas besoin de dépenser du temps ...

Code :

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

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

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

merci !

**ThierryAIM** · 20/01/2006, 16h12

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

Code :

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

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

**ogenki** · 20/01/2006, 16h16

bonjour

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..

**ThierryAIM** · 20/01/2006, 16h18

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

'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