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 :

Excel classeur fermé


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2016
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2016
    Messages : 1
    Par défaut Excel classeur fermé
    Bonjour,

    J'ai un code qui marche bien pour relever des données d'un autre classeur xlsm fermé.
    Ma question est comment incorporer dans la formule ci-dessous une erreur Si ficheJour (nom de ma variable feuille)
    existe pas alors Car actullement si la feuille existe pas j'ai une fennetre avec un message windows ou excel je c'est pas "sélectionné une feuille" avec la liste des feuilles du classeur

    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
     
    Sub releverK1()
    Dim Chemin As String, fichier As String
    Dim strJour As String, strMois As String, equipe As String
    Dim intJour As Integer, intMois As Integer, intAnnee As Integer
    Dim varFeuilles As Variant
    Chemin = Sheets("config").Range("N6")
    intJour = Sheets("calage").Range("A1")
    strJour = Format(intJour, "00")
    intMois = Sheets("calage").Range("B1")
    strMois = Format(intMois, "00")
    intAnnee = Sheets("calage").Range("C1")
    equipe = Sheets("calage").Range("A3")
    ficheJour = strJour & "." & strMois & "." & intAnnee & "_" & equipe
    fichier = "Komori_janvier_2016.xlsm"
    On Error Resume Next 'les erreurs deviennent non bloquantes
       ThisWorkbook.Names.Add "calagek1", _
        RefersTo:="='" & Chemin & "[" & fichier & "]" & ficheJour & "'!$G$5:$H$6"
     
        With Sheets("vierge")
            .[G5:H6] = "=calagek1"
            .[G5:H6].Copy
            Sheets("config").Range("D3:E4").PasteSpecial xlPasteValues
            .[G5:H6].Clear
        End With
     
    'gestion de lexception
    Select Case Err.Number
           Case 1
    'traitement
          Case 1004
    'traitement
          Case Else
    'dans tout autre cas
    End Select
     
    On Error GoTo 0 'les erreurs sont de nouveau bloquantes
     
    End Sub

  2. #2
    Membre chevronné
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2011
    Messages
    216
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Doubs (Franche Comté)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2011
    Messages : 216
    Par défaut
    Bonjour,

    Tu n'as pas vraiment cherché...rassure moi.
    Un exemple ci-dessous proposé par kiki29:
    http://www.developpez.net/forums/d12...nce-d-feuille/

Discussions similaires

  1. [XL-2007] Copier une plage excel à partir d'un classeur fermé vers le classeur actif
    Par FrancisZheng dans le forum Macros et VBA Excel
    Réponses: 22
    Dernier message: 17/11/2015, 16h51
  2. [XL-2010] SQL dans VBA sous Excel (Classeur fermé)
    Par Blaiz58 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 30/07/2014, 16h51
  3. Réponses: 15
    Dernier message: 23/05/2013, 19h33
  4. Réponses: 4
    Dernier message: 24/10/2008, 17h37
  5. [FAQ VBA Excel] Somme d'une ligne d'un tableau sur un classeur fermé
    Par nox1492 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 08/12/2007, 12h54

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