Discussion :

[Sibuxian]

Bonjour tout le monde,

Mon programme VBA est assez simple, Je sélection une ligne pour faire un Copy/Paste sur un autre document à la suite de la liste déja présente.

Donc ma macro me fait ouvrir le fichier pour pouvoir copier la ligne. Mon problème est que Excel me demande toujours si je veux réouvrir le fichier (car il reste ouvert toute la journée).
Existe - t - il un moyen pour répondre forcément oui a cette MsgBox d'Excel afin que cela ne bloque pas la macro? ou peut etre même qu'il ne me propose plus de réouvrir le Fichier tout le temps.

Voici le code d'ouverture :

Code :

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

1
2
3
ChDir "C:\Test"
Workbooks.Open Filename:="C:\TEST\TEST_Partage.xls"
Windows("TEST_Partage").Activate

Merci

[pgz]

Bonjour.

Si tu veux ouvrir un classeur dont tu ne sais pas s'il est déjà ouvert, tu peux utiliser la méthode GetObject qui ne provoquera aucune alerte.

Cordialement,

PGZ

[Sibuxian]

Désolé, je ne connais pas. Cela fonctionne comment ?

[Fvandermeulen]

Salut Sibuxian (salut Pgz)

C'est pas que je veux contredire Pgz mais à mon avis un test de nom de fichier via une boucle sur les classeurs sera plus facile à mettre en oeuvre.

Voici ce que ça donne, on sort de la procédure si on trouve un fichier ouvert nommé "TEST_Partage"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub bouclefichiers()
 
Dim Wb As Workbook
 
For Each Wb In Workbooks 'Boucle sur tous les Workbooks
    If Wb.Name = "TEST_Partage" Then Exit Sub 'Test sur nom du Workbooks, si égale on quitte la macro, sinon on continue avec le code déjà existant
Next Wb
 
ChDir "C:\Test"
Workbooks.Open Filename:="C:\TEST\TEST_Partage.xls"
Windows("TEST_Partage").Activate
 
End Sub

A+

[DeaD78]

Bonjour,

A mon avis, le plus simple :

Code :

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

1
2
3
4
5
6
7
Application.DisplayAlerts = False
 
    ChDir "C:\Documents and Settings\xxx\Desktop" 'le chemin de ton répertoire
    Workbooks.Open Filename:="C:\Documents and Settings\xxx\Desktop\test.xls" 'ton répertoire
    Windows("test").Activate
 
    Application.DisplayAlerts = True

Cela répondra automatiquement "Oui" à la question qui est posée. Cependant, les infos non sauvegardées seront perdues. Mais c'est ce que j'ai compris de ta demande. Si tu ne veux pas perdre les infos, enregistre ton fichier avant de procéder à son ouverture.

A+

[Fvandermeulen]

Bonjour,

A mon avis, le plus simple :+

Salut DeaD78, en effet c'est plus simple, mais tu as raison d'alerter sur l'aspect risque de perte de données,

...Cependant, les infos non sauvegardées seront perdues. Mais c'est ce que j'ai compris de ta demande....
A+

et c'est bien ça qui me fait peur avec cette procédure, ça me semble vraiment "dangereux", je ne suis pas certain que la question ai été bien posée.

Comme j'ai relu la question initiale, par rapport à ma proposition, une sortie simple ne suffira surement pas, donc voici avec un Goto...

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
Sub bouclefichiers()
 
Dim Wb As Workbook
 
For Each Wb In Workbooks 'Boucle sur tous les Workbooks
    If Wb.Name = "TEST_Partage" Then Goto SuiteProc
Next Wb
 
ChDir "C:\Test"
Workbooks.Open Filename:="C:\TEST\TEST_Partage.xls"
Windows("TEST_Partage").Activate
 
SuiteProc:
     'Ici la partie du code qui colle (du moins je suppose)
 
End Sub

A toi de voir Sibuxian...

[pgz]

Bonjour à tous.

J'arrive un peu tard mais

C'est pas que je veux contredire Pgz mais à mon avis un test de nom de fichier via une boucle sur les classeurs sera plus facile à mettre en oeuvre.[/code]

Tu as raison Frédéric si le claseur est ouvert dans la même application. D'ailleurs dans ce cas, comme

car il reste ouvert toute la journée).

Il n'y a alors pas de test à faire mais à l'adresser directement par

Code :

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

set wbk = Application.Workbooks("...")

En fait j'ai proposé GetObject car cela permet d'instancier un classeur ouvert dans une autre application.
Pour Sibuxian, c'est simple à utiliser

Code :

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

1
2
3
4
5
6
Dim Wbk as Excel.Workbook
 
Set Wbk = GetObject("C:\TEST\TEST_Partage.xls")
 
Wbk.Activate
...

Amitiés,

PGZ