Copie de données depuis un classeur fermé
Résolu
Jono92600
Messages postés
76
Date d'inscription
Statut
Membre
Dernière intervention
-
baladur13 Messages postés 47777 Date d'inscription Statut Modérateur Dernière intervention -
baladur13 Messages postés 47777 Date d'inscription Statut Modérateur Dernière intervention -
A voir également:
- Copie de données depuis un classeur fermé
- Fuite données maif - Guide
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
4 réponses
Bonjour
envoyer plutôt la pièce jointe compressée sur un site spécialisé plutôt que 7z que tout le monde n'a pas
Dans l’attente
Michel
envoyer plutôt la pièce jointe compressée sur un site spécialisé plutôt que 7z que tout le monde n'a pas
Mettre le classeur sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic droit-coller le raccourci dans votre message
Dans l’attente
Michel
Bonjour,
Le but de ce forum d'entraide est de vous donner des conseils et de vous aider à résoudre votre problème, mais nous ne sommes par là pour faire le travail à votre place.
Pour cela, il y existe des professionnels qui ont besoin de travailler. Il n’est pas question pour nous bénévoles, de leur ôter le pain de la bouche.
Pour obtenir une réponse, il faut que vous fassiez vous-même des efforts. Montrez-nous ce que vous avez déjà fait en expliquant vos difficultés et vous mettrez toutes les chances de votre coté pour que quelqu’un vous réponde.
Le but de ce forum d'entraide est de vous donner des conseils et de vous aider à résoudre votre problème, mais nous ne sommes par là pour faire le travail à votre place.
Pour cela, il y existe des professionnels qui ont besoin de travailler. Il n’est pas question pour nous bénévoles, de leur ôter le pain de la bouche.
Pour obtenir une réponse, il faut que vous fassiez vous-même des efforts. Montrez-nous ce que vous avez déjà fait en expliquant vos difficultés et vous mettrez toutes les chances de votre coté pour que quelqu’un vous réponde.
Bonjour,
Je vais préciser pourquoi cette réponse et notamment cette partie : «nous ne sommes par là pour faire le travail à votre place.»
- Pour résoudre ton problème, il faut écrire une macro en langage VBA.
- Tu as posté deux fichiers (que j'ai regardé), dans lesquels il n'y a pas la moindre ligne de code VBA.
Fais l'effort de commencer à écrire le code, et si rencontres des difficultés, on t'aidera.
Je vais préciser pourquoi cette réponse et notamment cette partie : «nous ne sommes par là pour faire le travail à votre place.»
- Pour résoudre ton problème, il faut écrire une macro en langage VBA.
- Tu as posté deux fichiers (que j'ai regardé), dans lesquels il n'y a pas la moindre ligne de code VBA.
Fais l'effort de commencer à écrire le code, et si rencontres des difficultés, on t'aidera.
Ça aussi j'avais regardé et je n'ai vu des réponses qu'à tes propres questions :
https://forums.commentcamarche.net/forum/s/member%3AJono92600
Aurais-tu un autre pseudo sur ce site ?
https://forums.commentcamarche.net/forum/s/member%3AJono92600
Aurais-tu un autre pseudo sur ce site ?
Bonjour,
Non, j'en ai pas d'autre.
Ci-dessous le code qui me permet uniquement de copier la première cellule de la Feuil1 de chaque fichier.
Non, j'en ai pas d'autre.
Ci-dessous le code qui me permet uniquement de copier la première cellule de la Feuil1 de chaque fichier.
Option Explicit
Sub Importer()
Dim i As Long
Dim sDossier As String, sFichier As String, sFeuille As String, sColonne As String
Application.ScreenUpdating = False
ShDatas.Range("A2:Z4587").Clear
sDossier = ThisWorkbook.Path & "\"
sFeuille = "Feuil1"
For i = 1 To 4
With ShDatas
sFichier = .Cells(1, i)
.Cells(2, i) = ExtraireValeur(sDossier, sFichier, sFeuille, "A2:A150")
.Cells(2, i) = ExtraireValeur(sDossier, sFichier, sFeuille, "A2:A150")
End With
Next i
Application.ScreenUpdating = True
End Sub
Private Function ExtraireValeur(ByVal Dossier As String, ByVal Fichier As String, ByVal Feuille As String, ByVal Cellule As String)
Dim Argument As String
Argument = "'" & Dossier & "[" & Fichier & "]" & Feuille & "'!" & Range(Cellule).Address(, , xlR1C1)
ExtraireValeur = ExecuteExcel4Macro(Argument)
End Function
bonjour,
si j'ose une incruste
la macro XL4 ne fonctionne que pour une cellule à la fois
pour copier le la valeur, soit:
1/ tu peux faire une boucle en appelant à chaque fois la macro avec un test "sivide" pour sortir de la boucle
2/ + raisonnablement, utiliser la technologie ADODB
c'était juste une suggestion au passage
a voir avec Patrice
si j'ose une incruste
la macro XL4 ne fonctionne que pour une cellule à la fois
pour copier le la valeur, soit:
1/ tu peux faire une boucle en appelant à chaque fois la macro avec un test "sivide" pour sortir de la boucle
2/ + raisonnablement, utiliser la technologie ADODB
c'était juste une suggestion au passage
a voir avec Patrice
Un exemple peut-^tre similaire (compilation de données de plusieurs classeurs utilisant ADODB) vient d'^tre accepté par le demandeur
https://forums.commentcamarche.net/forum/affich-34599292-regroupement-de-donnees-de-plusieurs-classeurs-excel#p34612385
https://forums.commentcamarche.net/forum/affich-34599292-regroupement-de-donnees-de-plusieurs-classeurs-excel#p34612385
Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
Je reviens vers toi rapidement.
https://www.cjoint.com/c/GEwizoyUrU5
Lien1 du fichier :
https://www.cjoint.com/c/GEwiAAfEBr5
Lien 2 du fichier :
https://www.cjoint.com/c/GEwiBg4P835
Merci.