ouverture de fichier a partir d'un bouton

Bonsoir Romain

Bon, j'ai simplifié un peu la procédure : j'efface complètement les données de la feuille de destination avant de copier. Si tu ne le souhaites pas, tu as la possibilité de désactiver les instructions non souhaitées et de les remplacer par celle mise en commentaire en début de procédure :

Sub CopieDonnees(SheetName$())
'
Dim i%
Dim ColDest&
'
  ' si tu ne souhaite pas effacer les données précédentes,
  ' tu peux activer cette instruction au lieu des 2 suivantes :
  '-------------------------------------------------------------
  ' ColDest = Sheets(NomFeuilleDest).Range('A1').Find('*', , _
  ' xlValues, xlWhole, bycolumn, xlPrevious)
  '-------------------------------------------------------------

  ' on commence en colonne A après avoir effacé les données
  Sheets(NomFeuilleDest).Cells.Delete
  ColDest = 1

  For i = 1 To UBound(SheetName)
    If SheetName(i) ‹› '' Then
      With Sheets(Nomfeuiledest)
        Sheets(SheetName(i)).Range('A:A').Copy .Columns(ColDest)
          ColDest = ColDest + 1
      End With
    End If
  Next i
End Sub

Cliquez pour agrandir...

A+

Re-
J'ai insere cette mise a jour dans mon programme, mais ca ne marche pas...je ne comprend pas. peux tu stp me renvoyer le nouveau fichier excel avec la mise a jour.
merci par avance.

re

J'ai effectivement fait une erreur de copie dans le nom de la constante NomFeuilleDest, et j'ai omis de te préciser que les signes 'inférieur' et 'supérieur' (soit 'différent de') ne passent pas sur le site. Pour les simuler, on utilise d'autres caractères qui ne sont pas interprétés comme des balises html...

Il fallait donc remplacer ‹› par leurs équivalents clavier :whistle:

[file name=Romainchu78_V2.zip size=31220]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Romainchu78_V2.zip[/file]

A+

Salut,
C'est encore moi... Peut tu repondre a cette question? au point ou on en est...
merci


* Je souhaite créer une feuille Excel avec un nom définie par moi-même à l'aide d’un bouton vba. Je sais actuellement créer une feuille, que je suis obligé de renommer après. Le problème c’est que des fois lorsque qu’il me crée la feuille, le nom par default change et il est impossible par la suite de la renommer parce que le nom par default a change. Voici le code actuel:
Sheets.Add
Sheets('Sheet1').Name = 'Temp'
Par default le nom donné est Sheet1.

Comment puis créer une feuille nomme directement « temp » ?

* 2eme question : je souhaite par la suite supprimer cette feuille sans aucun message de demande de sauvegarde ou autre. En gros l’utilisateur ne doit même pas s’apercevoir qu’une nouvelle feuille Excel a été créée et supprimée.
Actuellement j’ai ce code, mais il demandera a l’utilisateur de sauvegarder.
'Sheets('Temp').Select
'ActiveWindow.SelectedSheets.Delete

Comment puis-je supprimer cette feuille « temp » sans aucun message ?

Bonsoir Romain

* Je souhaite créer une feuille Excel avec un nom définie par moi-même à l'aide d’un bouton vba. Je
sais actuellement créer une feuille, que je suis obligé de renommer après. Le problème c’est que des
fois lorsque qu’il me crée la feuille, le nom par default change et il est impossible par la suite
de la renommer parce que le nom par default a change. Voici le code actuel:
Sheets.Add
Sheets('Sheet1').Name = 'Temp'
Par default le nom donné est Sheet1.

Comment puis créer une feuille nomme directement « temp » ?

Cliquez pour agrandir...

Le code suivant devrait résoudre ton souci car une feuille créée est automatiquement active :

Application.ScreenUpdating = False
Sheets.Add
ActiveSheet.Name = 'Temp'
'... Suite du code
Aplication.ScreenUpdating = True

Cliquez pour agrandir...

Sinon, une autre solution serait de garder une feuille appelée Temp en la cachant lorsque tu n'en as pas besoin par l'instruction :

Sheets('Temp').Visible = xlVeryHidden

Cliquez pour agrandir...

ce qui a pour effet de ne pas pouvoir la rendre visible depuis l'interface Excel.

* 2eme question : je souhaite par la suite supprimer cette feuille sans aucun message de demande de
sauvegarde ou autre. En gros l’utilisateur ne doit même pas s’apercevoir qu’une nouvelle feuille
Excel a été créée et supprimée.
Actuellement j’ai ce code, mais il demandera a l’utilisateur de sauvegarder.
'Sheets('Temp').Select
'ActiveWindow.SelectedSheets.Delete

Comment puis-je supprimer cette feuille « temp » sans aucun message ?

Cliquez pour agrandir...

Pour ce faire, tu peux utiliser la propriété DisplayAlerts de l'objet Application :

Application.DisplayAlerts = False
Sheets('Temp').Delete
Application.DisplayAlerts = False

Cliquez pour agrandir...

Et sans faire de .Select :whistle:

Bonne soirée

Bonjour Charly, j’aurais encore une petite question à te poser…on approche de la fin.

Jai 3 colonnes à comparer situees en colonnes A, B et C. Ces 3 colonnes ont des éléments communs. Je veux retenir que les éléments uniques pour chaque colonne.
Jai le code pour faire le tri, mais le problème est que le bouton VBA qui active cette fonction de trie est sur une page « sheet1 » et d’après le code je dois obligatoirement avoir les trois colonnes à comparer sur cette même page avec le bouton. Mais pour les besoins de mon étude, les trois colonnes à trier doivent être sur une autre feuille Excel « sheet2 ». Et en plus le résultat du tri, c’est à dire les 3 nouvelles colonnes devront être place sur une autre feuille et sur les colonnes A, B et C.
Ce qui fait en tout trois feuilles Excel.
- La première contient uniquement le bouton VBA
- La deuxième uniquement les trois colonnes a comparé en A, B et C.
- La troisième colonne contiendra les trois nouvelles colonnes trie (avec uniquement les éléments uniques) en A, B et C

Je n’arrive pas à adapter mon code pour l’utiliser sur plusieurs feuilles. Peux-tu m’aider dessus? Je souhaiterais conserver au mieux la structure de mon code trie.

Tu trouveras ci-joint un fichier Excel de ce que j’ai actuellement. Et un autre fichier de se que je veux.

Merci encore, tu m’as aide vraiment beaucoup j’apprécierais que tu m’aide encore. [file name=test_20060330184356.zip size=28077]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060330184356.zip[/file]