Modification de code

[UJAP]

Bonjour,

Je voudrai modifier ce code afin d'exporter des éléments vers le fichier DADS au sein de l'onglet Chiffres,

Je ne sais pas comment le péciser dans le code car je veux que la copie se fasse sur onglet "Chiffres",

Merci d'avance,

Sub DADS()
Dim FichS As String, FichD As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
FichS = ActiveWorkbook.Name
Chemin = "C:\Documents and Settings\Utilisateur\Mes documents\Cotisations-Excel\DADS.xls"
Workbooks.Open Chemin
FichD = ActiveWorkbook.Name
Windows(FichS).Activate
Range("C2:N" & Range("A65000").End(xlUp).Row).Copy _
Destination:=Workbooks(FichD).Sheets(1).Range("A65000").End(xlUp).Offset(1, 0)
Workbooks(FichD).Save
Workbooks(FichD).Close
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[Bigfish]

Re : Modification de code

Salut,

cela devrait etre ça :

Sub DADS()
   Dim FichS As String, FichD As String
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   FichS = ActiveWorkbook.Name
   Chemin = "C:\Documents and Settings\Utilisateur\Mes documents\Cotisations-Excel\DADS.xls"
   Workbooks.Open Chemin
   FichD = ActiveWorkbook.Name
   Windows(FichS).Activate
   Range("C2:N" & Range("A65000").End(xlUp).Row).Copy _
   Destination:=Workbooks(FichD).Sheets([COLOR="Blue"]"Chiffres"[/COLOR]).Range("A65 000").End(xlUp).Offset(1, 0)
   Workbooks(FichD).Save
   Workbooks(FichD).Close
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub

A+🙂

 

[UJAP]

Re : Modification de code

Merci,

J'ai une erreur :
Range("C2:N" & Range("A65000").End(xlUp).Row).Copy _
Destination:=Workbooks(FichD).Sheets("Chiffres").Range("A65 000").End(xlUp).Offset(1, 0)

 

[Staple1600]

Re : Modification de code

Bonjour UJAP, BigFish


En reprenant le code d'UJAP modifié par BigFish, que j'écrirai comme cela

(Adapter le chemin et le nom des feuilles avant de tester)

[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] DADS()
[COLOR=darkblue]Dim[/COLOR] FichS [COLOR=darkblue]As[/COLOR] Workbook
[COLOR=darkblue]Dim[/COLOR] FichD [COLOR=darkblue]As[/COLOR] Workbook
[COLOR=darkblue]Dim[/COLOR] rs [COLOR=darkblue]As[/COLOR] Range
[COLOR=darkblue]Dim[/COLOR] rd [COLOR=darkblue]As[/COLOR] Range
[COLOR=darkblue]Dim[/COLOR] Chemin$
[COLOR=darkblue]With[/COLOR] Application
    .ScreenUpdating = [COLOR=darkblue]False[/COLOR]
    .DisplayAlerts = [COLOR=darkblue]False[/COLOR]
[COLOR=darkblue]Set[/COLOR] FichS = ThisWorkbook
[COLOR=darkblue]Set[/COLOR] rs = _
FichS.Sheets("Feuil1").Range("C2:N" & Range("A65000").End(xlUp).Row)

    Chemin = "D:\Test\ADS.xls"
    Workbooks.Open Chemin
    
[COLOR=darkblue]Set[/COLOR] FichD = ActiveWorkbook
[COLOR=darkblue]Set[/COLOR] rd = _
FichD.Sheets("Chiffres").Range("A65000").End(xlUp).Offset(1, 0)

    rs.Copy rd
            [COLOR=darkblue]With[/COLOR] FichD
                .Save
                .Close
            [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    .ScreenUpdating = [COLOR=darkblue]True[/COLOR]
    .DisplayAlerts = [COLOR=darkblue]True[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]

 

[Bigfish]

Re : Modification de code

Salut staple1600, salut le forum,

permet moi de rendre a Cesar ce qui appartient a Cesar: ce n'est pas mon code ! C'est bien le code, de l'amis UJAP, dans le quel je n'ai fait qu'ajouter le nom de la feuille (en bleu dans le code).

Voila rien de plus😉

Amicalement🙂

A+

 

[UJAP]

Re : Modification de code

OK génial,

J4ai encore besoin de vous,

Je voudrai maintenant modifier le code pour une autre fonction,

Le code actuel me permet de copier mon tableau en dessous du tableau au sein du fichier DADS (onglet chiffres),

Ils conservent donc les éléments déjà enregistrés,

Maintenant je voudrai (si possible) qu'il efface le tableau dans l'onglet Chiffres par ce nouveau tableau,

Peut-on le réaliser, si oui comment,

Merci bcp,

 

[UJAP]

Re : Modification de code

Avez-vous des idées pour effectuer cette opération ?

 

[kjin]

Re : Modification de code

Bonjour,
Avec le code précédent, essaie comme ceci

Sub DADS()
Dim FichS As Workbook
Dim FichD As Workbook
Dim rs As Range
Dim rd As Range
Dim Chemin$
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
Set FichS = ThisWorkbook
Set rs = FichS.Sheets("Feuil1").Range("C2:N" & Range("A65000").End(xlUp).Row)

    Chemin = "C:\Documents and Settings\Utilisateur\Mes documents\Cotisations-Excel\DADS.xls"
    Workbooks.Open Chemin
    
Set FichD = ActiveWorkbook
Set rd = FichD.Sheets("Chiffres").Range("A1")
    rd.Cells.Clear
    rs.Copy rd
            With FichD
                .Save
                .Close
            End With
    .ScreenUpdating = True
    .DisplayAlerts = True
End With
End Sub

En outre, le code de Bigfish était correct si tu avais écris
Sheets("Chiffres").Range("A65000") au lieu de
Sheets("Chiffres").Range("A65 000")
A+
kjin

 

[UJAP]

Re : Modification de code

OK, je viens de réussir la modification,

Merci,

 

[UJAP]

Re : Modification de code

Peut-on lui préciser de ne pas fermer le fichier destinataire ou de l'ouvrir ensuite sur un onglet bien précis ?

Merci

 

[kjin]

Re : Modification de code

Re,
1 - On pourrait pas faire un tir groupé ?
2 - Si tu as regardé les lignes du code tu as du te rendre compte par toi même des paramètres qui ont été modifiés à chaque fois, et avec un petit effort, je pense que tu aurais trouvé la solution tout seul

OK, le code fonctionne
OK, le code fonctionne mais est-il possible qu'il fonctionne sur n'importe quelle feuille ?
car là il fonctionne sur la feuille 1 mais peut-il fonctionner sur n'importe quel onglet ?

A ta demande, les cellules sont copiées avec le premier code, dans la première feuille de ton classeur, avec le second dans la feuille "Chiffres"
QQ soit les codes, ils sont programmés en "dur"
Si tu veux choisir avoir la possibilité de choisir la feuille de destination, il faut soit passer par une boite de dialogue permettant de renseigner le nom de la feuille, voire du classeur, soit récuperer ces infos dans une cellule de ton classeur source par exemple
Alors, avant d'aller plus loin, dis nous ce que tu souhaites
A+
kjin

Edit: télescopage

 

[UJAP]

Re : Modification de code

oui, Kjin tu as entièrement raison, je viens de réussir à modifier moi même le code, donc j'aurai pu faire un effort,

Merci pour votre aide,