Archiver fichier contient une feuille
ci-joint un fichier archiver classeur dans un emplacement (enregistrer sous) dans leur chemin
dans ce cas il archive le classeur contient les 3 feuille
moi je cherche à archiver le classeur contient la feuille 1 uniquement si cela est possible
merci a vous
Bonjour,
Question :
Le classeur à l'ouverture, ouvre-t-il une ou trois feuilles ?
Les feuilles 2 et 3 sont-elles toujours vides ?
Si oui ... fichier Options ... Lors de la création de classeurs ... Inclure ces feuilles ... mettre à 1
Gelinotte
Bonjour,
Si non, en Vba :
remplacer : wkbSource.SaveCopyAs PathA & FileName1 & "_" & FileName2 & ".xls"
par : wkbSource.Worksheets(1).SaveAs PathA & FileName1 & "_" & FileName2 & ".xls"
Gelinotte
le classeur A L'OUVERTURE A 3 FEUILLE
QUAND J'ARCHIVE MON CLASSEUR JE VEUX QU'IL ARCHIVER LA FEUILLE 1 UNIQUEMENT
PARCE QUE LA FEUILLE 2 ET 3 JE LES UTILISE COMME HISTORIQUE
MERCI
Bonjour,
Si non, en Vba :
remplacer : wkbSource.SaveCopyAs PathA & FileName1 & "_" & FileName2 & ".xls"
par : wkbSource.Worksheets(1).SaveAs PathA & FileName1 & "_" & FileName2 & ".xls"
Gelinotte
malheureusement il marche pas
Bonjour,
Bon, je dois revoir ....
Gelinotte
Bonjour,
Sur la feuille 1, il y a un bouton qui pointe vers une macro. Présentement, quand j'enregistre la feuille, ça fonctionne correctement.
Mais ... le bouton suit et il est toujours lié à la macro du classeur d'origine. Si on y clique, la macro s'exécute ... avec des erreurs car ce n'est pas le bon classeur.
J'ai besoin de commentaire ...
Sur le classeur de travail... ce bouton est-il vraiment sur la feuille 1 ?
Ce sera la façon officielle pour lancer la macro ?
Gelinotte
le bouton sur le classeur ( la feuille 1 ) ma formulaire de travaille
lorsque j'archive ma formulaire ke je saisi je me demande s' il y aura une possibilité d'archiver que les données de la feuille 1
sans la feuille 2 et 3 et ainsi sans le bouton et le macros
merci infiniment
Bonjour,
Voici ... ça devrait faire l'affaire ... par contre, le nom du bouton, sur le formulaire de travail, devra être "Button 1".
S'il porte un autre nom, il faudra ... soit le renommer ou changer le nom dans la macro.
 tester ...
Application.DisplayAlerts = False
wkbSource.Worksheets(1).Copy
ActiveSheet.Shapes.Range(Array("Button 1")).Delete
ActiveWorkbook.SaveAs PathA & FileName1 & "_" & FileName2 & ".xlsx", xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close savechanges:=FalseGelinotte
il fonctionne pas chez moi
tu peux m'envoyer le fichier
thank's
Bonjour,
Le voici ...
Gelinotte
hi je vs remercie bcp de m'avoir aidé il marche bien
j'ai une autre question si vs n'y voyez pas d’inconvénient
j'ai une base de données de la gestion du magasin
je veux relier chaque article à sa photo afin d'en identifier
lorsque je tape la référence de l'article il m'affiche sa photo
ci joint un petit exemple
thank's
Bonjour,
Pour les images, il faut que les images portent le même nom que le texte ou code associé.
Dans ton cas, selon le fichier exemple, ce serait le 'Code' qui lui est unique.
Un excellent site pour réaliser ton but à atteindre.
http://boisgontierjacques.free.fr/pages_site/lesimages.htm
Gelinotte
Bonjour,
Voici un chef d’œuvre de Jacques Boisgontier.
Place les images dans le dossier C:\Photos
Ouvre le fichier, survol lentement les cellules B6 à B9
C'est tout simplement merveilleux.
Bien du plaisir à tricoter tout cela ....
Gelinotte
HI how are you
voila mon tableau du magasin ce n'est qu'une part du tableau complet ki contient plus de 3000 articles
alors tu peux appliquer le survol sur la colonne C (RÉFÉRENCE)
merci infiniment
il fonctionne pas
Bonjour,
Il y a quelques contraintes :
- La dimension des photos devrait être limitée ... le test est fait avec du 188 pixels ... sinon, il y a le risque de devoir redimensionner le Userform ... ce que j'ai fait d'ailleurs
- j'ai travaillé sur la colonne E ... j'ai bifurqué, car les images proposées portaient le même nom que les inscriptions de la colonne E.
- De plus, les images doivent porter le même nom que le contenu de la cellule.
- Il doit y avoir un champ_nommé "Champs" qui couvre la plage de cellule ... dans l'exemple "E2:E7" ... ce sera à adapter.
- Il doit y avoir un Label1 (contrôle ActiveX) transparent (voir propriété) qui couvre lui aussi la plage des données ... dans l'exemple "E2:E7"
- Présentement, le code est fait pour que les images soient dans le même dossier que le chiffrier Excel.
Il est bien sûr que si ta base de données est passablement dynamique (ajout d'item) ... ça peut devenir harassant à corriger ... à ce moment, il faudra penser à le faire par programmation ... mes connaissances étant limitées ... ça peut représenter beaucoup d'heures pour y arriver ... l'auteur (Jacques Boisgontier, qu'il faut remercier) ou des caïds tels LouReed ou MFerrand verront la tâche moins lourde que moi.
C'est un premier pas, celui qui est le plus dur à faire
Gelinotte
Salut gelinote
à ton avis quel est le macro que je dois utiliser celui la ou bien l'autre je suis tiraille
Visualise une photo externe au survol d'une cellule
Dim Xc, Yc
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
d = 3
If X < d Or X > Label1.Width - d Or Y < d Or Y > Label1.Height - d Then
Range("champ").Interior.ColorIndex = xlNone
Unload UserForm1
Else
Hcel = Range("champ").Cells(1, 1).Height
Lcel = Range("champ").Cells(1, 1).Width
Yc = Int(Y / Hcel)
Xc = Int(X / Lcel)
Range("champ").Interior.ColorIndex = xlNone
Range("champ").Cells(1, 1).Offset(Yc, Xc).Interior.ColorIndex = 3
RépertoirePhoto = "C:\Photos\" ' Adapter
photo = RépertoirePhoto & Range("champ").Cells(1, 1).Offset(Yc, Xc) & ".jpg"
If Dir(photo) <> "" Then
UserForm1.Image1.Picture = LoadPicture(photo)
UserForm1.Show
Else
UserForm1.Hide
End If
End If
End Sub
Private Sub Label1_Click()
Range("champ").Interior.ColorIndex = xlNone
Range("champ").Cells(1, 1).Offset(Yc, Xc).Select
Range("champ").Cells(1, 1).Offset(Yc, Xc).Interior.ColorIndex = 4
ActiveSheet.Label1.Visible = False
Range("champ").Cells(1, 1).Offset(Yc, Xc).Select
AppActivate "Microsoft Excel"
ActiveSheet.Label1.Width = Range("champ").Width
ActiveSheet.Label1.Height = Range("champ").Height
ActiveSheet.Shapes("label1").Top = Range("champ").Top + 1
ActiveSheet.Shapes("label1").Left = Range("champ").Left + 1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect([champ], Target) Is Nothing Then
Unload UserForm1
essaye de l'utiliser avec ce macros
merci
je chercher pas une programmation pour ajouter des Items
j'ai une base de donnes prête déjas existe plus de 3000 articles
c juste j'ai besoin d'identifier certains article par photos (colonne E2 jusqu'à la derniere cellule E ) afin de facilite mon travaille à reconnaître mes articles
lorsque je survol la souris dans les cellules de (la colonne E ) il m'affiche sa photo dans un commentaire ou je sais pas
sachant que le patch un dossier photos dans le disque D
je serais reconnaissant et très heureux si tu m'aide merci a vs