Suppression de MsgBox d'Excel

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:

---

1 2 3

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

---

Merci

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

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

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:

---

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+

Bonjour,

A mon avis, le plus simple :

Code:

---

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+

Citation:

---

Envoyé par DeaD78

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,

Citation:

---

Envoyé par DeaD78

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

---

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

Bonjour et merci pour toutes ses réponses.

Mon programme utilise un fichier excel en partage. donc pour le moment, j'ai une sauvegarde automatique a la fin de chaque ajout de ligne. Donc c'est pour cela que je ne risque pas de pertes de données en utilisant la commande répondant "oui" à la question posée de réouvrir le fichier non?

Si tu as une sauvegarde dans ton code alors la proposition de DEAD78 est OK

A+

Si c'est le cas, tu n'as aucun risque à faire :

Code:

---

1 2 3

Application.DisplayAlerts = False Application.DisplayAlerts = True

---

Ton message disparaîtra et tu ne perdras aucune donnée. Ca sera au plus court.

Attention cependant de ne pas utiliser cela à mauvais escient. Nous t'avons prévenu des risques d'une mauvaise utilisation.

Dans ton cas, tu n'as aucun risque mais c'est juste pour que tu t'en rappelles si tu veux l'utiliser une prochaine fois :mouarf:

Toutes les méthodes proposées sont ici fonctionnelles et celle de Fvandermeulen marchera aussi. Même si je n'aime pas vraiment les GoTo non plus :aie:

A+

EDIT : on s'est croisé ! Va falloir que j'apprenne à refresh dis donc 8O

Citation:

---

Envoyé par DeaD78

...
Même si je n'aime pas vraiment les GoTo non plus :aie:
...

---

Réminiscence du GWbasic...mais vu ton age t'as pas du débuter avec ça ;)
Mais t'as raison, je l'utilise avec parcimonie, quand j'ai pas vraiment le choix...

Effectivement, j'ai commencé un peu plus tard :roll:

Merci à tous pour votre aide :)

et je prend bonne note de la mise en garde.

Bonjour à tous.

J'arrive un peu tard mais

Citation:

---

Envoyé par Fvandermeulen

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 :D si le claseur est ouvert dans la même application. D'ailleurs dans ce cas, comme

Citation:

---

car il reste ouvert toute la journée).

---

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

Code:

---

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:

---

1 2 3 4 5 6

Dim Wbk as Excel.Workbook   Set Wbk = GetObject("C:\TEST\TEST_Partage.xls")   Wbk.Activate ...

---

Amitiés,

PGZ