Discussion :

[mattlovelara]

Bonjour à tous,

Ayant été pleinement satisfait de vos services lors de ma précédente demande, je me permets une nouvelle fois de vous solliciter

Voila, j'ai cherché toute la matinée, essayé un peu dans tous les sens mais rien n'y fait je n'arrive pas à obtenir le résultat que je souhaite, qui est pourtant, à mon sens, relativement simple.

Je m'explique :

Je dispose d'un fichier source.xlsx . Dans ce fichier, de nombreuses cellules sont remplies avec des valeurs.
Je dispose d'un autre fichier, le fichier dest.xlsx . Ce fichier est vierge en valeurs.

Je souhaiterais, à l'ouverture du fichier dest.xlsx, que les données contenues dans certaines cellules de source.xlsx (et non pas toute la feuille 1 par exemple), soient insérées dans dest.xlsx là ou je le souhaite .

Voila, à mon sens c'est simple, mais je n'y arrive pas

A noter, en réaliter j'ai plusieurs fichiers source.xlsx (différents hein), mais j'imagine que si j'arrive à faire fonctionner ce comportement pour 1 fichier, il n'y a pas de soucis pour plusieurs

voila, je suis ouvert à toutes vos méthodes,

Dans l'attente de vous lire,
merci d'avance !

[XLRATOR]

Bonsoir,
Essayez avec l'utilitaire de données externes:
Données >>> Données Externes >>>> Autres Source >>>>> Microsoft Query >>>> Fichiers Excel

En suite Microsoft Query vous guidera tout au long de la procédure d'import il vous permettra d'y appliquer des conditions et des tris que vous saurez manipuler à votre guise.
Une fois importées, vos données pourront être mises à jour à l'ouverture du Fichier Dest grâce au code suivant:

Code :

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

1
2
3
Private Sub Workbook_Open()
ThisWorkbook.RefreshAll
End Sub

Cordialement.
Karim

[mattlovelara]

Bonjour Karim,

Merci pour votre réponse et votre code, c'est un bon début (pour la fin :p).

J'ai bien essayé avec MSQUERY mais je n'arrive pas à lui demander une cellule en particulier, j'ai réussi à récupérer la feuille entière ou bien des valeurs conditionnelles genre > à 0 et < à 2 par exemple or je veux bêtement uniquement le contenu d'une cellule en particulier :/ .

[XLRATOR]

Bonjour,
cela dépend de la dispositions de vos données ainsi que les conditions que requière l'obtention de la valeur de votre fameuse et heureuse cellule

Donc si vous pourriez porter de plus d'explications...

Cordialement.
Karim

[GoFio]

Bonjour,

Copier cellules depuis classeur fermé dans classeur ouvert

Je pense que tu es obligé d'ouvrir le classeur, copier ce que tu souhaites et le fermer ensuite.

Je te montre une partie de code qui j'espère devrait t'aider :

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
Sub Initialisation()
 
    Dim source As Workbook, classeur As Workbook
    Dim adresse_basedonnees as String
 
    adresse_basedonnees = "Met le chemin de ton fichier source"
 
    'ouvrir le classeur source (en lecture seule)
    'adresse_basedonnees c'est le chemin de ton fichier source
    Set source = Application.Workbooks.Open(adresse_basedonnees & "source.xlsx", True)
    'définir le classeur destination
    Set classeur = ThisWorkbook
 
    'copier les données cellules de la "Feuil1" du classeur source vers les cellules de la "Feuil1" du classeur destination
    source.Sheets("Feuil1").Range("A1:I2300").Copy classeur.Sheets("Feuil1").Range("A1:I2300")
    'Range("A1:I2300") est le plage de cellules que tu copies puis colles
    'fermer le classeur source
    source.Close False
 
End Sub

Cette partie de code je l'utilise et elle fonctionne, j'ai juste changer quelques trucs pour ton cas, donc j'espère que ça fonctionnera aussi

[XLRATOR]

Enfin bon, s'il s'agit d'une cellule bien précise sans conditions particuliéres, je procéderais comme suit:
Dans mon cas récupérer la valeur de la cellule "B5" du fichier source dans la cellule "A1" du fichier de destination.

1. Dans le fichier de destination, Je mets la fonction suivante dans un module standard:
   

   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
   Function RecupValeur(Dossier As String, NomFichier As String, Feuille As String, Cellule As String)
       Dim Proc As String
       'Correction du chemin du dossier en cas de manque du slash en fin de la chaine de caractéres
       If Right(Dossier, 1) <> "\" Then Dossier = Dossier & "\"
    
       'Si le dossier ou le fichier n'existe pas afficher un message d'erreur puis sortir de la fonction
       If Dir(Dossier & NomFichier) = "" Then
          MsgBox "Fichier introuvable", vbExclamation
           Exit Function
       End If
    
       'Recuperer la valeur a partir du fichier source
       Proc = "'" & Dossier & "[" & NomFichier & "]" & Feuille & "'!" & Range(Cellule).Range("A1").Address(, , xlR1C1)
      RecupValeur = ExecuteExcel4Macro(Proc)
   End Function

2. Sous l’événement de votre choix, dans mon cas Événement Clic d'un bouton ActiveX j’appelle la fonction comme suit
   

   Code :

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

   Range("A1").Value = RecupValeur("CheminDossier", "NomDuFichier.xls", "NomDeLaFeuille", "b5")

Cordialement.
Karim

[mattlovelara]

Bonjour à tous,

merci pour vos réponses ça fait plaisir de voir des personnes toujours prêtes à aider.
J'ai finalement réussi à obtenir le comportement souhaité avec le code suivant :

Code :

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

1
2
3
4
5
 
    With Range("B5")
        .Formula = "='c:/spaces/collab/Hotellerie/DocumentsEquipe/[ARNAN.xlsm]Feuil1'!D10"
        .Value = .Value
    End With

Mais mon problème vient d'évoluer ! En effet, je dois pouvoir récupérer les données d'un fichier Excel hébergé dans une bibliothèque SharePoint, et les insérées dans un fichier Excel également hébergé dans la même bibliothèque SharePoint

Et là, mon code ne fonctionne pas je n'ai droit qu'à des #REF# alors que le chemin d'accès https est correct. J'imagine qu'il va me falloir utiliser autre chose de plus complexe et complet.

J'envisage de créer un nouveau topic pour l'occasion du coup.

merci