Copie dans onglet

[vmax67]

Bonsoir
Je cherche à compléter une macro. Celle-ci exécute correctement la création des onglets en fonction des données de la colonne B de l'onglet Z_Stats. Elle copie également correctement les valeurs dans les bons onglets.
Mais j'aimerais qu'elle copie uniquement les valeurs à partie de la colonne C de l'onglet Z_Stats et les colles à partir de la colonne D.

Par avance merci pour votre collaboration.

Vmax

 

[Jacky67]

Bonjour,
Tester la pj si cela convient
La macro est réécrite
Ecriture en ligne suivante en cas de relance de la macro

 

[vmax67]

Bonsoir
merci c'est super.
Dernière question comment faire pour coller uniquement les valeurs et non la mise en forme.
(Selection.PasteSpecial Paste:=xlPasteValues) et pensez-vous qu'il est possible de coller ces valeurs sur un autre classeur (statsL.xlsx) sur le même principe.
Vmax

 

[Jacky67]

]

Bonsoir
merci c'est super.
Dernière question comment faire pour coller uniquement les valeurs et non la mise en forme.
(Selection.PasteSpecial Paste:=xlPasteValues) et pensez-vous qu'il est possible de coller ces valeurs sur un autre classeur (statsL.xlsx) sur le même principe.
Vmax

Re...
Cela fait 2 dernières questions
Pour la première
Replacer cette partie du code

    With ActiveSheet
      Feuil2.Range("c" & C.Row & ":w" & C.Row).Copy .Range("d" & Application.Max(4, .Cells(.Rows.Count, "d").End(xlUp).Row + 1))
    End With

par

    With ActiveSheet
      Feuil2.Range("c" & C.Row & ":w" & C.Row).Copy
      .Range("d" & Application.Max(4, .Cells(.Rows.Count, "d").End(xlUp).Row + 1)).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
      'La ligne ci-dessous uniquement s'il faut centrer
      .Range("d4:x" & .Cells(.Rows.Count, "d").End(xlUp).Row).HorizontalAlignment = xlCenter
    End With[/code

Pour la 2ème dernière question
Oui, c'est faisable, mais plus compliqué
Il faudra savoir
-Quelle répertoire et s'il est existant ou non
-Si le classeur est existant
-Feuille existante ou création

Bonne nuit

 

[vmax67]

Bonjour et merci pour votre investissement.
J'ai une partie de code concernant la 2ème questions.
Pouvez-me dire si ça peut fonctionner.

Sub sauve()
Dim fich2, fich1 As String
Dim test As String
Application.ScreenUpdating = False

fich1 = ActiveWorkbook.Name
fich2 = "DONNEES B.xlsx"

If Dir(ActiveWorkbook.Path & "\" & fich2) <> "" Then 'vérification que le fichier est bien présent dans le meme dossier

With ActiveSheet

'si il existe des données a mettre dans l'autre fichier
If .Range("A65536").End(xlUp).Row > 1 Then
'ouverture du fichier 2 qui se trouve dans le meme dossier que fichier 1
Workbooks.Open (ActiveWorkbook.Path & "\" & fich2)
'copie des données
Workbooks(fich1).ActiveSheet.Range("C4:" & Lett_dercol & .Range("C65536").End(xlUp).Row).Copy
'collage scpécial des valeurs dans le fichier 2, dans le 1er onglet a la suite de ce qui existe
Range("D" & Sheets(1).Range("D65536").End(xlUp).Row + 1).PasteSpecial xlPasteValues
'fermeture du fichier 2 avec enregistrement
ActiveWorkbook.Close (True)
'deselectionn la zone copiée
Application.CutCopyMode = False
MsgBox ("Mise à jour du fichier " & fich2 & " effectuée")
Else
'message si pas de nouvelles personnes qui habitent a liège
MsgBox ("Pas de nouvelles personnes a ajouter")
End If

End With
Else
'mesage d'erreur indiquant le fichier 2 est introuvable
MsgBox ("Le fichier " & fich2 & " n'est pas présent dans le même dossier que le fichier actuel")
End If

End Sub

 

[Jacky67]

Re...
Cette version, en plus des actions précédentes crée un classeur ayant comme nom "statsL.xlsx' dans le même répertoire que le classeur d'origine avec les feuilles concernées.

 

[vmax67]

Re merci.

C'est pas tout à fait ce que je cherche. Il faut pas créer un nouveau fichier, mais toujours utiliser celui
qui existe (DONNES B.xlsx)pour coller les données au fur et à mesure.
Vmax67

 

[vmax67]

Ah j'ai oublié de vous demander quelle partie du code faut-il prendre pour copier uniquement les données dans les différents onglets si ceux-ci existes déjà.

 

[Jacky67]

Re merci.

C'est pas tout à fait ce que je cherche. Il faut pas créer un nouveau fichier, mais toujours utiliser celui
qui existe (DONNES B.xlsx)pour coller les données au fur et à mesure.
Vmax67

RE...
Bon pour être clair , aller dans la même direction, éviter l'usine à gaz....
Dans le fichier d'origine il y a ceci

Que faut-il faire exactement à chaque fois que le bouton est actionné ?

*La version en pj colle au fur et à mesure uniquement dans le classeur "DONNES B.xlsx"
le classeur "DONNES B.xlsx" doit exister

 

[vmax67]

Pour faire simple.
Je voudrais copier les données (C4:W4) dans les onglets qui portent le même nom que ceux de la plage B4:B13 dans classeur DONNEES B.xlsx qui se trouve dans le même répertoire.En sachant que les onglets existent déjà dans le classeur DONNEES B. Forcer le collage à partir de la cellule D4 dans chaque onglet.

 

[Jacky67]

Pour faire simple.
Je voudrais copier les données (C4:W4) dans les onglets qui portent le même nom que ceux de la plage B4:B13 dans classeur DONNEES B.xlsx qui se trouve dans le même répertoire.En sachant que les onglets existent déjà dans le classeur DONNEES B. Forcer le collage à partir de la cellule D4 dans chaque onglet.

Re..
Nos messages ont du se croiser
La pj en #9 devrait faire cela.
S'il y a rajout dans le classeur origine, la feuille est crée dans le classeur DONNEES B

 

[vmax67]

J'ai une erreur 1004, pourtant bien présent dans le répertoire.

 

[vmax67]

Non

Re..
Nos messages ont du se croiser
La pj en #9 devrait faire cela.
S'il y a rajout dans le classeur origine, la feuille est crée dans le classeur DONNEES B

Non ça fonctionne pas

 

[Jacky67]

Regarde la pièce jointe 999052

Regarde la pièce jointe 999053

J'ai une erreur 1004, pourtant bien présent dans le répertoire.

Re..
Je n'ai pas cette erreur...question de version sans doute
Remplacer cette ligne
Workbooks.Open Filename:="DONNES B.xlsx"
par
Workbooks.Open Filename:=ThisWorkbook.Path & "\DONNES B.xlsx"
et tester

**J'ai supposé que cette ligne
Workbooks.Open Filename:="DONNES B.xlsx"
provoque l'erreur

 

[vmax67]

Toujours la même erreur, mes fichiers sont sur partition D et non C.