Discussion :

[Florian53]

Bonjour,

Je voudrais savoir si c'est possible que j'ouvre un classeur "1"celui là n'affiche rien d'autre qu'un userform avec 2 boutons:

- Bouton " Quitter"

- Bouton " Parcourir" afin d'aller chercher un autre classeur excel "2" qui peut etre stocker sur dur ou reseau.

Afin par la suite d'analyser le fichier "2" pour en obtenir des statistique ainsi que des graphes .

Cordialement

[Invité]

Bonjour,

Il n'y a aucun problème à faire ce que vous souhaitez en lançant la boite de dialogue à l'ouverture du premier fichier.

Regardez aussi du côté des macros complémentaires .xlam, vous pourriez ainsi lancer votre boite de dialogue directement depuis l'onglet Compléments du menu d'Excel.

Cordialement.

[Florian53]

Pouvez vous m'indiquer plus d’information pour cette boite de dialogue, actuellement j'ai inséré " Commondialog class" dans les macros complémentaire mais quand je l’insère comme un bouton ou un textbox il me marque " Cette interface n'est pas pris en charge " Est ce la bonne boite de dialogue que j'ai inséré?

[Invité]

Un exemple sans macro complémentaire

Cordialement.

[Florian53]

Merci,

Je vais analyser le fichier que vous avez envoyez afin de l'adapter a mon classeur. Encore merci

Cordialement

[Florian53]

Merci du coup j'ai réussi a tout remettre dans mon classeur:

Maintenant je voudrais ouvrir le fichier " Extraction" avec celui ouvrir le fichier " a extraire" et que automatiquement sa réalise les étapes suivantes:

- Copie de la feuil1 " a extraire" toute entière dans " extraction" en feuil1 avec une insertion de colonne après la Colonne J et que dans celle ci soit rentré la formule "=DATEDIF(H3;I3;"d")" a toute les cellules a partir de la ligne 3.

- Je voudrais aussi que sa réalise la conversion des dates en colonnes H et I avec la macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CeQueMarcLTeDisait()
Dim i As Integer
 
For i = 0 To 3
    CONVERTIR Worksheets("Sheet1").Columns("H:H").Offset(, i)
Next i
End Sub
 
 
Private Sub CONVERTIR(ByVal Plage As Range)
 
Plage.TextToColumns Destination:=Plage.Cells(1, 1), DataType:=xlDelimited, FieldInfo:=Array(1, 5)
End Sub

Je vous mets en pièces jointe les 2 fichiers

Cordialement

[Invité]

Bonjour,

Vous devriez mettre cette discussion en Résolu et en ouvrir une autre pour votre nouvelle demande.

Bon courage à vous.

Cordialement.