urgent SVP

[B.adnen]

bonjour à tous,
je fais appel à vos talents en vba.
apres de multiples recherches, je n'arrive pas à faire fonctionner une macro qui doit etre toute bete.
(je suis novice en vba)

voici l'idée :
j'ai 100 fichier excels, tous placés dans le meme dossier
je souhaite rassembler dans un classeur (test.xls) tout les données des 100 fichiers.

la macro devrait :
1- ouvrir le 1er fichier
2- copier tout les cellules
4 recommencer l'opération, en collant les cellules à la suite, pr l'ensemble des fichiers.

j'ai déjà trouver un macro qui répond a mes besoin mai qui fonctionne juste pour copier qu'elle que donner de la cellule A1 et j'aimerai bien la modifier pour qu'elle fonctionne sur tout les les cellules du fichier.
vous trouverai cette macro dans le fichier jointe.

merci par avance pr votre aide

bonne continuation à tous

cdt Adnen

 

[Papou-net]

Re : urgent SVP

Bonjour B.adnen,

Sans aller plus avant dans ton code, je constate déjà que tu utilises le même nom (RepFrom) pour une macro et une variable.

En modifiant ton code comme suit, tu devrais pouvoir le faire fonctionner :

[COLOR="Red"][B]Public RepFrom[/B][/COLOR]

Function [COLOR="Red"][B]RepertFrom[/B][/COLOR]() As String
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&, "c:\Tmp")
    If Not oFolder Is Nothing Then
        Set oFolderItem = oFolder.Items.Item
        RepFrom = oFolderItem.Path
    End If
End Function

Espérant avoir répondu.

Cordialement.

 

[natorp]

Re : urgent SVP

Bjr le fil

malgré les remarques faites sur ce fil, la titre de ta discussion est tjrs aussi parlant...!!!
et pourquoi ouvrir un autre fil ?

https://www.excel-downloads.com/threads/urgent-svp.148937/

cordialement, Gérard

 

[B.adnen]

Re : urgent SVP

Bonjour,

Desoler le premier sujet c'est été mon assisatance qui la crée et j'ai pas fait attention.
je suis nouveaux dans se forum je ne connais pas les regles de se forum.
mai la j'ai bien lu la Lien supprimé
bref désoler pour se désagrément

SVP es que qu'elle qu'un peut m'aider a résoudre mon petit problème.

merci d'avance


Cordialement Adnen

 

[Papou-net]

Re : urgent SVP

Bonjour,

Desoler le premier sujet c'est été mon assisatance qui la crée et j'ai pas fait attention.
je suis nouveaux dans se forum je ne connais pas les regles de se forum.
mai la j'ai bien lu la Lien supprimé
bref désoler pour se désagrément

SVP es que qu'elle qu'un peut m'aider a résoudre mon petit problème.

merci d'avance


Cordialement Adnen

Bonjour,

As-tu lu mon message ?

Ca ne marche pas ?

Cordialement.

 

[B.adnen]

Re : urgent SVP

merci papou-net pour la reponce
vraiment je suis désoler pour le rater j'ai ete entrain de tester est j'ai eu un empêchement .
j'ai test le macro avec ta modification mai sa n'a pas fonctionner
au faite le macro fonctionne tres bien au niveau du fichier jointe mai juste se macro fonctionne pour les cellule de la colonne A1 et se que je veux faire c'est de que je veux copier tout les cellule de tout les colonne et les coller dans les colonne respective
merci pour le soutier.