Discussion :

[ITMMartin]

Bonjour à tous !

Je débute en VBA et j'aimerais créer un bouton qui me permettrais de lier les données des cellules de mon fichier excel aux cellules d'un autre fichier excel.
Donc, il faut que lorsque j'appuie sur le bouton, les données des cellules du premier fichier excel viennet se compléter aux cellules correspondantes du deuxième fichier excel.

Un grand merci à quiconque apporterait des lumières sur mon problème.

[Menhir]

Il faut commencer par ouvrir ton fichier de destination avec la méthode Open de un Workbooks.

Ensuite, tu transfère tes valeurs.
En fonction de leur quantité et de leur disposition, plusieurs méthodes sont possibles. Entre autres :
soit faire un simple = entre les propriétés Values des Range représentant ces cellules
soit utiliser la méthode Copy sur ton Range de valeurs sources, accompagné éventuellement d'un PasteSpecial sur le Range des valeurs destination.

Ensuite, sauvegardes ton fichier cible avec la méthode Save de Workbook.
Puis tu n'as plus qu'à le fermer avec la méthode Close de Workbook.

[ITMMartin]

Merci beaucoup Menhir, ta solution est très efficace !
J'avais oublié une chose, je dois faire en sorte qu'il y ai un retour à la ligne si la ligne concernant une réservation est déjà remplie.
J'ai du mal à le réaliser, aurais tu une idée ?
Je pensais rajouter une boucle for each mais j'ai du mal à la mettre en place.
Merci à toi

[Menhir]

J'avais oublié une chose, je dois faire en sorte qu'il y ai un retour à la ligne si la ligne concernant une réservation est déjà remplie.

Je ne comprends pas ta demande. Il faudra être plus clair et plus précis.
N'oublie pas que ceux qui interviennent ici ne connaissent rien de ton application et ne voient pas ton fichier (et, pour la plupart, ne souhaitent pas le voir).

[ITMMartin]

Oui, je comprends, autant pour moi, excuse-moi !

Pour être précis, les données du premier fichier concerne une date (une collection), elles vont être copiés dans un tableau qui possède déjà plusieurs collections de ces données puisque chaque collection de données qui va arriver concerne une date différente.
Chaque collection doit être enregistrée sur une nouvelle ligne.
Donc lorsque j'enregistre la collection, il faut qu'il puisse parcourir le tableau pour qu'il puisse enregistrer dans une ligne vierge.
N'hésite pas à me dire si tu ne comprends pas à nouveau, je reformulerai.

Merci beaucoup de m'aider !

[Menhir]

En imaginant que tes dates sont enregistrées dans la colonne A de ton fichier destination, la ligne suivante te donnera la valeur de la dernière ligne utilisée (à mettre dans une variable, par exemple).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Rows.Count,1).End(xlUp).Row

[ITMMartin]

D'accord, je vais procéder de cette manière alors.

Merci beaucoup pour ces précieux conseils Menhir !

[ITMMartin]

C'est bon j'ai à peu près quelque chose, il manque deux méthodes encore.
J'ai un peu de mal à le programmer, quelqu'un pourrait m'éclaircir ?

Je dois créer un bouton permettant d'enregistrer les données de la feuille de contrôle sur le tableau de synthèse.

Le bouton doit se trouver sur la feuille de contrôle, il doit permettre l'enregistrement d'un nouveau
contrôle à chaque enregistrement (il ne doit pas écraser les ancients contrôles déjà enregistrés).

Le code :

Private Sub CommandButton1_Click()

Function Soumettre()

Workbooks.Open "Suivi des contrôles en pise vpp - v05 10 2015 new"
ActiveWorkbook.RunAutoMacros xlAutoOpen

Cells(Rows.Count, 1).End(xlUp).Row

Worksheets("").Range("").AutoFilter _
field:=1, _
Criteria1:="", _
VisibleDropDown:=False

Worksheets("").Range(":").Copy _
Destination:=Worksheets("").Range("")



End Function

End Sub

Je rencontre des difficultés dans les destinations d'enregistrement et la syntaxe des méthodes.

Merci d'avance.

[Menhir]

Sans vouloir être désobligeant, je pense qu'il te manque un peu plus que deux méthodes.
Il serait nécessaire que tu te formes aux bases du VBA Excel : http://bidou.developpez.com/article/VBA/