Modification VBA

Bonjour,

J'ai le module suivant :

Option Explicit

Sub copie()

Dim i&, fin&, adr$, wbkc As Workbook, wbks As Workbook

Application.ScreenUpdating = 1

Set wbks = ThisWorkbook

adr = "C:\Users\mt\Desktop\essai tableau DEV\Base de données.xlsx"

Set wbkc = Workbooks.Open(adr)

With wbkc.Sheets("shopping task")

fin = .Range("A" & Rows.Count).End(xlUp).Row + 1

wbks.Sheets("Feuil3").Rows(1).Copy .Rows(fin)

Application.DisplayAlerts = 0

wbkc.Close 1

Application.DisplayAlerts = 1

End With

End Sub

Qui copie la ligne 1 de la feuille 3 dans la première ligne vide de la feuille "shopping task" du fichier "Base de données".

Je souhaiterais juste modifier ce code pour qu'il colle les valeurs dans la première ligne vide de la feuille "shopping task" du fichier "Base de données". (pour ne pas avoir de formule dans la "Base de données")

(comme quand on fait copier > collage spécial > valeurs)

Merci,

MT

Bonjour,

Essaye..

    wbks.Sheets("Feuil3").Rows(1).Copy
    .Rows(fin).PasteSpecial xlPasteValues
    'ou si tu veux garder le format
    .Rows(fin).PasteSpecial xlPasteValuesAndNumberFormats

A+

D'accord merci bien,

Sinon j'aurais une autre question :

Là l'emplacement de ma base de donnée est fixe, c'est pour faire des essais, pour vérifier si ça fonctionne. Mais ensuite je vais la mettre dans un emplacement collectif pour que toutes les personnes concernées y ait accès et puisse faire eux même la manoeuvre avec l'autre fichier qui contient la macro que vous voyez. Donc ce qui veux dire que l'emplacement indiqué pour la base de données sera différent d'une personne à l'autre.

ex pour moi c'est :

"C:\Users\mt\Dropbox\Projet DEV\Récoltes données\Base de données.xlsx"

et pour un autre c'est :

"C:\Users\gd\Dropbox\Projet DEV\Récoltes données\Base de données.xlsx"

Est-ce que vous sauriez (ou quelqu'un d'autre qui lirait ce message) si c'est possible d'indiquer dans le code de copier les données dans l'emplacement "Dropbox\Projet DEV\Récoltes données\Base de données.xlsx" quelque soit l'utilisateur ?

Merci,

CDT

MT

Bonjour

Essayes

Sub test()
Dim Chemin As String, Fichier As String

  Chemin = "C:\Users\" & Application.UserName & "\Dropbox\Projet DEV\Récoltes données\"
  Fichier = "Base de données.xlsx"
End Sub

J'ai essayé le code suivant mais ça ne fonctionne pas :

Sub copie()

Dim i&, fin&, wbkc As Workbook, wbks As Workbook, Chemin As String, Fichier As String

Application.ScreenUpdating = 1

Set wbks = ThisWorkbook

Chemin = "C:\Users\" & Application.UserName & "\Dropbox\Projet DEV\Récoltes données\"

Fichier = "Base de données.xlsx"

Set wbkc = Workbooks.Open(Fichier)

With wbkc.Sheets("shopping task")

fin = .Range("A" & Rows.Count).End(xlUp).Row + 1

wbks.Sheets("Feuil3").Rows(1).Copy

.Rows(fin).PasteSpecial xlPasteValuesAndNumberFormats

Application.DisplayAlerts = 0

wbkc.Close 1

Application.DisplayAlerts = 1

End With

End Sub

Pouvez vous me le corriger, s'il vous plait ?

Bonjour

Il faut rajouter le chemin

Set wbkc = Workbooks.Open(Chemin & Fichier)