Résultats de la recherche
-
F
nouveau dossier
Dim Rep_Bool as boolean Workbooks.Add If Dir(ThisWorkbook.Path & '\\TEMP.XLS', vbNormal) <> '' Then Kill (ThisWorkbook.Path & '\\TEMP.XLS') ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & '\\TEMP.XLS' Windows('Le nom du fichier de travail').Activate ActiveSheet.Copy...- Fredmax
- Message #2
- Forum: Forum Excel
-
F
Validité d'une date
Un fait, Excel considére par exemple '30/11/00' comme une date de l'an 30. Dans Microsoft Windows, la plage des dates valides s'étend du 1er janvier 100 au 31 décembre 9999. Les plages varient en fonction des systèmes d'exploitation. La fonction isdate n'est pas terrible. Mieux vaut...- Fredmax
- Message #3
- Forum: Forum Excel
-
F
bouton copie de ligne
La solution serait peut-être de placer la destination sur la dernière ligne au fur et à mesure si j'ai bien compris. Il suffit alors de connaitre quelles est la dernière ligne. Dans ce cas, il faut écrire un truc du genre: Worksheets('Feuille_1').Rows(1).Copy...- Fredmax
- Message #4
- Forum: Forum Excel
-
F
CommonDialog et path
Moi, j'utilise entre autre chose la méthode suivante: Dim Str_Temp As String Str_Temp = BrowseForFolder(Application.DDEAppReturnCode, 'Sélection du dossier') Ne pas oublier de déclarer en tête de module: Public Declare Function SHBrowseForFolder Lib 'shell32' (lpbi As BrowseInfo) As Long...- Fredmax
- Message #7
- Forum: Forum Excel
-
F
bouton copie de ligne
Worksheets('Feuille_1').Rows(1).Copy Destination:=WorkSheets('Feuilles_2').Rows(1) Bon courage...- Fredmax
- Message #2
- Forum: Forum Excel