Macro Copier/Coller autre fichier avec contraintes
Bonjour,
Étant novice en VBA je fais appel à votre expertise.
Je voudrais créer une macro permettant de copier/coller (en valeurs) les données de mon fichier source dans un autre fichier. Cette manipulation serait pas à faire toutes les semaines donc chaque semaine la colonne des deux fichiers serait différente.
De plus, j'aimerais que la macro prenne également en compte le fait que si le texte de la cellule X de mon fichier source n'est pas égale à la cellule X de mon fichier où je copie/colle (un peu comme une recherche V je dirais).
J'ai fais quelques essais de macro mais je suis tellement nul en VBA qu'il y a toujours un endroit on ça bugué et je n'arrive pas an m'en sortir.
Pourriez-vous m'aider ?
Ça serait vraiment top, merci de votre aide !!
Bonjour,
Dans ce genre de cas, sans fichier d'exemple impossible pour nous de comprendre ton problème.
Peux-tu nous donner quelque chose ?
Girodo,
Oui, désolé, c'est vrai que sans fichier c'est compliqué.
J'ai créé un fichier similaire car je ne peux pas diffuser les infos de mon réel fichier.
J'aimerais donc que la macro prenne d'un fichier source, la dernière colonne du TCD (dans mon fichier exemple ce n'est pas un TCD, cela va t-il changer la macro ?) et la copie/colle dans la première colonne vide de mon autre fichier.
La macro devra faire ça pour chaque nouvelle semaine.
Merci par avance pour votre aide qui m'est très précieuse !
Jacques
Bonjour,
J'ai avancé sur ma macro, cependant je suis bloqué.
Je voudrais sélectionner dans mon fichier source les lignes de 7 à 237 et pourtant ça s'arrête à la ligne 234.
Sub CopierCollerGénéral()
'
' CopierCollerGénéral Macro
'
Windows("Coef Remplissage Réel Approches.xlsx").Activate
Cells(7, Columns.Count).End(xlToLeft).Offset(, -1).Select
Range(ActiveCell(), Cells(237, ActiveCell.Column).End(xlUp)).Select
Selection.Copy
Windows("Test Global 4.xlsm").Activate
Sheets("Données Globales").Select
Cells(2, Columns.Count).End(xlToLeft).Offset(, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Savez-vous où est mon erreur ?
Merci beaucoup !!
Jacques