IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

#NOM? cellule avec cette valeur alors qu'en double cliquant le résultat apparaît


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 3
    Par défaut #NOM? cellule avec cette valeur alors qu'en double cliquant le résultat apparaît
    Bonjour,
    Je vous explique mon cas:
    J'ai quelques centaines de fichier de la même forme, seule les données changent. Le but est avec une macro de mettre en PDF des onglets (les mêmes de chaque fichier) du fichier. Là, pas de souci, ça fonctionne.
    En revanche, dans ma page de garde du fichier, j'ai une formule qui liste un certains nombre de numéro de contrat en se basant sur une liste présente dans une autre feuille du fichier. Le souci est que cette formule me renvoie #NOM? et quand le lance ma macro, j'ai donc cela à la place de la liste des numéros de contrats dans mon PDF.
    Si je clique dans la cellule et que je fais "entrée", le résultat est bon... En revanche, cela ne fais rien avec F9
    J'ai essayé plusieurs choses:
    - approuvé les emplacements des fichiers excel
    - approuvé l'emplacement de mon fichier excel avec lequel le lance la macro
    - enlever toute sécurité liée aux macro qui pourrait mettre le fichier en mode protéger
    - insérer dans la macro après ouverture du fichier un remplacement du "=" dans la cellule par un "=" pour forcer le calcul

    Rien n'y fait... Je suis désespéré et n'ai pas envie d'ouvrir mes centaines de fichier un par un pour faire afficher ce résultat!
    Est-ce qu'il existe une astuce avec vba?
    En vous remerciant par avance, je vous joins le fichier en question.
    Fichiers attachés Fichiers attachés

  2. #2
    Membre Expert
    Inscrit en
    Septembre 2007
    Messages
    1 142
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 142
    Par défaut
    Bonjour,
    Citation Envoyé par nicodebut Voir le message
    j'ai une formule qui liste un certains nombre de numéro de contrat en se basant sur une liste présente dans une autre feuille du fichier.
    Tu devrais mettre une formule encore plus longue pour déterminer le nombre de valeurs qui peuvent se trouver dans une plage nommée d'une seule cellule.

    Il me semble que ta centaine de fichiers n'arrivera que très difficilement et en tassant au pied sans doute à tenir dans ta cellule. ;-)

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 3
    Par défaut
    Citation Envoyé par anasecu Voir le message
    Bonjour,

    Tu devrais mettre une formule encore plus longue pour déterminer le nombre de valeurs qui peuvent se trouver dans une plage nommée d'une seule cellule.

    Il me semble que ta centaine de fichiers n'arrivera que très difficilement et en tassant au pied sans doute à tenir dans ta cellule. ;-)
    On avance avec des réponses pareil...

  4. #4
    Expert confirmé Avatar de Patrice740
    Homme Profil pro
    Retraité
    Inscrit en
    Mars 2007
    Messages
    2 478
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 478
    Par défaut
    Bonjour,
    Citation Envoyé par nicodebut Voir le message
    On avance avec des réponses pareil...
    De nombreux contributeurs n'ouvrent pas les fichirs joints, en particulier lorsqu'ils contiennent des macros : Fichier joint dans vos discussions

    Donc si tu veux que ça avance, il faudrait :
    - que tu précises quelle est la formule en cause,
    - que tu publies la macros en cause .

  5. #5
    Candidat au Club
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 3
    Par défaut
    Bonjour,
    Voici le code de la macro:
    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
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    Sub CT_prevdosetssdoss()
        Dim objShell As Object, objFolder As Object, oFolderItem As Object
        Dim Chemin As String
        racine = ChoixDossier()     ' ou un répertoire C:\xxx e.g.
        If racine = "" Then Exit Sub
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set dossier_racine = fs.getfolder(racine)
         For Each d In dossier_racine.SubFolders
         Dim i
       ' Set objShell = CreateObject("Shell.Application")
       ' Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
         Fichier = Dir(d & "\" & "*.xlsm")
         i = 2
       ' On Error Resume Next
       ' Set oFolderItem = objFolder.Items.Item
       ' Chemin = oFolderItem.Path
     
       ' MsgBox Chemin
       ' ChDir Chemin
       ' Dim Fichier As String
     
        'Boucle sur tous les fichiers xlsx du répertoire.
       ' Fichier = Dir("*.xlsm")
        'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
        'Fichier = Dir(Chemin & "*.*")
     
        Do While Fichier <> ""
            'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
              If Fichier <> ThisWorkbook.Name Then
                Workbooks.Open d & "\" & Fichier
                Workbooks.Application.CalculateFullRebuild
     
            Dim nfichier As String, nfichier2 As String, intpos As Byte
     
                nfichier = ActiveWorkbook.Name
                intpos = InStrRev(nfichier, ".")
                nfichier = Left(nfichier, intpos - 1)
                nfichier2 = nfichier & ".pdf"
               'MsgBox Fichier
                Application.ScreenUpdating = False
                   Sheets(Array("Page de Garde", "Résultat AT", "Liste PM INCAP", "Liste PM INVAL", "Résultat Deces", "Liste PM RENTE", "Résultat Global", "Etude prestations", "Etude Nombre de jour et d'arrêt", "Lexique")).Select
     
     
                ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=d & "\" & nfichier2, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
     
            ActiveWorkbook.Close True
            i = i + 1
                End If
     
            Fichier = Dir()
        Loop
        Next
        MsgBox "transformation terminée"
    End Sub
    Je ne pense pas que la formule soit en cause car comme précisé, si je double clique dans la cellule et que je valide, alors le résultat est bien affiché.
    Je pense que la macro ouvre le classeur mais n'actualise pas les formules (peut être un souci de sécurité?)
    Comment ouvrir le classeur avec mise à jour de celui-ci?
    Merci d'avance,

Discussions similaires

  1. [XL-2007] [VBA] remplir un range de cellule avec les valeurs d'autres ranges
    Par cladsam dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 27/08/2012, 15h12
  2. [XL-2007] Copier que les cellules avec des valeurs dans une plage.
    Par Fred4345 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 24/11/2011, 20h20
  3. Trouver Nom Cellule avec coordonnées X et Y?
    Par jojo86 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 03/09/2010, 12h09
  4. [XL-2003] calculer cumul puis fusionner des cellules avec des valeurs
    Par doudou8mc dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 06/11/2009, 16h51
  5. Réponses: 4
    Dernier message: 29/08/2007, 16h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo