VBA - Récupérer des données d'un classeur fermé
andrea
-
andrea -
andrea -
Bonjour à tous ,
Je début en VBA et j'ai le problème suivant :
J'ai un fichier A et un fichier source. je souhaite extraire des données du fichier source pour les afficher dans le fichier A. J'ai donc mis en place un lien entre les deux fichiers. Cependant, cela nécessitais l'ouverture du fichier source, pour que le fichier A ce mette à jour.
j'ai donc ecrit le code suivant, que j'ai réussis à avoir à l'aide d'un utilisateur:
Sub ImporterDonneesSansOuvrir()
'Déclaration variable chemin et nom en texte
Dim Cheminsource As String
Dim Fichiersource As String
'Définition contenu variable
Cheminsource = "I:\G_AMEC\ETAT AMEC2\Etat AMEC 2 \" '
Fichiersource = "Etat AMEC 2 (version 2).xlsm"
'Création d'une plage de remontée de données à partir du fichier source fermé sinon bug, de la feuille calculs et de la plage cellule voulue
ThisWorkbook.Names.Add "plage", _
RefersTo:="='" & Cheminsource & "[" & Fichiersource & "]calculs'!H9"
With Worksheets("RECAP") ' feuille du fichier A
Worksheets("RECAP").Range("F49").Value = "=plage"
End With
End Sub
Mais ce code affiche 0 et non la valeur voulue ... Avez vous une idée ?
merci d'avance
Je début en VBA et j'ai le problème suivant :
J'ai un fichier A et un fichier source. je souhaite extraire des données du fichier source pour les afficher dans le fichier A. J'ai donc mis en place un lien entre les deux fichiers. Cependant, cela nécessitais l'ouverture du fichier source, pour que le fichier A ce mette à jour.
j'ai donc ecrit le code suivant, que j'ai réussis à avoir à l'aide d'un utilisateur:
Sub ImporterDonneesSansOuvrir()
'Déclaration variable chemin et nom en texte
Dim Cheminsource As String
Dim Fichiersource As String
'Définition contenu variable
Cheminsource = "I:\G_AMEC\ETAT AMEC2\Etat AMEC 2 \" '
Fichiersource = "Etat AMEC 2 (version 2).xlsm"
'Création d'une plage de remontée de données à partir du fichier source fermé sinon bug, de la feuille calculs et de la plage cellule voulue
ThisWorkbook.Names.Add "plage", _
RefersTo:="='" & Cheminsource & "[" & Fichiersource & "]calculs'!H9"
With Worksheets("RECAP") ' feuille du fichier A
Worksheets("RECAP").Range("F49").Value = "=plage"
End With
End Sub
Mais ce code affiche 0 et non la valeur voulue ... Avez vous une idée ?
merci d'avance
A voir également:
- Récupérer des données d'un autre fichier excel vba
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Récupérer au terminal de fret - Forum Consommation & Internet
- Fichier rar - Guide
Si la boite de dialogue apparait c'est que soit le Cheminsource, soit le Fichiersource ne sont pas corrects ou encore qu'il n'y a pas de feuille "calculs" dans le fichier source.