Erreur à l'ouverture d'un fichier

Le 11/04/2018 à 13:30

Bonjour à tous,

Et déjà un grand merci pour votre précieuse aide!

Voila mon problème, quand j'ouvre mon classeur excel, il me donne un message d'erreur (Voir capture d'écran)

Je clique sur oui et il me corrige l'erreur, (Voir 2ièm capture)

Je réenregistre sur le même nom et tous est ok quand je l'ouvre ensuite. sauf que quand je le referme, j'ai une sauvegarde automatique en quittant avec plusieurs étape à effectuer. Et le problème se repose quand je veux ré ouvrir...

Je ne peux malheureusement pas vous joindre mon fichier car il est trop lourd, Mais peut être une idée avec le peu d'info, ou alors la partie qu'il faudrait vous joindre!!

A savoir qu'auparavant je n'avais pas ce problème il a apparu du jours au lendemain, après une mise à jours peut être?? je sais plus...

Merci merci d'avance

message a l ouverture second message
Le 11/04/2018 à 22:25

Bonsoir,

avez vous sur les feuilles indiquées des mise en forme (en page) du type : masquage des colonnes inutilisées, des lignes de la même façon, ou bien suppression des quadrillages ?

@ bientôt

LouReeD

Le 12/04/2018 à 06:07

Bonjour LouReeD,

Merci d'avance,

Sur ces feuilles j'ai des mise en forme de couleur, mais pas de ligne qui se cache ou autre. sur ces feuilles il y a aucune Macro.

Je viens de remarquer que c'est uniquement quand je lance cette macro ci dessous,

Car quand j'enregistre sans lancer cette macro pas de soucis, si j’enregistre après d'avoir lancer cette macro, ca recommence, cette macro se lance aussi à la fermeture du fichier.

Feuil5 = Cal.3

Feuil6 = Cal.8

Private Sub CommandButton1_Click()
'
' Macropdf Macro
'

'
Sheets("Cal.2").Range("A3").ClearContents
Sheets("Cal.2").Range("E3").ClearContents
Sheets("Cal.3").Range("A3").ClearContents
Sheets("Cal.3").Range("E3").ClearContents
Sheets("Cal.4").Range("A3").ClearContents
Sheets("Cal.4").Range("E3").ClearContents
Sheets("Cal.5").Range("A3").ClearContents
Sheets("Cal.5").Range("E3").ClearContents
Sheets("Cal.6").Range("A3").ClearContents
Sheets("Cal.6").Range("E3").ClearContents
Sheets("Cal.7").Range("A3").ClearContents
Sheets("Cal.7").Range("E3").ClearContents
Sheets("Cal.8").Range("A3").ClearContents
Sheets("Cal.8").Range("E3").ClearContents

Sheets("planning").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\" & Environ("username") & "\Dropbox\Planning Mauridul\Planning.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.WindowState = xlMinimized
Application.WindowState = xlNormal

Sheets("planning payement").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\" & Environ("username") & "\Dropbox\Planning Mauridul\Payement.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.WindowState = xlMinimized
Application.WindowState = xlNormal

tabfeuil = Array("planning", "planning Payement", "Cal.2", "Cal.3", "Cal.4", "web2", "web3", "web4", "web1")

For i = LBound(tabfeuil) To UBound(tabfeuil)
    Sheets(tabfeuil(i)).Visible = xlSheetVisible
Next i
Sheets(tabfeuil).Select

Sheets(Array("Cal.2", "Cal.3", "Cal.4")). _
        Select
    Sheets("Cal.2").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Environ("username") & "\Dropbox\Planning Mauridul\Calendrier.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal

    Sheets(Array("web2")). _
        Select
    Sheets("web2").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Environ("username") & "\Dropbox\Planning Mauridul\Public\Mauridul Ltée.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal

    Sheets(Array("web3")). _
        Select
    Sheets("web3").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Environ("username") & "\Dropbox\Planning Mauridul\Public\Mauridul Ltée..pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal

    Sheets(Array("web4")). _
        Select
    Sheets("web4").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Environ("username") & "\Dropbox\Planning Mauridul\Public\Mauridul Ltée,.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal

    Sheets(Array("web2", "web3")). _
        Select
    Sheets("web2").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Environ("username") & "\Dropbox\Planning Mauridul\Public\Villa Le Mauridul.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal

    Sheets(Array("web2", "web1")). _
        Select
    Sheets("web1").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Environ("username") & "\Dropbox\Planning Mauridul\Public\Appart Le Mauridul.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal

    Sheets("info.").Activate

End Sub

Ou est l'erreur?

Merci...

Le 12/04/2018 à 10:01

Bonjour,

ci dessous une petite simplification du code en supprimant les select inutiles, en mettant en place une boucle pour l'effacement des données en début de code, en supprimant les :

Application.WindowState = xlMinimized
Application.WindowState = xlNormal

qui en fin de compte réduisent la fenêtre et l'agrandissent aussitôt après (?!), en remplaçant les :

    Sheets(Array("web3")). _
        Select
    Sheets("web3").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Environ("username") & "\Dropbox\Planning Mauridul\Public\Mauridul Ltée..pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

par tout simplement :

    Sheets("web3").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Mauridul Ltée..pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

car pourquoi créer un "tableau" qui ne contient qu'une feuille, et pourquoi activer cette feuille si ce n'est que pour la sauvegarder en PDF...

ensuite une petite faute de frappe :

    Sheets(Array("web4")). _
        Select
    Sheets("web4").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Environ("username") & "\Dropbox\Planning Mauridul\Public\Mauridul Ltée,.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

regardez le nom du fichier, il y a une ","...

Voici donc le code :

Private Sub CommandButton1_Click()
'
' Macropdf Macro
'

    Dim Bcl As Integer
    For Bcl = 2 To 8
        Sheets("Cal." & Bcl).Range("A3").ClearContents
        Sheets("Cal." & Bcl).Range("E3").ClearContents
    Next Bcl

    Sheets("planning").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "D:\Planning.pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

    Sheets("planning payement").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "D:\Payement.pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

    ' on rend les feuilles visibles
    tabfeuil = Array("planning", "planning Payement", "Cal.2", "Cal.3", "Cal.4", "web2", "web3", "web4", "web1")
    For i = LBound(tabfeuil) To UBound(tabfeuil)
        Sheets(tabfeuil(i)).Visible = xlSheetVisible
    Next i

    Sheets(Array("Cal.2", "Cal.3", "Cal.4")).Select ' sélection des trois feuilles
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "D:\Calendrier.pdf", Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    Sheets("web2").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Mauridul Ltée.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Sheets("web3").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Mauridul Ltée..pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Sheets("web4").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Mauridul Ltée.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Sheets("web2").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Villa Le Mauridul.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Sheets(Array("web2", "web1")).Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "D:\Appart Le Mauridul.pdf", Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    Sheets("info.").Activate

End Sub

maintenant s'il fonctionne chez vous, cela ne veut pas dire que l'erreur ne viendra plus, mais au moins lui sera plus légé, et je ne suis pas bon là dessus il y a peut être mieux à faire encore...

Après dans ce code vous "affichez" des feuilles... Y a t-il un code à l'ouverture qui pourrait provoquer une erreur par rapport à cela ?

l'erreur vient à l'ouverture suite à ce code à la fermeture, il y a peut-être un lien...

@ bientôt

LouReeD

Le 12/04/2018 à 11:46

Un grand merci ça marche )) et plus d'erreur...

Vous avez un œil de lynx, pour voir la virgule à la place du point, mais non ce n'est pas une erreur, mon fichier fini bien par une virgule.

Je vois que vous avez modifier le chemin d'enregistrement, j'ai garder les miens!! ou y a t'il un astuce que je n'aurais pas pigé.

Merci et bonne fin d'après midi

Ambroise

Le 12/04/2018 à 16:53

Et bien merci pour vos remerciements !

Non il n'y a pas d'astuce, j'ai simplement récréé un fichier avec les onglets "appelés" afin de voir ce qu'il se passait, du coup j'ai remplacé le chemin d'enregistrement, ensuite un gros nettoyage... Vous avez eu de la chance que le problème ne vienne pas du chemin...

@ bientôt

LouReeD

Rechercher des sujets similaires à "erreur ouverture fichier"