Discussion :

[awadd]

Bonjour

Je voulais que vous aidez je ne suis pas bien en vba, J'ai 2 classeurs je voulais un macro qui permet ouvrir la classeur 1 quand je suis dans le classeur 2 je dois ouvre la classeur 1 et copier le commentaire pour chaque numéro de client ce qui veux dire que y a plusieurs commentaires
et je dois les coller dans la classeur 2.
merci

[casefayere]

Bonsoir,
il faudrait en savoir un peu plus :
- les deux classeurs sont-ils dans le même dossier ?
- les numéros de clients et les commentaires se trouvent sur quelle feuille et quelles cellules ? comment cette feuille est organisée ?
- à quel endroit du classeur 2 dois-tu faire la copie ?

[awadd]

Bonjour,
Oui les deux classeurssont dans le meme dossier
Pour ta deusieme question les deux classeurs sont les memes c'est seulement
que la classeur 1 a ses commentaires je voulais copie les commentaires et le coller dans la classeur 2.
ils ont le meme nom de feuille c'est sommaires,
et aussi la ou on doit coller les commentaire son des couleur vert pour tous
Merci

[casefayere]

Pour ta deusieme question les deux classeurs sont les memes c'est seulement
que la classeur 1 a ses commentaires je voulais copie les commentaires et le coller dans la classeur 2.

Si vraiment tes 2 classeurs sont identiques, hormis les commentaires, tu n'as pas besoin de VBA pour régler le problème. Tu ouvres classeur 1, tu n'ouvres pas l'autre et l'enregistres sous le nom de classeur 2 (le classeur 1 existera toujours) et le tour est joué. Mais j'imagine que ton problème n'est pas là, au cas où, quappelles-tu des commentaires, s'agit-il des commentaires apparents pour chaque cellule ou des cellules avec du texte ?

[awadd]

Mais desfois il peut changer. je voulais créer un bouton qui ouvre le classeur 1 copier les commentaires qui sont dans la cellule I20 et le coller dans la classeur 2 dans la cellule I20. le collage se fait chaque I20, I27,I34, I41,I48, donc chaque 7 ligne on coller, je ne sais pas si vous me comprenez,
SVP aider moi

[casefayere]

essaies ce code en changeant, bien sur le nom des classeurs par leur véritables noms :
code à mettre dans un bouton du classeur 2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim Chemin As String, x As Long, Wb1 As Workbook, Wb2 As Workbook
Set Wb2 = ThisWorkbook'représente le classeur 2
Chemin = ThisWorkbook.Path & "\"
Workbooks.Open (Chemin & "classeur 1 .xlsm")'classeur 1 à changer par véritable nom
Set Wb1 = Workbooks("classeur 1.xlsm")'classeur 1 à changer par véritable nom
 
For x = 20 To 48 Step 7
  Wb1.Range("I" & x).Copy
  Wb2.Range("I" & x).PasteSpecial Paste:=xlPasteComments
Next x
End Sub

Si ce que tu appelles "commentaire" n'est que la valeur, alors prends ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim Chemin As String, x As Long, Wb1 As Workbook, Wb2 As Workbook
Set Wb2 = ThisWorkbook'représente le classeur 2
Chemin = ThisWorkbook.Path & "\"
Workbooks.Open (Chemin & "classeur 1 .xlsm")'classeur 1 à changer par véritable nom
Set Wb1 = Workbooks("classeur 1.xlsm")'classeur 1 à changer par véritable nom
 
For x = 20 To 48 Step 7
  Wb2.Range("I" & x).value = Wb1.Range("I" & x).value
Next x
End Sub

[mercatog]

Bonsoir Dominique
Je suis certains que tu n'as pas testé tes codes

Code :

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

Wb1.Range("I" & x).Copy

Avec Wb1 est une variable Workbook, tu as oublié d'indqiuer la feuille. Il fallait par exemple

Code :

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

Wb1.Worksheets(1).Range("I" & x).Copy

Autre chose, ces 2 lignes

Code :

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

1
2
Workbooks.Open (Chemin & "classeur 1 .xlsm") 'classeur 1 à changer par véritable nom
Set Wb1 = Workbooks("classeur 1.xlsm")

peuvent être écrits directement

Code :

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

Set Wb1 = Workbooks.Open(Chemin & "classeur 1 .xlsm")  'classeur 1 à changer par véritable nom

[awadd]

J'ai essayé les deux exemples mais j''ai un message d'erreur

Propriété ou méthode non gérée par cet objet

c'est a ce niveau
1er

Code :

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

Wb1.Range("I" & x).Copy

Pour le 2ieme exemple

Code :

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

Wb2.Range("I" & x).Value = Wb1.Range("I" & x).Value

[awadd]

J'ai fait les modification que mercatog a aporté

Code :

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

Wb1.Worksheets(1).Range("I" & x).Copy

mais j'ai un autre message d'erreur au niveau

Code :

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

Wb2.Range("I" & x).PasteSpecial Paste:=xlPasteComments

Proprieté ou methode non gérée par cet objet

J'ai essayé de le corrigé par

Code :

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

Wb2.Worksheets(1).Range("I" & x).PasteSpecial Paste:=xlPasteComments

La méthode pasteSpecial de la classe Range a échoué

Est ce que c'est possible de choisir le chemin du dosser de fois ils sont pas dans le méme dossier. Jeveux que l'utilisateur chosi le chemin
Merci de m,avoir aidé

[casefayere]

Bonjour à tou(te)s, mercatog, awadd

à mercatog

Je suis certains que tu n'as pas testé tes codes

effectivement, mea culpa, mais à l'heure où je l'ai fait, la fatigue commençait à gagner les neurones, je n'avais pas, non plus, envie de créer des fichiers juste pour un test.

J'ai essayé de le corrigé par

Code :

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

Wb2.Worksheets(1).Range("I" & x).PasteSpecial Paste:=xlPasteComments

à awadd :

vérifies le nom de tes feuilles ou leur codename, s'agit-il de sheets(1) ?, tu peux remplacer par le nom, exemple, si ta feuille se nomme "toto" :

Code :

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

Wb2.Worksheets("toto").Range("I" & x).PasteSpecial Paste:=xlPasteComments

Est ce que c'est possible de choisir le chemin du dosser de fois ils sont pas dans le méme dossier

Règles déjà ton problème actuel car, pour cette demande, qui vient contredire ta première affirmation :

Oui les deux classeurssont dans le meme dossier

il faut déjà que tu comprennes ce que tu fais, et :
- si les dossiers ne sont pas les mêmes, sont-ils connus à l'avance ?
- faut-il les chercher ?

bonne journée à tou(te)s

[awadd]

Bonne soirée
Je vois que le code fait les copier et les coller mais il ne colle pas les données il laisse les cellules vide
Voir le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Dim Chemin As String, x As Long, Wb1 As Workbook, Wb2 As Workbook
Set Wb2 = ThisWorkbook 'représente le classeur 2
Chemin = ThisWorkbook.Path & "\"
Workbooks.Open (Chemin & "Sommaire Comité de livraison - 2012-03-13.xls") 'classeur 1 à changer par véritable nom
Set Wb1 = Workbooks("Sommaire Comité de livraison - 2012-03-13.xls") 'classeur 1 à changer par véritable nom
 
For x = 20 To 48 Step 7
 
'  Wb1.Worksheets(Sommaire).Range("I" & x).Copy
  Wb1.Worksheets(1).Range("I" & x).Copy
'  Wb2.Range("I" & x).PasteSpecial Paste:=xlPasteComments
  Wb2.Worksheets(1).Range("I" & x).PasteSpecial Paste:=xlPasteComments
 
Next x

Merci de m'aider

[casefayere]

Bonsoir,

Je vois que le code fait les copier et les coller mais il ne colle pas les données il laisse les cellules vide

tu t'expliques très mal, je t'avais déjà demandé s'il s'agissait de données ou de commentaires attachés aux cellules et t'avais fourni deux exemples, 1 pour copier les commentaires, l'autre pour copier les données en tenant compte des remarques de mercatog, que dire de plus ?

[awadd]

C'est des commentaires je me suis tompé excuse moi