Discussion :

[skipeemed]

Bonjour,

En fait je suis entrain de réaliser une macro qui en premier lieu ouvre un fichier excel et à la fin je le ferme mais il y'a un message qui s'ouvre en me signalant si je souhaite l'enregistrer je clique sur "non" et je finis d'enregistrer la macro.

Mais quand j'execute la macro la partie ou je clique sur "non" ne s'executes pas.

est-ce que quelqu'un a une idée pour que je puisse l'automatiser?

Cordialement
Skip

[mercatog]

au début de ta macro mets

Code :

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

Application.DisplayAlerts = False

et à la fin

Code :

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

Application.DisplayAlerts = true

[skipeemed]

Bonjour,

Merçi frero ça marche.
Mais je voudrais savoir le concept pour que je puisse l'utiliser pour un oui par exmple. Parce que en fait il faut aussi que je cliques sur un oui lors de l'ouverture puis sur Fermer sur un autre message pour confirmer.

Merçi d'avance.
SKIP

[mercatog]

Donc, il suffit de placer les 2 ligne juste avant et juste après la ligne de code où tu veux inhiber l'apparition du message te demandant la confirmation.
Aussi, il y a la propriété

Code :

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

TonWorkbookAFermer.saved=true

[skipeemed]

Bonjour,

Normalement, quand le message apparaît il me dit si je veux continuer et la réponse par défault est non et moi je dois cliquer sur oui. Donc je ne veux pas empêcher l'apparition du message mais réussir à répondre "oui".

Il y'a un message qui vient directement après, il y'a un bouton dessus ou il y'a écrit Fermer, je cliques puis j'opère à mes changements.

Alors normalement tout cela doit être automatisé.

Cordialement,
SKip

[mercatog]

Mets ton code en entier avec tes explications

[skipeemed]

Mets ton code en entier avec tes explications

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 Macro2()
'
' Macro2 Macro
'
 
'
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Mes documents\fichier.xlsx"
    Columns("F:F").Select
    Selection.NumberFormat = "d/m/yy h:mm;@"
    Columns("D:D").Select
    Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveWindow.Close
End Sub

Voilà le code donc en premier lieu, quand j'ouvre il y'a un message qui dit:

""Excel a rencontré un contenu illisible dans "fichier.xlsx". Voulez-vous récupérer le contenu de ce classeur ? Si la source de ce classeur est fiable, cliquez sur Oui.""

Je clique sur Oui.

Puis il y'a directement un autre message qui dit :

""Excel a pu ouvrir le fichier en supprimant ou en réparant le contenu illisible""

Le seul choix est de cliquer sur "Fermer" donc je clique dessus.

Puis je procède à mes modifications et je ferme et il y'a un autre message qui s'affiche qui propose l'enregistrement je clique sur non.

C bon voilà.

Cordialement,
SKIP

[mercatog]

Je ne vois pas l'utilité d'ouvrir un fichier, le modifier et le fermer sans l'enregistrer
ci-joint 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
Sub Macro2()
Dim Wbk As Workbook
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wbk = Workbooks.Open("C:\Documents and Settings\Mes documents\fichier.xlsx")
With Wbk.Worksheets(1)
    .Columns("F:F").NumberFormat = "d/m/yy h:mm;@"
    .Columns("D:D").Replace What:=".", Replacement:="."
End With
Application.DisplayAlerts = True
Wbk.Close SaveChanges:=False    'fermer sans enregistrer
'Wbk.Close SaveChanges:=True    'enregistrer et fermer
Set Wbk = Nothing
End Sub

[skipeemed]

Bonjour,

Il y'a une erreur d'execution "1004" : La méthode 'Open' de l'objet 'Workbooks' a échoué.

Donc voilà si il y'a quelque chose que tu peux faire, parce que moi je suis dépassé.

Codialement,
SKIP

[mercatog]

Simplement ce fichier C:\Documents and Settings\Mes documents\fichier.xlsx n'existe pas

[skipeemed]

Bonjour,

Voilà les 2 messages qui s'ouvre lorsque je tente d'ouvrir mon fichier. Et ceci quand je l'ouvre manuellement en enregistrant la macro. Puis quand je l'execute il y'a l'erreur que je t'avais dit qui s'affiche et j'ai vérifié l'emplacement c'est le bon.

Cordialement,
Skip

[babaothe]

salut

as-tu essayé d'utiliser la constante xlRepairFile pour l'argument ChargementEndommagé de la méthode Open de WorkBooks ?

[skipeemed]

SAlut,

Comment je fais pour l'appliquer sur Mon code.??

Skip

[AlainTech]

Je comprends mal qu'on lance une discussion pour savoir comment éviter le message d'erreur généré par un fichier corrompu plutôt que d'essayer de réparer le fichier.
Je dois avoir l'esprit tordu...