pièces à joindre

[nadine]

Bonjour

J'ai une question à poser mais je voudrais poster une pièce à joindre pour la compréhension de la question et lorsque je veux la joindre c'est le chemin d'acces qui apprarait et non le fichier à joindre

j'ai zipper le fichier

comment faire pour joindre la pièces


Merci d'avance pour votre réponse

Nadine

 

[Pascal76]

Bonjour Nadine et le forum

Oui tu vois en effet le chemin d'accès dans la pièce jointe mais c'est normal c'est ce qui s'affiche lors de l'envoi de pièce jointe.

Donc puisque tu as zippé ton fichier et s'il fait moins de 50 Ko tu peux l'envoyer

Pascal

 

[nadine]

Bonjour

Merci à Pascal pour la réponse

Je pose donc ma question

J'ai créé une petite macro pour récuperer des valeurs

Je veux me faire un historique pour l'année donc il y a 52 semaines

lorque le cellule c6 est remplie je voudrais que se soit la cellule d6 qui soit remplie seulement voilà toutes les autres cellules se remplissent en m^me temps

j'ai essayé de lui dire que lorsque la cellule c6 ets pleine on passe à celle d'à côté mais j'ai eu une erreur de compilation(c'est ce qu'il me dit)

J'ai voulu utilisé offset et déplacement à droite mais là aussi erreur

j'ai joint un exemple


merci d'avance pour votre aide

Nadine

 

[nadine]

oups

Je viens de me rendre compte que le fichier joint ne fonctionne pas je ne sait pas zipper c'est mon mari qui fait cela et il est au travail

je vous fais une copie de la macro

Range("B6:B7").Select
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("e6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("f6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Application.CutCopyMode = False


merci

 

[Dan]

Bonjour Nadine,

Juste un truc pour zipper.
Sous windows,
- place le fichier sur ton bureau par exemple.
- Clique droite sur l'icone de ton fichier classeur2
- choisis Add to classeur2.zip ou (français) ajouter au classeur2.zip.

cela va te donner le fichier zippé sur ton bureau. Il ne te reste plus qu'à le placer ici.

@+ Dan

 

[nadine]

Merci Dan

J'ai fait comme tu m'as dit

j'envoie, j'espère ne pas avoir fait d'impair

merci j'ai appris quelque chose de bien utile

 

[nadine]

encore moi j'ai envoyé le mauvais

je recommence ma question est toujours la même

merci à qui pourras m'aider

a+ nadine

 

[Dan]

Nadine,

attention là tu viens de placer le raccourci et non le fichier.

Vérifies.

Dan

 

[Lord Nelson]

Salut Nadine,
Il faut chercher la première colonne vide sur la ligne 6 :

Dim Col As Byte
Col = Range("IV6").End(xlToLeft).Column + 1

Ensuite, tu utilises cette variable Col pour effectuer le collage :

Range("B6:B7").Select
Selection.Copy
Cells(6, Col).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

Si j'ai bien compris ta préoccupation.
A+
Horatio

 

[nadine]

Horatio
J'ai essayé le code
Pourrais tu m'expliquer cette phrase

Dim Col As Byte
Col = Range("IV6").End(xlToLeft).Column + 1

cela me fait bien un copier coller mais cela s'affiche dans toutes les cellules
qui se suivent et non dans l'une après l'autre

et j'ai du mal à chercher d'autre solution avec ta formule car je ne comprends pas le sens du code ci-dessus je ne connais pas encore vba assez bien

merci de ton aide

 

[nadine]

ouf j'ai enfin réussi à zipper et je pense que là je vous envoi le bon

ma question est toujours la même

j'ai répondu à Horacio dans un mail precedent et je remercie Dan aus

merci à quiconque pourra m'aider

A+ nadine

 

[Michel_M]

Bonsoir Nadine, Pascal, Dan, Horacio et le forum

Nadine,

ci joint proposition avec tentatives d'explications

Bonne soirée
Michel

 

[nadine]

Bonjour à tous


Ce petit message pour remercier tout ce qui m'ont apporté leur aide

Michel c'est exactement ce dont j'avais besoin j'ai parfaitement compris tes tentatives d'explications comme tu dis, cela etais très claire

Merci encore

Nadine