Bonjour,
Je suis débutant en programmation...et j'ai besoin de votre aide pour résoudre un problème vba!!
J'ai deux fichiers excel : le 1er récupère des données via un ERP avec une requête(ça c'est ok) .
le 2ème fichiers(qui est ouvert) va chercher les données du 1er fichier(qui est fermé) pour les copier : mon code(que j'ai copié sur le net!!) ne marche pas ou mal (il fait pas ce que je lui demande)
ratio.xls est le fichier fermé ou on va chercher les données
et classeur1 le fichier ouvert ou on colle les données.
voici le code:
De plus je cherche à faire une actualisation automatique de 2 fichiers excel, un fermé et un ouvert.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub ImporterDonneesSansOuvrir() Dim Chemin As String, Fichier As String Chemin = "C:\Documents and Settings\stp\Bureau\vba OF\" Fichier = "RATIO.xls" ThisWorkbook.Names.Add "plage", _ RefersTo:="='" & Chemin & "[" & Fichier & "]feuil1'!$A$1:$F$20" With Sheets("feuil1") .[A1:F20] = "=plage" .[A1:F20].Copy Sheets("Feuil1").Range("A1").PasteSpecial xlPasteValues End With End Sub
Le fichier fermé doit actualiser automatiquement une requête toutes les 5 minutes.
Le fichier ouvert doit s'actualiser automatiquement toutes les 5 minutes aussi.
Merci d'avance pour votre aide!!!!
LUDOVIC
Partager