Recalcul après ouverture - Vba

Résolu/Fermé

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 - 8 mars 2016 à 11:50
Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 - 9 mars 2016 à 13:25

Bonjour,

J'ai créé une macro qui me permet d'enregistrer différents fichiers.
Pour chaque fichier , j'ai un message d'erreur :

Les lignes

Application.ScreenUpdating = False

Application.ScreenUpdating = True

sont déjà mise en début et fin de code.

J'aimerais qu'excel valide lui-meme ces messages.

Est ce que quelqu'un peut m'aider svp ?

Merci d'avance ,
Cordialement,

A voir également:

Recalcul après ouverture - Vba
Page d'ouverture google - Guide
Ouverture automatique pdf après enregistrement ✓ - Forum Word
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
8 mars 2016 à 11:59

Bonjour,

essayez avec:

 Application.DisplayAlerts = False

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
8 mars 2016 à 13:22

Bonjour F894009 ,

Ca ne fonctionne pas non plus.
Merci de votre aide.

Réponse 2 / 2

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
8 mars 2016 à 12:43

Bonjour,

C'est peut-être voulu mais j'ai l'impression que tu les enregistres en .xls et non en .xlsx.
eric

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
8 mars 2016 à 13:17

Bonjour Eric,

C'est ça , c'est voulu.

Et ce message serait donc dû à ce changement d'extension ?

Fahora

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
8 mars 2016 à 13:30

Oui.
Tu pars d'un fichier avec 1 millions de lignes et tu le sauvegardes avec 65000 lignes, c'est normal qu'il te prévienne.

Si tu les crées tu pourrais essayer comme ça :

    Application.DefaultSaveFormat = xlExcel8 '.xls
    Workbooks.Add
    Application.DefaultSaveFormat = xlOpenXMLWorkbook '.xlsx

eric

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
8 mars 2016 à 13:33

newWk.SaveAs (ThisWorkbook.Path & "\ED 0" & Month(Date) - 1 & " 2016 " & ws.Name & ".xls"), FileFormat:=56

Voila ce que j'ai, comment est ce que je peux corriger ça avec ton code ?

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
Modifié par eriiic le 8/03/2016 à 15:32

J'ai dit "Si tu les crées...". On ne sait pas si tu les crées ou si tu les ouvres car déjà existants, ce n'est pas pareil...
Les lignes que je te donnais étaient pour créer un nouveau classeur au format xls au lieu qu'il soit xlsx.
Tu le remplis comme tu dois et tu fais ton enregistrement ensuite.

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
9 mars 2016 à 13:25

Je les crées. J'ai fait un peu à ma sauce et ca semble fonctionner. Merci Eric.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel