Extraire les données d'un fichier Excel pour les transférer

Signaler
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour,
J'ai actuellement quelques problèmes, j'aimerais transférer les chiffres d'une colonne bien particulier sur mon fichier Excel 1 afin de les concaténer avec les autres colonnes de mon fichier Excel 2

Est ce que vous avez un exemple de programme qui me permettrait de faire ça ?
Le but étant de garder la macro afin de pouvoir l'utiliser chaque mois et de pouvoir faire ça avec tous les fichiers Excel qui vont être tirés.

1 réponse

Messages postés
127
Date d'inscription
vendredi 2 janvier 2009
Statut
Membre
Dernière intervention
5 novembre 2017

Salut,

Voici un exemple dont tu peut t'inspirer :

\\Definition des fichiers
Set wb1 = ThisWorkbook
chemin = ThisWorkbook.Path & "\" 'Indique que l'on se trouve dans le dossier où ce fichier excel est.
nom=Excel2.xls
Set wb2 = Workbooks.Open(chemin & nom)


\\Definition des feuilles
Set ws1 = wb1.Sheets("Tableau1")
Workbooks(nom).Activate
Set ws2 = Workbooks(nom).Sheets("Tableau1")


\\Copie depuis le fichier Excel1 à Excel2
wb1.Activate
ws1.Select
Set Plage1 = ActiveSheet.Range("A1:AA99")
wb2.Activate
ws2.Select
Set Plage2 = ActiveSheet.Range("A1:AA99")
Plage2 = Plage1.Value
wb1.Activate
ws1.Select
wb2.Close


Ca devrait marcher comme cela :)
En fait, je n'ai toujours pas réussi à clore mon problème, je stage complètement et j'ai un problème de redirection. Il m'affiche l'erreur suivante : Erreur d'exécution 424 sur

Set wb2 = Workbook.Open(chemin & nom)

J'ai l'impression que c'est du à un problème de direction. Pourtant, j'ai tout essayé sur
chemin = ThisWorkbook.Path & "\"
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
L'erreur dénoncée n'est pas celle concernant un chemin inexistant (elle serait alors la 1004 !)
Tu as par contre oublié un "s" à WorkBooks (et là oui ===>> erreur 424) !
Set wb2 = Workbooks.Open(chemin & nom) ne peut que fonctionner parfaitement si la chaîne de caractères chemin & nom correspond bien à un fichier existant et non protégé .
Effectivement, je te remercie ucfoutu, du coup, j'ai l'erreur 1004. Et là, je pense qu'il y'a problème de redirection.
Pourtant, j'ai bien précisé le nom du fichier
nom = "MacroDestination.xls"
Et ce fichier se trouve sur dans un dossier qui s'appelle MP. Normalement, le chemin est le suivant : C\Program\Société\MP

j'ai rentré dans ma variable chemin
chemin = thisWorkbook.Path & ""
puis après

chemin = thisWorkbook.Path & "C:\Program\Société\MP"

mais rien n'y fait. :(
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
chemin = thisWorkbook.Path & "C:\Program\Société\MP"
est absurde !
This workbook.Path est le chemin du dossier dans lequel est ton appli :
Imaginons donc (exemple) que ce chemin soit "C:toto\titi\"
Comment peux-tu imaginer l'existence d'un fichier dont le chemin serait "C:\toto\titi\C:\Program\Société\MP"
???????????????
Prends un café, puis fais au moins une sieste et reviens, s'il te plait ... car là ... (hum)...
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
J'ajoute qu'un simple
msgbox chemin & nom
suffirait à vérifier le contenu de la chaîne que tu considères être le chemin complet du classeur que tu veux ouvrir !
Fais au moins ce geste minimum ! Tu constaterais que ce chemin ne correspond à aucun fichier existant !
PS : je te parlais de sieste ... Moi, là, je vais faire la mienne, de sieste.
Je ne reviendrai vers toi que si tu montres un peu plus de sérieux...
Désolé.